使用cmd运行vbs脚本

Question

有人能告诉我为什么如果从excel内执行，下面的VB脚本工作正常，但如果使用cmd执行它将不起作用：cscript c：\ vb \ test.vbs ?.下面是我试图让它使用cmd工作的代码。我使用的是excel .xls（excel 97-2003）。

Private Sub CopyData() 
    Dim x 
    Dim y 

    '## Open both workbooks first: 
    Set x = Workbooks.Open("C:\VB\CopyDataTest.xls") 

    'Now, copy what you want from x: 
    Sheets("Sheet1").Range("A:B").Copy 
    Set y = Workbooks.Open("C:\VB\Destination.xls") 

    'Now, paste to y worksheet: 
    y.Sheets("Sheet2").Range("A:B").PasteSpecial 

    'Close x: 
     y.Close 
End Sub 

Answer 1

如果您需要从cmd运行脚本，您需要创建一个excel对象。试试这个：

Private Sub CopyData() 
    Dim x 
    Dim y 

    Set xlApp = CreateObject("Excel.Application") 
    Set xlBook = xlApp.Workbooks.Open("C:\VB\Destination.xls", 0, True) 

    ## Open both workbooks first: 
    Set x = xlApp.Workbooks.Open("C:\VB\Destination.xls") 

    Now, copy what you want from x: 
    xlApp.Sheets("Sheet1").Range("A:B").Copy 
    Set y = xlApp.Workbooks.Open("C:\VB\Destination.xls") 

    Now, paste to y worksheet: 
    y.Sheets("Sheet2").Range("A:B").PasteSpecial 

    Close x: 
    y.Close 
End Sub 

CopyData() 

Answer 2

Mnimonic已经为此提供了一个完美的可用解决方法，但一个解释也可能是有用的。

您已经在VBA中编写了一段代码（Visual Basic for Applications）。

您试图运行它VBS（VB Script）

VB脚本不知道办公室和其他库运行Excel内部代码时已经加载。

您需要了解如何与VBscript中办公室的COM接口进行交互。

更好的解决方案现在将是VB.NET编程和与Excel交互里面.NET：

链接：VB.NET and excell

的代码将仍然看起来很熟悉，但它就是微软想你现在做。

注意：您将始终需要在运行脚本的PC上安装Excel！ 如果你想避免这种情况，也许看看像Aspose一样没有安装Office的东西...