没有合适的资源?快使用搜索试试~ 我知道了~
在VB上直接使用VBA
3星 · 超过75%的资源 需积分: 48 31 下载量 161 浏览量
2011-11-20
23:31:58
上传
评论 5
收藏 30KB DOC 举报
温馨提示
试读
2页
在VB上直接使用VBA控制word、excel其实很简单,但是很多新手包括本人刚开始的时候也是碰了一鼻子灰,看书全都是在讲VBA的,但在VB上怎么用这些指令? 仅供新手参考,高手勿鄙视。
资源推荐
资源详情
资源评论
在 VB 上直接使用 VBA 控制 word、excel 其实很简单,但是很多新手包括本人刚开始的时候
也是碰了一鼻子灰,看书全都是在讲 VBA 的,但在 VB 上怎么用这些指令?(在 VBA 的指
令前加 xlapp.或 wdapp. )
首先,要定义:
Dim xlApp As Excel.Applicaon '定义 EXCEL 类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
‘初始化 excel 的一些语句
Set xlApp = CreateObject("Excel.Applicaon") '创建 EXCEL 应用类
xlApp.Visible = True '设置 EXCEL 可见
Set xlBook = xlApp.Workbooks.Open(xlsadd) '打开 EXCEL 工作簿,xlsadd 是你要打开对应的
文件地址,如:c:.xls
Set xlsheet = xlBook.Worksheets(1) '打开 EXCEL 工作表
xlsheet.Acvate '激活工作表
xlBook.RunAutoMacros (xlAutoOpen) '运行 EXCEL 中的启动宏
‘接着就是代码了,其实不用看书学,直接打开一个 excel 文件,用录制宏的方法就可以得
到你要的代码。
‘*************关键*** *****************************************
‘将 excel 宏里面的代码拷进来之后,在每句代码前面加 xlApp. ,这样就可以正常运行了。
‘*************关键*********************************************
‘操作单元格
‘xlsheet.Cells(行,列)=值 行列用数字表示,(1,7)相当于单元格 G1
‘下面是关闭 excel 的代码
' /=========== =关闭 Excel================\
xlBook.RunAutoMacros (xlAutoClose) '执行 EXCEL 关闭宏
xlBook.Close (True) '关闭 EXCEL 工作簿
xlApp.Quit '关闭 EXCEL
Set xlApp = Nothing '释放 EXCEL 对象
资源评论
- 哈了2012-12-07真心是基础
- lianghongge2013-08-30不错,适合我这种菜鸟,现在可以用了,高兴。
- jiepeiliu2022-05-01简明扼要,确实是基础。
yuspringyds
- 粉丝: 0
- 资源: 4
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功