vb点虐中操作宏 vb调用excel宏

怎么用VB编写自动执行宏命令？

你的宏命令是指EXCEL里的宏吧，如果是这样，你可以这样做，打开EXCEL

创新互联建站专注于企业全网整合营销推广、网站重做改版、清镇网站定制设计、自适应品牌网站建设、H5开发、商城系统网站开发、集团公司官网建设、外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为清镇等各大城市提供网站开发制作服务。

在工具-宏-VB编辑器

在里面新建一个模块，在模块里增加一个过程

Public Sub auto_open()

这里面添加你要自动执行的命令

end sub

先创建一个模板excel文件，然后作为资源放在程序中，先释放这个文件，然后操作这个文件。

首先在Excel里面录制宏。

然后在VB"工程"菜单中选择"引用"栏；选择Microsoft Excel x.x Object Library

在VB里设置一个按钮Button1

以下代码：

Sub button1_click()

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件

xlApp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表

With xlSheet

'在这里，把你在Excel里面录制的宏复制到下面，适当修改一下，例如

.Cells(1,1) = “'给单元格（A1）赋值”

.PrintOut '打印工作表

End With

xlBook .Close (True) '关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象End Sub

宏就是程序,在OFFICE组件,如WORD,POWERPOINT,ACCESS,EXCEL的工具菜单里面有一个宏的菜单项,他的子菜单就是,进入之后类似VB编程.

网页名称：vb点虐中操作宏 vb调用excel宏
分享链接：http://cdiso.cn/article/ddjgsdp.html