Run a .vbs script for an .xlsx file from cmd [duplicate] - excel
I'm trying to run an Excel macro from outside of the Excel file. I'm currently using a ".vbs" file run from the command line, but it keeps telling me the macro can't be found. Here is the script I'm trying to use
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("test.xls")
objExcel.Application.Visible = True
objExcel.Workbooks.Add
objExcel.Cells(1, 1).Value = "Test value"
objExcel.Application.Run "Macro.TestMacro()"
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
WScript.Echo "Finished."
WScript.Quit
And here is the Macro I'm trying to access:
Sub TestMacro()
'first set a string which contains the path to the file you want to create.
'this example creates one and stores it in the root directory
MyFile = "C:\Users\username\Desktop\" & "TestResult.txt"
'set and open file for output
fnum = FreeFile()
Open MyFile For Output As fnum
'write project info and then a blank line. Note the comma is required
Write #fnum, "I wrote this"
Write #fnum,
'use Print when you want the string without quotation marks
Print #fnum, "I printed this"
Close #fnum
End Sub
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. I keep getting the error `Microsoft Office Excel: The macro 'Macro.TestMacro' cannot be found.
EDIT: Excel 2003.
Ok, it's actually simple. Assuming that your macro is in a module,not in one of the sheets, you use:
objExcel.Application.Run "test.xls!dog"
'notice the format of 'workbook name'!macro
For a filename with spaces, encase the filename with quotes.
If you've placed the macro under a sheet, say sheet1, just assume sheet1 owns the function, which it does.
objExcel.Application.Run "'test 2.xls'!sheet1.dog"
Notice: You don't need the macro.testfunction notation you've been using.
This code will open the file Test.xls and run the macro TestMacro which will in turn write to the text file TestResult.txt
Option Explicit
Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")
'~~> Change Path here
Set xlBook = xlApp.Workbooks.Open("C:\Test.xls", 0, True)
xlApp.Run "TestMacro"
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
WScript.Echo "Finished."
WScript.Quit
Since my related question was removed by a righteous hand after I had killed the whole day searching how to beat the "macro not found or disabled" error, posting here the only syntax that worked for me (application.run didn't, no matter what I tried)
Set objExcel = CreateObject("Excel.Application")
' Didn't run this way from the Modules
'objExcel.Application.Run "c:\app\Book1.xlsm!Sub1"
' Didn't run this way either from the Sheet
'objExcel.Application.Run "c:\app\Book1.xlsm!Sheet1.Sub1"
' Nor did it run from a named Sheet
'objExcel.Application.Run "c:\app\Book1.xlsm!Named_Sheet.Sub1"
' Only ran like this (from the Module1)
Set objWorkbook = objExcel.Workbooks.Open("c:\app\Book1.xlsm")
objExcel.Run "Sub1"
Excel 2010, Win 7
I tried to adapt #Siddhart's code to a relative path to run my open_form macro, but it didn't seem to work. Here was my first attempt. My working solution is below.
Option Explicit
Dim xlApp, xlBook
dim fso
dim curDir
set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")
set fso = nothing
Set xlApp = CreateObject("Excel.Application")
'~~> Change Path here
Set xlBook = xlApp.Workbooks.Open(curDir & "Excels\CLIENTES.xlsb", 0, true)
xlApp.Run "open_form"
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
WScript.Echo "Finished."
EDIT
I have actually worked it out, just in case someone wants to run a userform "alike" a stand alone application:
Issues I was facing:
1 - I did not want to use the Workbook_Open Event as the excel is locked in read only.
2 - The batch command is limited that the fact that (to my knowledge) it cannot call the macro.
I first wrote a macro to launch my userform while hiding the application:
Sub open_form()
Application.Visible = False
frmAddClient.Show vbModeless
End Sub
I then created a vbs to launch this macro (doing it with a relative path has been tricky):
dim fso
dim curDir
dim WinScriptHost
set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")
set fso = nothing
Set xlObj = CreateObject("Excel.application")
xlObj.Workbooks.Open curDir & "\Excels\CLIENTES.xlsb"
xlObj.Run "open_form"
And I finally did a batch file to execute the VBS...
#echo off
pushd %~dp0
cscript Add_Client.vbs
Note that I have also included the "Set back to visible" in my Userform_QueryClose:
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Close SaveChanges:=True
Application.Visible = True
Application.Quit
End Sub
Anyway, thanks for your help, and I hope this will help if someone needs it
I tried the above methods but I got the "macro cannot be found" error.
This is final code that worked!
Option Explicit
Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
' Import Add-Ins
xlApp.Workbooks.Open "C:\<pathOfXlaFile>\MyMacro.xla"
xlApp.AddIns("MyMacro").Installed = True
'
Open Excel workbook
Set xlBook = xlApp.Workbooks.Open("<pathOfXlsFile>\MyExcel.xls", 0, True)
' Run Macro
xlApp.Run "Sheet1.MyMacro"
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
WScript.Quit
In my case, MyMacro happens to be under Sheet1, thus Sheet1.MyMacro.
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.
Since this required a VBS Script, I wanted to make it "portable" so I could use it by passing arguments. Here is the final script, which takes 3 arguments.
Full Path to Workbook
Macro Name
[OPTIONAL] Path to separate workbook with Macro
I tested it like so:
"C:\Temp\runmacro.vbs" "C:\Temp\Book1.xlam" "Hello"
"C:\Temp\runmacro.vbs" "C:\Temp\Book1.xlsx" "Hello" "%AppData%\Microsoft\Excel\XLSTART\Book1.xlam"
runmacro.vbs:
Set args = Wscript.Arguments
ws = WScript.Arguments.Item(0)
macro = WScript.Arguments.Item(1)
If wscript.arguments.count > 2 Then
macrowb= WScript.Arguments.Item(2)
End If
LaunchMacro
Sub LaunchMacro()
Dim xl
Dim xlBook
Set xl = CreateObject("Excel.application")
Set xlBook = xl.Workbooks.Open(ws, 0, True)
If wscript.arguments.count > 2 Then
Set macrowb= xl.Workbooks.Open(macrowb, 0, True)
End If
'xl.Application.Visible = True ' Show Excel Window
xl.Application.run macro
'xl.DisplayAlerts = False ' suppress prompts and alert messages while a macro is running
'xlBook.saved = True ' suppresses the Save Changes prompt when you close a workbook
'xl.activewindow.close
xl.Quit
End Sub
If you are trying to run the macro from your personal workbook it might not work as opening an Excel file with a VBScript doesnt automatically open your PERSONAL.XLSB. you will need to do something like this:
Dim oFSO
Dim oShell, oExcel, oFile, oSheet
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
Set oExcel = CreateObject("Excel.Application")
Set wb2 = oExcel.Workbooks.Open("C:\..\PERSONAL.XLSB") 'Specify foldername here
oExcel.DisplayAlerts = False
For Each oFile In oFSO.GetFolder("C:\Location\").Files
If LCase(oFSO.GetExtensionName(oFile)) = "xlsx" Then
With oExcel.Workbooks.Open(oFile, 0, True, , , , True, , , , False, , False)
oExcel.Run wb2.Name & "!modForm"
For Each oSheet In .Worksheets
oSheet.SaveAs "C:\test\" & oFile.Name & "." & oSheet.Name & ".txt", 6
Next
.Close False, , False
End With
End If
Next
oExcel.Quit
oShell.Popup "Conversion complete", 10
So at the beginning of the loop it is opening personals.xlsb and running the macro from there for all the other workbooks. Just thought I should post in here just in case someone runs across this like I did but cant figure out why the macro is still not running.
Hi used this thread to get the solution , then i would like to share what i did just in case someone could use it.
What i wanted was to call a macro that change some cells and erase some rows, but i needed for more than 1500 excels( approximately spent 3 minuts for each file)
Mainly problem:
-when calling the macro from vbe , i got the same problem, it was imposible to call the macro from PERSONAL.XLSB, when the script oppened the excel didnt execute personal.xlsb and wasnt any option in the macro window
I solved this by keeping open one excel file with the macro loaded(a.xlsm)(before executing the script)
Then i call the macro from the excel oppened by the script
Option Explicit
Dim xl
Dim counter
counter =10
Do
counter = counter + 1
Set xl = GetObject(, "Excel.Application")
xl.Application.Workbooks.open "C:\pruebas\macroxavi\IA_030-08-026" & counter & ".xlsx"
xl.Application.Visible = True
xl.Application.run "'a.xlsm'!eraserow"
Set xl = Nothing
Loop Until counter = 517
WScript.Echo "Finished."
WScript.Quit
Related
VBScript and running a macro from an excel spreadshet
I have tried and tried and tried, and nearing my limits now. Originally i was trying to run a macro from PERSONAL.XLSB, and kept running into ' The Macro may not be available in this workbook, or macros not enabled Code: 800A03EC.' So i moved onto just a plain test workbook.xlsm, added Module1 in developer. (Presuming there were issues with PERSONAL.) I am still getting the same errors. The workbook opens fine, it always errors on .Run. In the code below i have included the various variations i have tried off .Run, no doubt i have done something very silly and the problem in obvious. The workbook opens fine. 'On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") sFolder = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"\")) Set folder = fso.GetFolder(sFolder) Set file = folder.Files 'edit excel csv file. Set objExcel = CreateObject("Excel.Application") objExcel.DisplayAlerts = False filePath = SFolder & "MMFILE_2ndWave_20161205_CUSTOMER.xlsm" Set xlBook = objExcel.Workbooks.Open(filePath, 0, True) objExcel.Visible = True objExcel.Run filePath & "!Module1" 'objExcel.Run "Module1" 'objExcel.Run "'MMFILE_2ndWave_20161205_CUSTOMER.xlsm'!Module1" 'objExcel.Application.Run "Module1" 'objExcel.Application.Run filePath & "!Module1" 'objExcel.Application.Run "'" & xlBook1.Name & "'!Module.Module3" msgbox "finished"
Running excel macro for excel books that does not contain that macro
I need to run a macro that is not present in my excel document, it is recorded in another excel doc or in another file if it is possible. I have tried to open two excel books, first that contains that macro and the second one that does not contain and when I run that macro it says that my excel book does not contain that macro. Option Explicit Dim x1App, x1Book, x2App, x2Book dim fso dim curDir set fso = CreateObject("Scripting.FileSystemObject") curDir = fso.GetAbsolutePathName(".") set fso = nothing Set x1App = CreateObject("Excel.Application") Set x2App = CreateObject("Excel.Application") '~~> Change Path here Set x1Book = x1App.Workbooks.Open(curDir & "\test.xlsm", 0, true) Set x2Book = x2App.Workbooks.Open(curDir & "\perf.csv", 0, true) x1App.visible = true x2App.visible = true x1App.Run "MyMacro" x2App.Run "MyMacro" xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Echo "Finished." So here my macro is in test.xlsm excel file and i want to run it on perf.csv. In this way I can't do it. Is there any other way to do this kind of staff? I have also exported the macro to the file than copied the content of the macro to my *.vbs script to run it directly from their and also no success.
Here is the working example of the code Option Explicit Dim x1App, x1Book, x2App, x2Book dim fso dim curDir set fso = CreateObject("Scripting.FileSystemObject") curDir = fso.GetAbsolutePathName(".") set fso = nothing Set x1App = CreateObject("Excel.Application") Set x1Book = x1App.Workbooks.Open(curDir & "\macro_for_creating_charts") Set x2Book = x1App.Workbooks.Open(curDir & "\agent_perf.csv") 'x1App.visible = true x1App.Run "macro_for_creating_charts.xlsm!Macro4" x1App.ActiveWorkbook.Close(False) x1App.Quit
VB Script to open all Excel Files in a folder and run macros present in them
I'm trying to get to a VB Script that opens every Excel file in a given folder, runs the macro written in them (the macro is written as Workbook_Open() so it executes automatically) and the closes the files. Currently, I have this code I have pasted below, but it does not work. It simply shows the messages that it has completed opening on macros, but does nothing to the workbooks. OpenAllFiles() MsgBox "Completed opening all Excel files in the folder." Sub OpenAllFiles() dim fso dim thisfolder dim allfiles Set WshShell = WScript.CreateObject("WScript.Shell") set fso= Wscript.CreateObject("Scripting.FileSystemObject") set thisfolder = fso.GetFolder("C:\Users\ad6975\Desktop\Project\02 2014 IC\04 IC4\02 Goal Reporting\Test") set allfiles = thisfolder.Files Dim XL Set XL = CreateObject("excel.application") For each onefile in allfiles if (onefile.type = "Microsoft Office Excel 97-2003 Worksheet" Or onefile.type = "Microsoft Excel Worksheet") then Dim XLWkbk Set XLWkbk = XL.Workbooks.Open(onefile) XL.DisplayAlerts = False Call XLWkbk.SaveAs(onefile.Path, 56, , , , , ,2) XLWkbk.Close Set XLWkbk = Nothing end if Next XL.Quit Set XL = Nothing End Sub
VBA run from cmd line doesn't work but in Excel Macro editor is ok
I've got a strange issue in my small VBA/Excel app. I've got a vbs script which starts an Excel Macro: Option Explicit Dim excelObject Set excelObject = CreateObject("Excel.Application") excelObject.DisplayAlerts = False excelObject.AskToUpdateLinks = False excelObject.AlertBeforeOverwriting = False excelObject.WorkBooks.Open "C:\test\test.xlsm", 0, True excelObject.Run "Make_Output.Update_Data_In_Another_Excel_Document" excelObject.Quit(0) this Excel Macro opens another Excel document and modifies some data there. My problem happens when I run it from command line. Sometimes I receive error : "File not found: " exception although I haven't changed anything in the app. For instance when I run the app on another machine. When I open the Excel doc and run it manually from Excel Macro editor all is fine. I have no idea what can be the issue although I've already went through the manual. Maybe it is connected with compilation of macros by EXCEL. Additional info: Version: Microsoft Excel 2010 - 14.0.7015 - 32-bit but my system is 64-bit Any hints appreciated. Thanks. foxrafi
My VBScript File (OpenExcel.vbs) Set oFSO = CreateObject("Scripting.FileSystemObject") Set xlApp = CreateObject("Excel.Application") File = oFSO.GetParentFolderName(Wscript.ScriptFullName) & _ "\run this to open other files macro.xlsm" xlApp.DisplayAlerts = False Set xlWorkBook = xlApp.Workbooks.Open(File) xlApp.Visible = True 'or False xlApp.Run "'C:\Users\Pavle\Desktop\testvbscript.xlsm'!TestVBScript" The Macro in that sheet Sub Meow() Dim objExcel As Object Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Open ("C:\Users\Pavle\Desktop\testvbscript.xlsm") objExcel.Visible = True objExcel.Run "'C:\Users\Pavle\Desktop\testvbscript.xlsm'!TestVBScript" objExcel.ActiveWorkbook.Close objExcel.Quit Set objExcel = Nothing End Sub Then the last macro to open random file to modify cell Sub TestVBScript() MsgBox "Running VBScript to run this macro worked." Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists("C:\Users\Pavle\Desktop\test.xlsx") Then Set FileToModify = Workbooks.Open("C:\Users\Pavle\Desktop\test.xlsx") Set OpenFile = FileToModify.Sheets("Sheet1") OpenFile.Cells(1, "A").Value = "OOOHHH YEAAHHHH." FileToModify.Save FileToModify.Close Debug.Print "yes" Else Debug.Print "no" End If End Sub
Run Excel Macro from Outside Excel Using VBScript From Command Line
I'm trying to run an Excel macro from outside of the Excel file. I'm currently using a ".vbs" file run from the command line, but it keeps telling me the macro can't be found. Here is the script I'm trying to use Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("test.xls") objExcel.Application.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Test value" objExcel.Application.Run "Macro.TestMacro()" objExcel.ActiveWorkbook.Close objExcel.Application.Quit WScript.Echo "Finished." WScript.Quit And here is the Macro I'm trying to access: Sub TestMacro() 'first set a string which contains the path to the file you want to create. 'this example creates one and stores it in the root directory MyFile = "C:\Users\username\Desktop\" & "TestResult.txt" 'set and open file for output fnum = FreeFile() Open MyFile For Output As fnum 'write project info and then a blank line. Note the comma is required Write #fnum, "I wrote this" Write #fnum, 'use Print when you want the string without quotation marks Print #fnum, "I printed this" Close #fnum End Sub 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. I keep getting the error `Microsoft Office Excel: The macro 'Macro.TestMacro' cannot be found. EDIT: Excel 2003.
Ok, it's actually simple. Assuming that your macro is in a module,not in one of the sheets, you use: objExcel.Application.Run "test.xls!dog" 'notice the format of 'workbook name'!macro For a filename with spaces, encase the filename with quotes. If you've placed the macro under a sheet, say sheet1, just assume sheet1 owns the function, which it does. objExcel.Application.Run "'test 2.xls'!sheet1.dog" Notice: You don't need the macro.testfunction notation you've been using.
This code will open the file Test.xls and run the macro TestMacro which will in turn write to the text file TestResult.txt Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") '~~> Change Path here Set xlBook = xlApp.Workbooks.Open("C:\Test.xls", 0, True) xlApp.Run "TestMacro" xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Echo "Finished." WScript.Quit
Since my related question was removed by a righteous hand after I had killed the whole day searching how to beat the "macro not found or disabled" error, posting here the only syntax that worked for me (application.run didn't, no matter what I tried) Set objExcel = CreateObject("Excel.Application") ' Didn't run this way from the Modules 'objExcel.Application.Run "c:\app\Book1.xlsm!Sub1" ' Didn't run this way either from the Sheet 'objExcel.Application.Run "c:\app\Book1.xlsm!Sheet1.Sub1" ' Nor did it run from a named Sheet 'objExcel.Application.Run "c:\app\Book1.xlsm!Named_Sheet.Sub1" ' Only ran like this (from the Module1) Set objWorkbook = objExcel.Workbooks.Open("c:\app\Book1.xlsm") objExcel.Run "Sub1" Excel 2010, Win 7
I tried to adapt #Siddhart's code to a relative path to run my open_form macro, but it didn't seem to work. Here was my first attempt. My working solution is below. Option Explicit Dim xlApp, xlBook dim fso dim curDir set fso = CreateObject("Scripting.FileSystemObject") curDir = fso.GetAbsolutePathName(".") set fso = nothing Set xlApp = CreateObject("Excel.Application") '~~> Change Path here Set xlBook = xlApp.Workbooks.Open(curDir & "Excels\CLIENTES.xlsb", 0, true) xlApp.Run "open_form" xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Echo "Finished." EDIT I have actually worked it out, just in case someone wants to run a userform "alike" a stand alone application: Issues I was facing: 1 - I did not want to use the Workbook_Open Event as the excel is locked in read only. 2 - The batch command is limited that the fact that (to my knowledge) it cannot call the macro. I first wrote a macro to launch my userform while hiding the application: Sub open_form() Application.Visible = False frmAddClient.Show vbModeless End Sub I then created a vbs to launch this macro (doing it with a relative path has been tricky): dim fso dim curDir dim WinScriptHost set fso = CreateObject("Scripting.FileSystemObject") curDir = fso.GetAbsolutePathName(".") set fso = nothing Set xlObj = CreateObject("Excel.application") xlObj.Workbooks.Open curDir & "\Excels\CLIENTES.xlsb" xlObj.Run "open_form" And I finally did a batch file to execute the VBS... #echo off pushd %~dp0 cscript Add_Client.vbs Note that I have also included the "Set back to visible" in my Userform_QueryClose: Private Sub cmdClose_Click() Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ThisWorkbook.Close SaveChanges:=True Application.Visible = True Application.Quit End Sub Anyway, thanks for your help, and I hope this will help if someone needs it
I tried the above methods but I got the "macro cannot be found" error. This is final code that worked! Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True ' Import Add-Ins xlApp.Workbooks.Open "C:\<pathOfXlaFile>\MyMacro.xla" xlApp.AddIns("MyMacro").Installed = True ' Open Excel workbook Set xlBook = xlApp.Workbooks.Open("<pathOfXlsFile>\MyExcel.xls", 0, True) ' Run Macro xlApp.Run "Sheet1.MyMacro" xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Quit In my case, MyMacro happens to be under Sheet1, thus Sheet1.MyMacro.
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. Since this required a VBS Script, I wanted to make it "portable" so I could use it by passing arguments. Here is the final script, which takes 3 arguments. Full Path to Workbook Macro Name [OPTIONAL] Path to separate workbook with Macro I tested it like so: "C:\Temp\runmacro.vbs" "C:\Temp\Book1.xlam" "Hello" "C:\Temp\runmacro.vbs" "C:\Temp\Book1.xlsx" "Hello" "%AppData%\Microsoft\Excel\XLSTART\Book1.xlam" runmacro.vbs: Set args = Wscript.Arguments ws = WScript.Arguments.Item(0) macro = WScript.Arguments.Item(1) If wscript.arguments.count > 2 Then macrowb= WScript.Arguments.Item(2) End If LaunchMacro Sub LaunchMacro() Dim xl Dim xlBook Set xl = CreateObject("Excel.application") Set xlBook = xl.Workbooks.Open(ws, 0, True) If wscript.arguments.count > 2 Then Set macrowb= xl.Workbooks.Open(macrowb, 0, True) End If 'xl.Application.Visible = True ' Show Excel Window xl.Application.run macro 'xl.DisplayAlerts = False ' suppress prompts and alert messages while a macro is running 'xlBook.saved = True ' suppresses the Save Changes prompt when you close a workbook 'xl.activewindow.close xl.Quit End Sub
If you are trying to run the macro from your personal workbook it might not work as opening an Excel file with a VBScript doesnt automatically open your PERSONAL.XLSB. you will need to do something like this: Dim oFSO Dim oShell, oExcel, oFile, oSheet Set oFSO = CreateObject("Scripting.FileSystemObject") Set oShell = CreateObject("WScript.Shell") Set oExcel = CreateObject("Excel.Application") Set wb2 = oExcel.Workbooks.Open("C:\..\PERSONAL.XLSB") 'Specify foldername here oExcel.DisplayAlerts = False For Each oFile In oFSO.GetFolder("C:\Location\").Files If LCase(oFSO.GetExtensionName(oFile)) = "xlsx" Then With oExcel.Workbooks.Open(oFile, 0, True, , , , True, , , , False, , False) oExcel.Run wb2.Name & "!modForm" For Each oSheet In .Worksheets oSheet.SaveAs "C:\test\" & oFile.Name & "." & oSheet.Name & ".txt", 6 Next .Close False, , False End With End If Next oExcel.Quit oShell.Popup "Conversion complete", 10 So at the beginning of the loop it is opening personals.xlsb and running the macro from there for all the other workbooks. Just thought I should post in here just in case someone runs across this like I did but cant figure out why the macro is still not running.
Hi used this thread to get the solution , then i would like to share what i did just in case someone could use it. What i wanted was to call a macro that change some cells and erase some rows, but i needed for more than 1500 excels( approximately spent 3 minuts for each file) Mainly problem: -when calling the macro from vbe , i got the same problem, it was imposible to call the macro from PERSONAL.XLSB, when the script oppened the excel didnt execute personal.xlsb and wasnt any option in the macro window I solved this by keeping open one excel file with the macro loaded(a.xlsm)(before executing the script) Then i call the macro from the excel oppened by the script Option Explicit Dim xl Dim counter counter =10 Do counter = counter + 1 Set xl = GetObject(, "Excel.Application") xl.Application.Workbooks.open "C:\pruebas\macroxavi\IA_030-08-026" & counter & ".xlsx" xl.Application.Visible = True xl.Application.run "'a.xlsm'!eraserow" Set xl = Nothing Loop Until counter = 517 WScript.Echo "Finished." WScript.Quit