반응형
엑셀 파일명 및 경로는 d:\test.xlsm 임.
Sub Outlook_Run_Excel_Macro()
Dim appExcel As Excel.Application
Dim wkb As Excel.Workbook
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Open ("d:\test.xlsm")
appExcel.Visible = True
appExcel.Run "'test.xlsm'!프로시저"
'appExcel.ActiveWorkbook.Close
'appExcel.Quit
Set appExcel = Nothing
Set wkb = Nothing
End Sub
반응형
댓글