从品牌网站建设到网络营销策划,从策略到执行的一站式服务
你的宏命令是指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编程.
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图