Блог

Мне нужно несколько примеров Excel vba, где с помощью кода VBA (макроса Excel) я мог бы вызвать VBScript и получить некоторые значения, такие как имя файла и информация о каталоге из vbscript, и присвоить их переменным в коде VBA. Заранее благодарю вас

Что-то вроде этого

Макрос VBA:

 Sub Foo2Script
Dim x As Long
x=2
'Call VBscript here
MsgBox scriptresult
End Sub
  

VBScript:

 Dim x, y ,Z
x = x_from_macro
y = x   2
Z = X Y
scriptresult = y,Z
  

Это можно сделать, но я должен согласиться с Томалаком и другими, что это не лучший способ. Однако, говоря это, VBScript иногда может творить чудеса, если вы используете его как своего рода механизм запуска и забывания. Его можно довольно эффективно использовать для имитации многопоточности в VBA, при которой вы разбиваете полезную нагрузку и распределяете ее по отдельным VBScripts для независимого запуска. Например, вы могли бы организовать «рой» отдельных VBScripts для массовой загрузки с веб-сайтов в фоновом режиме, пока VBA продолжает работу с другим кодом.

Ниже приведен некоторый код VBA, который я упростил, чтобы показать, что можно сделать, и записывает простой VBScript «на лету». Обычно я предпочитаю запускать его с помощью, 'wshShell.Run """" amp; SFilename amp; """" что означает, что я могу забыть об этом, но я включил в этот пример этот метод, Set proc = wshShell.exec(strexec) который позволяет проверить объект на завершение

Поместите это в MODULE1

 Option Explicit

Public path As String

Sub writeVBScript()
Dim s As String, SFilename As String
Dim intFileNum As Integer, wshShell As Object, proc As Object


Dim test1 As String
Dim test2 As String

test1 = "VBScriptMsg - Test1 is this variable"
test2 = "VBScriptMsg - Test2 is that variable"

    'write VBScript (Writes to Excel Sheet1!A1 amp; Calls Function Module1.ReturnVBScript)
    s = s amp; "Set objExcel = GetObject( , ""Excel.Application"") " amp; vbCrLf
    s = s amp; "Set objWorkbook = objExcel.Workbooks(""" amp; ThisWorkbook.Name amp; """)" amp; vbCrLf
    s = s amp; "Set oShell = CreateObject(""WScript.Shell"")" amp; vbCrLf
    s = s amp; "Msgbox (""" amp; test1 amp; """)" amp; vbCrLf
    s = s amp; "Msgbox (""" amp; test2 amp; """)" amp; vbCrLf
    s = s amp; "Set oFSO = CreateObject(""Scripting.FileSystemObject"")" amp; vbCrLf
    s = s amp; "oShell.CurrentDirectory = oFSO.GetParentFolderName(Wscript.ScriptFullName)" amp; vbCrLf
    s = s amp; "objWorkbook.sheets(""Sheet1"").Range(""" amp; "A1" amp; """) = oShell.CurrentDirectory" amp; vbCrLf
    s = s amp; "Set objWMI = objWorkbook.Application.Run(""Module1.ReturnVBScript"", """" amp; oShell.CurrentDirectory amp; """")  " amp; vbCrLf
    s = s amp; "msgbox(""VBScriptMsg - "" amp; oShell.CurrentDirectory)" amp; vbCrLf
    Debug.Print s

    ' Write VBScript file to disk
    SFilename = ActiveWorkbook.path amp; "TestVBScript.vbs"
    intFileNum = FreeFile
    Open SFilename For Output As intFileNum
    Print #intFileNum, s
    Close intFileNum
    DoEvents

    ' Run VBScript file
    Set wshShell = CreateObject("Wscript.Shell")
    Set proc = wshShell.exec("cscript " amp; SFilename amp; "") ' run VBScript
    'could also send some variable
    'Set proc = wsh.Exec("cscript VBScript.vbs var1 var2") 'run VBScript passing variables

    'Wait for script to end
    Do While proc.Status = 0
    DoEvents
    Loop

    MsgBox ("This is in Excel: " amp; Sheet1.Range("A1"))
    MsgBox ("This passed from VBScript: " amp; path)

    'wshShell.Run """" amp; SFilename amp; """"

    Kill ActiveWorkbook.path amp; "TestVBScript.vbs"
End Sub


Public Function ReturnVBScript(strText As String)
path = strText
End Function
  

Это продемонстрировало несколько способов передачи переменных.