如何将宏代码保存为vbs？

Question

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

Answer 1

使用下面的 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"

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