|
2025,03,15, Saturday
XLS マクロ自動実行
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1016840995 '=================================== myXLS = "C:\soft\bas\rain.xls" myMACRO = "Macro1" '=================================== Set myEXE = CreateObject("Excel.Application") myEXE.Visible = True Set myBK = myEXE.Workbooks.Open(myXLS, 0, ,,,,True) myEXE.Run myBK.Name & "!" & myMACRO myBK.Save myEXE.Quit Set myBK = Nothing Set myEXE = Nothing |