<スポンサーリンク>

VBA→VBSの変換!VBS→VBAの起動を!

この記事は約2分で読めます。
コピーボタン
記事のタイトルとURLをコピー
スポンサーリンク

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 ExcelApp
Dim ExcelBook
Dim FilePath
 
FilePath = "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).select
 
ExcelApp.visible = false
 
ExcelApp.Run VBA_P
 
ExcelBook.Close True
ExcelApp.quit
 
Set ExcelApp=Nothing
Set 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 = false
 
ExcelApp.Run VBA_P

Excelを見えないように、マクロをはしらせ

1
2
3
4
5
ExcelBook.Close True
ExcelApp.quit
 
Set ExcelApp=Nothing
Set ExcelBook=Nothing

これで、エクセルを閉じております。

活用方法

活用方法としては、

1ヶ月、1週間毎に繰り返し行う集計、更新作業などを、
ワンクリックで更新することができるようになります。

また、

ExcelApp.visible = True '←F
'コメントに変換 ExcelBook.Close True

で、エクセルファイルをそのまま立ち上げたまま、
チェック作業に入ることも可能です。

コピーボタン
記事のタイトルとURLをコピー
エクセルマクロVBA
スポンサーリンク
スポンサーリンク
nujonoaをフォローする

コメント欄

<スポンサーリンク>
タイトルとURLをコピーしました