lawestern.blogg.se

Set xlBook = xl.Workbooks.Open(ws, 0, True) Set xl = CreateObject("Excel.application") Runmacro.vbs: Set args = Wscript.Arguments

"C:\Temp\runmacro.vbs" "C:\Temp\Book1.xlsx" "Hello" "%AppData%\Microsoft\Excel\XLSTART\Book1.xlam" I tested it like so: "C:\Temp\runmacro.vbs" "C:\Temp\Book1.xlam" "Hello"

Here is the final script, which takes 3 arguments. Since this required a VBS Script, I wanted to make it "portable" so I could use it by passing arguments. I generally store my macros in xlam add-ins separately from my workbooks so I wanted to open a workbook and then run a macro stored separately. Private Sub UserForm_Quer圜lose(Cancel As Integer, CloseMode As Integer)Īnyway, thanks for your help, and I hope this will help if someone needs it Note that I have also included the "Set back to visible" in my Userform_Quer圜lose: Private Sub cmdClose_Click() curDir & "\Excels\CLIENTES.xlsb"Īnd I finally did a batch file to execute the VBS. Set xlObj = CreateObject("Excel.application") I then created a vbs to launch this macro (doing it with a relative path has been tricky): dim fso I first wrote a macro to launch my userform while hiding the application: Sub open_form() I have actually worked it out, just in case someone wants to run a userform "alike" a stand alone application:ġ - I did not want to use the Workbook_Open Event as the excel is locked in read only.Ģ - The batch command is limited that the fact that (to my knowledge) it cannot call the macro. Set xlBook = (curDir & "Excels\CLIENTES.xlsb", 0, true) Set xlApp = CreateObject("Excel.Application") Set fso = CreateObject("Scripting.FileSystemObject") I tried to adapt code to a relative path to run my open_form macro, but it didn't seem to work. I keep getting the error `Microsoft Office Excel: The macro 'Macro.TestMacro' cannot be found. I tried the solutions located at Is it possible to run a macro in Excel from external command? to get this far (and modified of course) but it didn't seem to work. 'use Print when you want the string without quotation marks 'write project info and then a blank line. MyFile = "C:\Users\username\Desktop\" & "TestResult.txt" 'this example creates one and stores it in the root directory 'first set a string which contains the path to the file you want to create. "Macro.TestMacro()"Īnd here is the Macro I'm trying to access: Sub TestMacro() ObjExcel.Cells(1, 1).Value = "Test value" Here is the script I'm trying to use Set objExcel = CreateObject("Excel.Application")

I'm currently using a ".vbs" file run from the command line, but it keeps telling me the macro can't be found. I'm trying to run an Excel macro from outside of the Excel file.