One of the more common questions I get revolves around running an Excel macro from Access. That is, how do you fire an existing Excel macro from Access.
I'll share the code to do that in a moment.
I first want to point out that this code can also come in handy if you need to run an external Excel macro in another workbook. That is to say, while you are working in an Excel file, you can reach out and run a macro in another workbook.
OK. Here it is. Simply paste this code in a new module.
- Sub RunExcelMacro()
- Dim xl As Object
- 'Step 1: Start Excel, then open the target workbook.
- Set xl = CreateObject("Excel.Application")
- xl.Workbooks.Open ("C:\Book1.xlsm")
- 'Step 2: Make Excel visible
- xl.Visible = True
- 'Step 3: Run the target macro
- xl.Run "MyMacro"
- 'Step 4: Close and save the workbook, then close Excel
- xl.ActiveWorkbook.Close (True)
- xl.Quit
- 'Step 5: Memory Clean up.
- Set xl = Nothing
- End Sub
Some notes on the code:
Step 1: Create a new instance of Excel, open the target workbook; the workbook that contains the macro you need to run.
Step 2: Making Excel Visible. By default, Excel will open and run in the background (invisible to you). You can set the Visible property to TRUE if you need to see the workbook. If you don't want to see the Excel workbook while the macro is running, simply set the Visible property to FALSE.
Step 3: Run the target macro
Step 4: Close and save the target workbook. The True argument in xlwkbk.Close(True) indicates that you want the workbook saved after the macro has run. If you do not want to save the target workbook, change this argument to False. Also in Step 4, you quit the Excel application, effectively closing the instance of Excel.
Step 5: Release the objects assigned to your variables, reducing the chance of any problems caused by rogue objects that may remain open in memory.