FileSystemObjectを使うための準備――ファイル/フォルダをコピーするには:VBA/マクロ便利Tips
業務効率化に役立つVBA/マクロのさまざまなTipsをコード例を交えて紹介していきます。今回は、ファイルシステムへアクセスするメソッドなどを提供するFileSystemObject、ファイルをコピーするCopyFile、フォルダをコピーするCopyFolderメソッドなどについて。
今回から数回にわたって、Excel VBAでFileSystemObjectを使うTipsを紹介する。
FileSystemObjectとは、ファイルシステムへアクセスするメソッドなどを提供するオブジェクトのことだ。
初めはFileSystemObjectをExcel VBAの中で使用するには、どういった方法があるかについて解説する。
通常Excel VBAでFileSystemObjectを使用する場合は下記のように記述する(リスト1)。
Dim fso As Object Set fso=CreateObject(“Scripting.FileSystemObject”)
このように、CreateObject関数を使用して引数に指定したActiveXオブジェクト(この場合はFileSystemObject)を使いたい場合に使用する。
この方法でも特に問題はないのだが、自動メンバー表示(インテリセンス)が使用できないという欠点がある。自分でメソッドやプロパティを記憶している方ならいいが、そうでない方にはなかなか使いづらいのではないだろうか。
それでは、自動メンバー表示を行うには、どのようにすればいいのかを解説しよう。
Microsoft Scripting Runtimeの参照設定を行う
VBE(Visual Basic Editor)を起動して、メニューから「ツール→参照設定」とたどり、「参照可能なライブラリファイル」から「Microsoft Scripting Runtime」にチェックを付けて「OK」ボタンをクリックする(図1)。
では、これで自動メンバー表示が行われるか試してみよう。記述方法は下記のようになる(リスト2)。
Dim fso As New Scripting.FileSystemObject
Scripting.FileSystemObjectの新しいインスタンスを作成する。「挿入」メニューから「標準モジュール」を選択して、Module1を作成する。
図2のように入力すると、表示が行われているのが分かるだろう。
試しに、図1の参照設定を外して、リスト1のように記述してみよう。図2とは違って、fso.の後に表示が行われない(図3)。
これでは不便なので、今後は参照設定を行って、リスト2の書き方で進めていく。
ファイルをコピーするCopyFileメソッド
では、実際にFileSystemObjectを使った各操作を行ってみよう。最初はテキストファイルのコピーからだ。
今回使用するテキストファイルはメモ帳で作成して、UTF-8で保存した。リスト3のような内容の「FileSystemObject_SourceFile.txt」というファイルだ。
これはExcel VBAでFileSystemObjectを使った テキストファイルコピー用のファイルです。 作成年月日:2017年2月1日 薬師寺国安事務所 薬師寺国安
このファイルを指定したフォルダにコピーするには、CopyFileメソッドを使用する。
CopyFileの書式は下記の通りだ。
ファイルをコピーするCopyFileメソッドの書式
{fso}.CopyFile {source},{destination}
{fso}にはFileSystemObjectの名前を指定する。
{source}は必須だ。コピー元のファイル名を、パスを含めて表す文字列を指定する。
{destination}も必須だ。コピー先のパスを表す文字列を指定する。
fso.と入力すると自動メンバーが表示されてCopyFileの選択が可能になる(図4)。
VBEを起動して新しいモジュールを作成し、リスト4のコードを入力する。
Sub FileCopy() Dim sourceFile As String Dim copyToFolder As String Dim fso As New Scripting.FileSystemObject sourceFile = "J:\ExcelVBA_FileSystemObject_Files\FileSystemObject_SourceFile.txt" copyToFolder = "K:\ExcelVBA_TextFiles\" fso.CopyFile sourceFile, copyToFolder Set fso=Nothing End Sub
文字列型の「sourceFile」「copyToFolder」変数を宣言する(2〜3行目)。
Scripting.FileSystemObjectのインスタンスを作成し、変数fsoで参照する(4行目)。
コピー元のファイルである「J:\ExcelVBA_FileSystemObject_Files\FileSystemObject_SourceFile.txt」を変数sourceFileに格納する(5行目)。
コピー先のフォルダである「K:\ExcelVBA_TextFiles\」を変数copyToFolderに格納する(6行目)。
fsoオブジェクトのCopyFileメソッドで、コピー元のファイルと、コピー先のフォルダを指定してコピーする(7行目)。
最後に、オブジェクトの変数をNothingでクリアしておく(8行目)。
実行するとコピー先の「K:\ExcelVBA_TextFiles\」フォルダに「FileSystemObject_SourceFile.txt」がコピーされている(図5)。
フォルダをコピーするCopyFolderメソッド
次は、フォルダのコピーについて見ていこう。CopyFolderメソッドを使用する。
フォルダをコピーするCopyFolderメソッドの書式
{fso}.CopyFolder {source},{destination}
{fso}にはFileSystemObjectの名前を指定する。
{source}は必須だ。コピー元のフォルダ名を、パスを含めて表す文字列を指定する。ワイルドカードの使用も可能だ。
{destination}は必須だ。コピー先のパスを文字列で指定する。
使い方としては、リスト5のコードのようにする。
Sub FolderCopy() Dim fso As New Scripting.FileSystemObject fso.CopyFolder "K:\ExcelVBA_TextFiles", "K:\ExcelVBA_Test\" Set fso = Nothing End Sub
Scripting.FileSystemObjectのインスタンスを作成し、変数fsoで参照する(2行目)。
CopyFolderメソッドで、コピー元のフォルダをコピー先のフォルダにコピーする(3行目)。この場合は、コピー元は「K:\ExcelVBA_TextFiles」フォルダで、フォルダの中には、先にコピーしたテキストファイルと「backup」というサブフォルダが存在している。
コピー元のフォルダには最後に「\」を付けてはならないので注意しよう。コピー先は、あらかじめ作成しておいた「K:\ExcelVBA_Test\」フォルダになる。この場合は最後に\が必要だ。
最後に、Nothingでオブジェクト変数をクリアする(4行目)。
実行すると、図6のように、「K:\ExcelVBA_Test\」フォルダ内に、「ExcelVBA_TextFiles」のフォルダと中にあるテキストファイルとサブフォルダがコピーされている。
次回は、テキストファイルの作成・削除など
今回は以上で終わりだ。FileSystemObjectを参照設定しておくと、自動メンバー表示が行われて便利だ。また、テキストファイルを指定したフォルダへコピーする方法とフォルダ自体のコピーについても解説した。今回使用したフォルダやテキストファイルはあらかじめ事前に作成しておく必要があることを忘れないでほしい。
ファイルのコピーやフォルダのコピーは日常の業務にも多々出てくるのではないだろうか。その場合は、シート上に入力欄などを作成し、どのファイルやフォルダをどこにコピーするかを入力して、ボタンクリックでコピーできるUIを作成しておけば、作業効率も上がるのではないだろうか。ぜひ各自が試してみてほしい。
次回は「フォルダを作成してテキストファイルを作成する」「ファイルの削除」「フォルダの削除」の方法を解説する。お楽しみに。
著者紹介
薬師寺 国安(やくしじ くにやす) / 薬師寺国安事務所
薬師寺国安事務所代表。Visual Basicプログラミングと、マイクロソフト系の技術をテーマとした、書籍や記事の執筆を行う。
1950年生まれ。事務系のサラリーマンだった40歳から趣味でプログラミングを始め、1996年より独学でActiveXに取り組む。
1997年に薬師寺聖とコラボレーション・ユニット「PROJECT KySS」を結成。
2003年よりフリーになり、PROJECT KySSの活動に本格的に参加。.NETやRIAに関する書籍や記事を多数執筆する傍ら、受託案件のプログラミングも手掛ける。
Windows Phoneアプリ開発を経て、現在はWindowsストアアプリを多数公開中。
Microsoft MVP for Development Platforms - Client App Dev (Oct 2003-Sep 2012)。
Microsoft MVP for Development Platforms - Windows Phone Development(Oct 2012-Sep 2013)。
Microsoft MVP for Development Platforms - Client Development(Oct 2013-Sep 2014)。
Microsoft MVP for Development Platforms - Windows Platform Development (Oct 2014-Sep 2015)。
関連記事
- どんなビジネスにも欠かせないリレーショナルデータベースの基礎知識と作り方――テーブル、レコード、フィールド、主キーとは
Accessを通じて、初心者がリレーショナルデータベースやSQLの基本を学び、データベースを使った簡単なシステムの作り方を習得する本連載。初回はデータベースの基本を理解し、Accessを使い始めてみよう。 - スクショをExcelに張り付けるのに役立つ4つのテクニック
システム開発におけるソフトウェアテスト(結合テスト〜システムテスト)において重要視されるエビデンス(作業記録)。前後編の2回にわたって、エビデンスとしてスクリーンショットをキャプチャし、テスト仕様書や納品書に張り付けていく作業を自動化するためのVBA/マクロのテクニックを紹介する。後編は、画像ファイルをシートに張り付け、Excel 2013のメニューからスクショを直に張り付け、画像を縮小し、指定した時間にマクロを実行する方法を解説。 - [Esc]キーによるExcel VBAの実行中断を防止する
ExcelではVBA(Visual Basic for Applications)によってさまざまな処理を自動的に実行できる。しかし、VBAの実行中にユーザーが[Esc]キーあるいは[Ctrl]+[Break]キーを押すと、自動処理が止まってしまう。止めたくない場合は、Application.EnableCancelKeyプロパティの設定を変更する。 - Windows TIPSディレクトリ > プラットフォーム別 > Office > Excel
Copyright © ITmedia, Inc. All Rights Reserved.