[求助]如何在VB中加载EXCEL的宏
我用VB打开EXCEL的一个文件,激活一个工作表,这个工作表中用到了需要加载宏的一些函数,比如HEX2DEC,但是我用VB一打开这个工作表,总是无法加载宏,所以HEX2DEC就无法使用。我该如何加载宏啊?
?
同意7楼的.
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Activate '激活工作表
xlBook.RunAutoMacros (xlAutoOpen) '运行自动开启宏,这一句是你的问题的关键就是运行7楼说的Sub Auto_Open())
最后记得要关闲,特别是对象不可见时,那样的话进程中会越开越多的