excel - 在存储在另一个文件中的 CSV 文件上运行宏

Question

我有一个每天收到的 CSV 文件，我使用存储在我的个人宏文件中的宏对其进行格式化。我正在尝试创建一个 vbs 文件，该文件将通过计划任务在 CSV 文件上运行宏，但我没有运气。这是vbs文件:

Option Explicit

ExcelMacroExample

Sub ExcelMacroExample() 
  Dim xlApp 
  Dim xlBook 

  Set xlApp = CreateObject("Excel.Application") 
  Set xlBook = xlApp.Workbooks.Open("c:\users\dmcgettigan\desktop\test.csv", 0, True) 
  xlApp.Run "c:\users\dmcgettigan\desktop\Personal.xlsb!newsales"
  xlApp.Quit 

  Set xlBook = Nothing 
  Set xlApp = Nothing 
End Sub 

这是我得到的错误:

C:\Users\dmcgettigan\Desktop\test.vbs(13, 3) Microsoft Excel: Cannot run the macro 'c:\users\dmcgettigan\desktop\Personal.xlsb!new sales'. The macro may not be available in this workbook or all macros may be disabled.

关于我做错了什么的任何想法？

Answer 1

对我来说，它就是这样工作的

  Dim xlApp 

  Set xlApp = CreateObject("Excel.Application") 
  xlapp.workbooks.open("<Path to your PERSONAL.XLSB>")
  xlApp.Run "PERSONAL.XLSB!Test"  
  xlApp.Quit 

评论也对，你要运行的子名称不能有空格。

更新 如果无法对其进行测试，您的代码应该如下所示

Option Explicit

ExcelMacroExample

Sub ExcelMacroExample() 
  Dim xlApp 
  Dim xlBook 

  Set xlApp = CreateObject("Excel.Application") 
  Set xlBook = xlApp.Workbooks.Open("c:\users\dmcgettigan\desktop\test.csv", 0, True) 
  xlapp.workbooks.open("c:\users\dmcgettigan\desktop\Personal.xlsb")
  xlApp.Run "Personal.xlsb!newsales"
  xlApp.Quit 

  Set xlBook = Nothing 
  Set xlApp = Nothing 
End Sub