02-VBScript

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

目標

VBScriptを利用してファイルの複製を行えるようになる。
VBScriptを利用して複製するファイルのタイトルを指定できる。

この記事ではVBScriptを利用してファイルの複製を行います。複製後のファイルのタイトルは作成月の翌月を指定します。このスクリプトは例えば「毎月原本ファイルをコピーして月ごとのファイルを作成する」のような事務作業で利用できます。

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」から「NewFile.vbs」へ変更します。

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

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

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

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

VBScriptプログラムの記述

「NewFile.vbs」ファイルを右クリックして「編集」をクリックします。

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

Option Explicit

Dim objFSO, FileTitle
Set objFSO = WScript.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のコピーが「西暦+月」のタイトル名で作成されています。

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

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

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

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

ブックマークのすすめ

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

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

VBScriptを利用したVBAプロシージャの呼び出し(Part.1)| 現役エンジニア&プログラミングスクール講師

2023年2月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
01-VBA

VBScriptを利用したVBAプロシージャの呼び出し(Part.2)| 現役エンジニア&プログラミングスクール講師

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