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"

希望这能解决您的查询。编码愉快。