02-VBScript

VBScriptを利用したファイルの複製(Windows11)(Part.1)

目標

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

この記事ではVBScriptを利用して原本ファイルの複製を行います。複製後のファイルのタイトルは作成月の翌月を指定します。このスクリプトを利用して毎月1日に原本ファイルをコピーして当月のファイルを自動生成するといった処理を行わせます。

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

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

VBScriptのプログラムを利用するにあたり今回は次の2つのフォルダを準備します。
①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のエクスプローラーの学習とタスクスケジューラを使った自動化ツールの作成(2)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などがあればファイルはそちらで開くのがお勧めです。

Visual Studio Codeで開いた場合の見た目です。

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

「samlpe.xlsm」の作成

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

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

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

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

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

VBScriptプログラムの利用

NewFile.vbsを動かしてみる

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

ファイルの生成がされていない場合はVBScriptのファイルが保存されているか確認してください。

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

VBScript、Windows10のエクスプローラーの学習とタスクスケジューラを使った自動化ツールの作成(3)VBScript、Windowsのエクスプローラーの学習とタスクスケジューラを使った自動化ツールの作成の記事です。...

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

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

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

ブックマークのすすめ

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

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

VBScript、Windows10のエクスプローラーの学習とタスクスケジューラを使った自動化ツールの作成(2)

2022年4月11日
プログラミング学習 おすすめ書籍情報発信 パソコン初心者 エンジニア希望者 新人エンジニア IT業界への就職・転職希望者 サポートサイト Programming learning Recommended schools Recommended books Information dissemination Computer beginners Prospective engineers New engineers Prospective job seekers in the IT industry Support site
02-VBScript

VBScript、Windows10のエクスプローラーの学習とタスクスケジューラを使った自動化ツールの作成(3)

2022年4月13日
プログラミング学習 おすすめ書籍情報発信 パソコン初心者 エンジニア希望者 新人エンジニア IT業界への就職・転職希望者 サポートサイト Programming learning Recommended schools Recommended books Information dissemination Computer beginners Prospective engineers New engineers Prospective job seekers in the IT industry Support site
02-VBScript

VBScript | ファイルコピーの自動化/タイトルを日付で出力(1)

2022年11月12日
プログラミング学習 おすすめ書籍情報発信 パソコン初心者 エンジニア希望者 新人エンジニア IT業界への就職・転職希望者 サポートサイト Programming learning Recommended schools Recommended books Information dissemination Computer beginners Prospective engineers New engineers Prospective job seekers in the IT industry Support site
02-VBScript

VBScript | ファイルコピーの自動化/タイトルを日付で出力(2)

2022年11月14日
プログラミング学習 おすすめ書籍情報発信 パソコン初心者 エンジニア希望者 新人エンジニア IT業界への就職・転職希望者 サポートサイト Programming learning Recommended schools Recommended books Information dissemination Computer beginners Prospective engineers New engineers Prospective job seekers in the IT industry Support site