Dim xlapp As Excel.Application '定义Excel程序
Dim xlbook As Excel.Workbook '定义Excel工作簿
Dim xlsheet As Excel.Worksheet '定义Excel工作表
Sub Excel()
xlapp = CreateObject("excel.Application") '创建Excel表对象
xlbook = xlapp.ActiveWorkbook '设置XLBOOK 为活动工作簿
xlsheet = xlbook.ActiveSheet '设置xlsheet 为当前活动工作簿
MsgBox(xlsheet.Range("a1").Value)
End Sub
扫码关注腾讯云开发者
领取腾讯云代金券
Copyright © 2013 - 2025 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号:粤B2-20090059 深公网安备号 44030502008569
腾讯云计算(北京)有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287
Copyright © 2013 - 2025 Tencent Cloud.
All Rights Reserved. 腾讯云 版权所有