VBScript - 在 Excel 脚本中运行宏

Question

我已经搜索了这个社区和其他社区，但我仍然无法让它发挥作用。

我想要一个 VB 脚本，当我执行它时会打开一个 Excel 文档，运行一个脚本（宏），然后关闭 excel。

我打开的文档中不存在该宏，这就是为什么我想在 VB 脚本中包含该宏

我试图修改它，但没有运气。当我在其中输入宏代码时，它失败了。我知道 VBS 和 VBA 是不同的，但我对这两者都不是很有经验。

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = False
Set objWorkbook = objExcel.Workbooks.Open("C:\scripts\test.xls")
       Set xlmodule = objworkbook.VBProject.VBComponents.Add(1) 
       strCode = _
       "sub test()" & vbCr & _
       "   msgbox ""Inside the macro"" " & vbCr & _
       "end sub"
       xlmodule.CodeModule.AddFromString strCode
objWorkbook.SaveAs "c:\scripts\test.xls"
objExcel.Quit

这是我试图合并到这个 VB 脚本中的宏。

Sub Billing_Cleanup()

    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Rows("1:8").Select
    Range("A8").Activate
    Selection.Delete Shift:=xlUp
    Columns("E:E").Select
    Selection.ClearContents
    ChDir "C:\Billing Export"
    ActiveWorkbook.SaveAs FileFormat:=xlCSV, Local:=True, CreateBackup:=False
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.Quit
End Sub

任何帮助将不胜感激！

Answer 1

我不能只是猜测什么不适合你，但合并/替换宏应该是直截了当的......

用下面的替换VBScript文件中的当前代码，保存并运行看看这是不是你想要的

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = False
Set objWorkbook = objExcel.Workbooks.Open("C:\scripts\test.xls")
       Set xlmodule = objworkbook.VBProject.VBComponents.Add(1) 
       strCode = _
        "Sub Billing_Cleanup()" & vbCr & _
        "    Columns(""A:A"").Select" & vbCr & _
        "    Selection.Delete Shift:=xlToLeft" & vbCr & _
        "    Rows(""1:8"").Select" & vbCr & _
        "    Range(""A8"").Activate" & vbCr & _
        "    Selection.Delete Shift:=xlUp" & vbCr & _
        "    Columns(""E:E"").Select" & vbCr & _
        "    Selection.ClearContents" & vbCr & _
        "    ChDir ""C:\Billing Export""" & vbCr & _
        "    ActiveWorkbook.SaveAs FileFormat:=xlCSV, Local:=True, CreateBackup:=False" & vbCr & _
        "    Application.WindowState = xlMinimized" & vbCr & _
        "    Application.WindowState = xlNormal" & vbCr & _
        "    Application.DisplayAlerts = False" & vbCr & _
        "    ActiveWorkbook.Close" & vbCr & _
        "    Application.Quit" & vbCr & _
        "End Sub"
       xlmodule.CodeModule.AddFromString strCode

objExcel.Application.Run "test.xls!Billing_Cleanup"  
objWorkbook.Save
objExcel.Quit

注意一个额外的" 双引号来转义字符串中的引号