VBA→VBSの変換！VBS→VBAの起動を！
<スポンサーリンク>
VBAでファイル名の変更などを行った場合、
これを他の人にも展開したいなと考えることがあるかと思います。
そこでお勧めするのが、VBSを用いる方法です。
コード
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 | Dim ExcelAppDim ExcelBookDim FilePathFilePath = "G:\共有ドライブ\TEST_FOLDER\utf-8_to_shiftjis.xlsm" '←ここを変更VBA_P = "TEST1" '←ここを変更Set ExcelApp=CreateObject("Excel.Application")Set ExcelBook= ExcelApp.Workbooks.Open(FilePath)ExcelApp.ActiveWorkbook.Worksheets(1).selectExcelApp.visible = falseExcelApp.Run VBA_PExcelBook.Close TrueExcelApp.quitSet ExcelApp=NothingSet ExcelBook=Nothing |
コードの説明
コードは非常に簡単で、
1 2 | Set ExcelApp=CreateObject("Excel.Application")Set ExcelBook= ExcelApp.Workbooks.Open(FilePath) |
でエクセルを立ち上げて
1 | ExcelApp.ActiveWorkbook.Worksheets(1).select |
でワークシートを指定して
1 2 3 | ExcelApp.visible = falseExcelApp.Run VBA_P |
Excelを見えないように、マクロをはしらせ
1 2 3 4 5 | ExcelBook.Close TrueExcelApp.quitSet ExcelApp=NothingSet ExcelBook=Nothing |
これで、エクセルを閉じております。
活用方法
活用方法としては、
1ヶ月、1週間毎に繰り返し行う集計、更新作業などを、
ワンクリックで更新することができるようになります。
また、
ExcelApp.visible = True '←F
'コメントに変換 ExcelBook.Close True
で、エクセルファイルをそのまま立ち上げたまま、
チェック作業に入ることも可能です。
コメント欄