我想用vb编程打开excel，再运行其中的宏，但是不成功，代码和错误如下，请帮忙改正
安全级别已经设置好了，宏在excel表中也可运行，录制在个人工作簿中
vb调用excel宏
答案:2 悬赏:30
解决时间 2021-03-06 09:48
- 提问者网友：挣扎重来
- 2021-03-05 13:08
最佳答案
- 二级知识专家网友：木子香沫兮
- 2021-03-05 14:33
Private sub Command3_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.workbook
Dim xlsheet As Excel.worksheet
Dim appexcel As Object
Set xlapp = CreateObject("excel.application")
' 设要处理的表为你那个带宏的表 ----- Test.xls
Set xlbook = xlapp.workbooks.open(App.Path & "\Test.xls")
xlapp.Visible = True '使你的表可见
xlapp.run "aa"
End sub
'经过测试，可以运行宏！
Dim xlapp As Excel.Application
Dim xlbook As Excel.workbook
Dim xlsheet As Excel.worksheet
Dim appexcel As Object
Set xlapp = CreateObject("excel.application")
' 设要处理的表为你那个带宏的表 ----- Test.xls
Set xlbook = xlapp.workbooks.open(App.Path & "\Test.xls")
xlapp.Visible = True '使你的表可见
xlapp.run "aa"
End sub
'经过测试，可以运行宏！
全部回答
- 1楼网友：滚出爷的世界
- 2021-03-05 15:02
set vbexcel = createobject("excel.application")
vbexcel.run ("c:\myfile\myexcel.xs!mysub")
set vbexcel = nothing
vbexcel.run参数
文件名!宏名
确保excel安全级别为低，否则会阻止vb自动调用宏
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯