VBScriptを利用したファイルの複製（Windows11）(Part.1) | 現役エンジニア&プログラミングスクール講師

目標

VBScriptを利用してファイルの複製を行えるようになる。
VBScriptを利用して複製するファイルのタイトルを指定できる。
VBScriptを利用してVBAのプロシージャを呼び出せる

VBScriptプログラムの利用前の準備

VBScriptプログラムの利用前の準備

VBScriptのプログラムを利用するにあたり今回は次の２つのフォルダを準備します。
①VBScriptのファイルを設置しておくフォルダ（「ORIGINALFILE」）です。
②VBScriptがプログラム内で利用するフォルダ（「WORKSPACE」）です。
以下の手順で環境を整えます。

1. デスクトップに「WORKSPACE」フォルダを作成する。
2. デスクトップに「ORIGINALFILE」フォルダを作成する。
3. 「ORIGINALFILE」フォルダにNewFile.vbsを置く
4. 「ORIGINALFILE」フォルダにsamlpe.xlsmを置く

記事では複製するファイルにマクロファイルを使用していますが、普通のエクセルファイルやテキストファイルであっても構いません。その場合はプログラム内の拡張子の変更も必要になりますので注意してください。

「WORKSPACE」フォルダの作成

デスクトップ上に「WORKSPACE」フォルダを作成します。

デスクトップ上の任意の箇所で右クリックして「新規作成」から「フォルダー」をクリックします。

フォルダ名を「新しいフォルダー」から「WORKSPACE」に変更します。

これでWORKSPACEフォルダの準備は終わりです。

「ORIGINALFILE」フォルダの作成

「WORKSPACE」フォルダと同様の手順で「ORIGINALFILE」フォルダを準備します。

「NewFile.vbs」の作成

「ORIGINALFILE」フォルダをダブルクリックしてフォルダを開きます。

「ORIGINALFILE」フォルダ内で新規ファイルを作成します。

エクスプローラー内の左上にある「新規作成」をクリックして展開されたメニューから「テキスト ドキュメント」をクリックします。

「新規 テキスト ドキュメント.txt」のファイルが作成されます。ファイルの名前を「新規 テキスト ドキュメント.txt」から「NewFile.vbs」へ変更します。

名前変更時に注意を促すダイアログボックスが出てくるので「はい(Y)」をクリックします。

ファイル名が変更されてアイコンの見た目も変わります。

Windows10でのVBScriptのファイルの作成方法については次の記事を参考にしてください。

VBScript、Windows10のエクスプローラーの学習とタスクスケジューラを使った自動化ツールの作成（２）| 現役エンジニア&プログラミングスクール講師VBScript、Windowsのエクスプローラーの学習とタスクスケジューラを使った自動化ツールの作成の記事です。...

VBScriptプログラムの記述

「NewFile.vbs」ファイルを右クリックして「プログラムから開く」を選択し「メモ帳」もしくは「Visual Studio Code 等の開発用エディタ」をクリックします。今回はメモ帳を使用しています。

メモ帳を選択するとメモ帳が表示されます。

ファイルの中に次のプログラムを記述します。

Option Explicit

Dim objFSO, FileTitle
Set objFSO = CreateObject( "Scripting.FileSystemObject" )

'-------- 日付を取得--------
FileTitle = Date
FileTitle = mid(FileTitle,1,4) & mid(FileTitle,6,2)

'------- 原本から新規のファイルを作成 --------
If (objFSO.FileExists("..\WORKSPACE\" & FileTitle & ".xlsm") = False) Then
    objFSO.CopyFile ".\sample.xlsm" , "..\WORKSPACE\" & FileTitle & ".xlsm"
End If

Set objFSO = Nothing

メモ帳で記述すると次のようになります。

記述したら「Ctrl + S」で保存します。（もしくはファイルタブから保存）

※Visual Studio Codeなどがあればファイルはそちらで開くのがお勧めです。

「NewFile.vbs」ファイルを閉じます。これで「NewFile.vbs」の準備は終わりです。

「samlpe.xlsm」の作成

「ORIGINALFILE」フォルダ内でエクセルファイルを作成します。

名前を「新規 Microsoft Excel ワークシート.xlsx」から「sample.xlsm」に変更します。

名前変更時に注意を促すダイアログボックスが出てくるので「はい(Y)」をクリックします。

これで「ORIGINALFILE」フォルダ内に２つのファイルが準備できました。

これですべての準備が完了です。

VBScriptプログラムの利用

NewFile.vbsを動かしてみる

「NewFile.vbs」をダブルクリックします。見た目には何も変化はありませんが、「WORKSPACE」フォルダを確認してみるとsample.xlsmのコピーが「西暦＋月」のタイトル名で作成されています。

今回は「NewFile.vbs」をダブルクリックして実行を行いましたがタスクスケジューラなどを利用すると定期に稼働してくれる自動化ツールとして利用できます。

VBScript、Windows10のエクスプローラーの学習とタスクスケジューラを使った自動化ツールの作成（３）| 現役エンジニア&プログラミングスクール講師VBScript、Windowsのエクスプローラーの学習とタスクスケジューラを使った自動化ツールの作成の記事です。...

今回の記事は以上です。次回はプログラムの解説の記事となっています。

VBAのユーザーフォームの記事へはこちらのボタンをご利用ください。

初心者も実践で通用！「VBA・VBS」おすすめ書籍５選 | 現役エンジニア&プログラミングスクール講師「VBA・VBS」初心者の方が実践業務の中でそれらを活用しt活躍できるために必要な知識を習得できる書籍を紹介しています。ページの下部には「おすすめのITスクール情報」「おすすめ求人サイト」について情報を掲載中。...

ブックマークのすすめ

「ほわほわぶろぐ」を常に検索するのが面倒だという方はブックマークをお勧めします。ブックマークの設定は別記事にて掲載しています。

「お気に入り」の登録・削除方法【Google Chrome / Microsoft Edge】| 現役エンジニア&プログラミングスクール講師「お気に入り」の登録・削除方法【Google Chrome / Microsoft Edge】について解説している記事です。削除方法も掲載しています。...

【パソコン選び】失敗しないための重要ポイント | 現役エンジニア&プログラミングスクール講師【パソコン選び】失敗しないための重要ポイントについての記事です。パソコンのタイプと購入時に検討すべき点・家電量販店で見かけるCPUの見方・購入者が必要とするメモリ容量・HDDとSSDについて・ディスプレイの種類・バッテリーの持ち時間や保証・Officeソフト・ウィルス対策ソフトについて書いています。...