如何将macros代码保存为vbs？

我不知道为什么我不能从R调用我的macros代码，这是我的代码，我试图保存为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" 

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

Answer 2

您可以从项目浏览器中导出代码模块，右键单击它，然后select“ Export File... 。

你也可以使用VBA来完成，也就是导出“Module1”：

 With ThisWorkbook.VBProject.VBComponents("Module1") .Export "c:\so\" & .Name & ".bas" End With