vba转换为vbs的方法_excel – 如何将宏代码保存为vbs？

我不知道为什么我不能从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"

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