programación - Ejecutando archivo VBScript desde macros VBA de Excel

visual basic excel 2013

Question

Necesito algunos ejemplos de Excel vba, donde con el código VBA (Macro de Excel) podría llamar a un VBScript y obtendré algunos valores como el nombre de archivo y la información del directorio de vbscript y los asignaré a las variables en código VBA. Gracias de antemano

Algo como esto

Macro 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

Answer 1

Se puede hacer, pero tendría que estar de acuerdo con Tomalak y otros en que no es la mejor manera de hacerlo. Sin embargo, dicho esto, VBScript puede hacer maravillas ocasionalmente si lo usa como una especie de mecanismo de disparo y olvido. Se puede usar con bastante eficacia para simular el multi-threading en VBA por lo que descompone la carga útil y la distribuye a VBScripts individuales para que se ejecuten de forma independiente. Por ejemplo, podría organizar un "enjambre" de VBScripts individuales para la descarga masiva de sitios web en segundo plano, mientras que VBA continúa con otro código.

A continuación se muestra un código de VBA que he simplificado para mostrar lo que se puede hacer y escribe un simple VBScript sobre la marcha. Normalmente prefiero ejecutarlo usando ''wshShell.Run """" & SFilename & """" que significa que puedo olvidarlo pero he incluido en este ejemplo este método Set proc = wshShell.exec(strexec) que permite una prueba del objeto para completar

Pon esto en 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 & Calls Function Module1.ReturnVBScript)
    s = s & "Set objExcel = GetObject( , ""Excel.Application"") " & vbCrLf
    s = s & "Set objWorkbook = objExcel.Workbooks(""" & ThisWorkbook.Name & """)" & vbCrLf
    s = s & "Set oShell = CreateObject(""WScript.Shell"")" & vbCrLf
    s = s & "Msgbox (""" & test1 & """)" & vbCrLf
    s = s & "Msgbox (""" & test2 & """)" & vbCrLf
    s = s & "Set oFSO = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf
    s = s & "oShell.CurrentDirectory = oFSO.GetParentFolderName(Wscript.ScriptFullName)" & vbCrLf
    s = s & "objWorkbook.sheets(""Sheet1"").Range(""" & "A1" & """) = oShell.CurrentDirectory" & vbCrLf
    s = s & "Set objWMI = objWorkbook.Application.Run(""Module1.ReturnVBScript"", """" & oShell.CurrentDirectory & """")  " & vbCrLf
    s = s & "msgbox(""VBScriptMsg - "" & oShell.CurrentDirectory)" & vbCrLf
    Debug.Print s

    '' Write VBScript file to disk
    SFilename = ActiveWorkbook.path & "/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 " & SFilename & "") '' 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: " & Sheet1.Range("A1"))
    MsgBox ("This passed from VBScript: " & path)

    ''wshShell.Run """" & SFilename & """"

    Kill ActiveWorkbook.path & "/TestVBScript.vbs"
End Sub


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

Esto demostró varias formas en que las variables pueden transmitirse.