excel – 如何将宏代码保存为vbs？

2019年7月2日 359次阅读

我不知道为什么我不能从R调用我的宏代码,这是我试图保存为vbs文件的代码:(我应该将它保存在记事本应用程序中吗？)

 Sub vb()
       Dim xlApp
       Dim xlBook
       Set xlApp = CreateObject("Excel.Application")
       Set xlBook = xlApp.Workbooks.Open("path.xlsm", 0, False)
       xlApp.Visible = True
       xlApp.Run "Countries"
       xlApp.Quit
       Set xlBook = Nothing
       Set xlApp = Nothing
 End Sub

如何将上述代码保存为vbs？

最佳答案 使用下面的VBS代码,因为您无法将VBA代码保存为VBS作为架构,或者说它们不在同一页面中,因为C和C不同,它们以相同的方式

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("path.xlsm")

objExcel.Application.Visible = True

objExcel.Application.Run "path.xlsm!Countries" 'Refer to the below if the code is under sheet
objExcel.ActiveWorkbook.Close
WScript.Echo "Finished."
WScript.Quit

如果您已将代码放在工作表中.用户这一行

objExcel.Application.Run "path.xlsm!sheet1.dog"

希望这能解决您的疑问.快乐的编码.

点赞