Created
June 24, 2017 04:06
-
-
Save akehoyayoi/4ad96a62431b287a9bf33262ae749476 to your computer and use it in GitHub Desktop.
Excel外部起動
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Do While True | |
Dim excelApp : Set excelApp = CreateObject("Excel.Application") | |
' Excelを非表示にする | |
excelApp.Visible = False | |
Dim targetFile : targetFile = "[ファイル名]" | |
Dim targetMacro : targetMacro = "[マクロ名]" | |
' Excelファイルを開く | |
excelApp.Workbooks.Open targetFile | |
' マクロの実行 | |
excelApp.Run targetMacro | |
' Excelの終了 | |
excelApp.Quit | |
Loop | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
下記で実行できる…はず