Eseguire due files .xlsm contemporaneamente con un VBScript

Question

Salve a tutti, 

qualche tempo fa Mauro mi ha dato un VBScript per lanciare in "modalita' silenzioso" un file .xlsm che ha delle macro attivate regolarmente con la funzione OnTime. Mi chiedevo: nel caso in cui, nello stesso server, volessi fare girare piu' di un file insieme (con macro automatizzate anch'esso), e' possibile farlo dallo stesso VBScript? In modo che con il doppio click sul VBScript mi si lancino in processo entrambi i files (con macro inseme) in silenzioso?

Grazie in anticipo!

Answer 1

Salve a tutti, 

qualche tempo fa Mauro mi ha dato un VBScript per lanciare in "modalita' silenzioso" un file .xlsm che ha delle macro attivate regolarmente con la funzione OnTime. Mi chiedevo: nel caso in cui, nello stesso server, volessi fare girare piu' di un file insieme (con macro automatizzate anch'esso), e' possibile farlo dallo stesso VBScript? In modo che con il doppio click sul VBScript mi si lancino in processo entrambi i files (con macro inseme) in silenzioso?

Grazie in anticipo!

Ciao Matteo,

direi di sì, a patto che istanzi i file separatamente:

Set xlBook1 = xlApp.Workbooks.Open("File1")

xlBook1 .Run "Macro1"

Set xlBook2 = xlApp.Workbooks.Open("File2")

xlBook2.Run "Macro2"

Andrea.

Answer 2

Grazie Andrea,

ha funzionato. L'unica cosa e' che ho dovuto separare i due VBScripts, perche' non riusciva a lanciarli contemporaneamente anche stanziando due istanze diverse. Ma non e' un problema, con due diversi VBScripts i due files girano insieme!

Ci devono essere due diversi oggetti Application nello stesso vbs. Poi ciascun oggetto Application aprirà il suo Workbook e lancerà la sua macro:

     Dim objExcel_1

     Dim objWorkbook_1

     Dim objExcel_2

     Dim objWorkbook_2

     Dim CurrDir

    CurrDir = Left(WScript.ScriptFullName, (Len(WScript.ScriptFullName)) - (Len(WScript.ScriptName)))

     Set objExcel_1 = CreateObject("Excel.Application")

     Set objWorkbook_1 = objExcel_1.Workbooks.Open( _

         CurrDir & "\tuoFile_1.xlsm")

     Set objExcel_2 = CreateObject("Excel.Application")

     Set objWorkbook_2 = objExcel_2.Workbooks.Open( _

         CurrDir & "\tuoFile_2.xlsm")

    objExcel_1.Visible = False

    objWorkbook_1.Application.Run("m_1")

    objExcel_2.Visible = False

    objWorkbook_2.Application.Run("m_2")

Answer 3

Grazie Andrea,

ha funzionato. L'unica cosa e' che ho dovuto separare i due VBScripts, perche' non riusciva a lanciarli contemporaneamente anche stanziando due istanze diverse. Ma non e' un problema, con due diversi VBScripts i due files girano insieme!