Запуск скрипта vbs с использованием cmd

Question

Не мог бы кто-нибудь рассказать мне, почему следующий скрипт VB отлично работает, если он выполняется из excel, но не будет работать, если он выполняется с помощью 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 скрипт не знает о бюро и других библиотеках уже загружен при запуске коды внутри первенствует.

Вам необходимо научиться взаимодействовать с интерфейсами COM из офиса в VBscript.

Лучше решение теперь будет программировать на VB.NET и взаимодействовать с Excel в .NET:

Ссылка: VB.NET and excell

код будет по-прежнему выглядят очень знакомо, но это то, что Microsoft хотела бы вас Делай сейчас.

Внимание: Вам всегда понадобится установить Excel на ПК, на котором запущен скрипт! Если вы хотите этого избежать, возможно, посмотрите на что-то вроде Aspose, чтобы сделать что-то без установленного Office ...