【VBA】ワイルドカード（*）を使って開いたファイルを閉じる方法！

「ワイルドカードを使ってファイルを開いたんだけど、そのファイルを閉じることができない。」

この記事ではこんな悩みを解決します。

初心者向けに画像多めで解説していきますので、ぜひ最後までご覧ください。

それではさっそくやっていきます！

はじめに
ワイルドカードを使って開いたファイルを閉じる方法
VBAコードのポイント解説
VBAコードの実行結果
おわりに

はじめに

VBAで開いているファイルを閉じる方法のひとつに

【Windows(ファイル名).Close】

というやり方があります。

しかしこの方法は正式なファイル名を入力していなければ機能しません。

ワイルドカードでファイルを開いた場合、そのファイルの正式名称を把握できているわけではありませんので、この【Windows(ファイル名).Close】というやり方では、ファイルを閉じることができません。

この課題は、ある一文のVBAコードを、ファイルを開くコードの直後に記入すれば解決できます。

とはいえ、その一文だけをご紹介してもイメージがわかないと思います。

この記事ではせっかくなので、

①ワイルドカードを使ってファイルを開く

②その開いたファイルを閉じる

という一連の流れでご紹介していこうと思います。

ワイルドカードを使って開いたファイルを閉じる方法

実際のVBAコードを書いていく前に、まずは題材をご紹介しておきましょう。

今回は以下の画像のように、あるフォルダの中に複数のテキストファイルが入っています。

また、以下の画像のようにVBAを実行するエクセルシート上に、これらのファイルが入っているフォルダのフルパス、開きたいファイル名（ワイルドカード使用）が記入されている状態とします。

※今回は【file_Ver3】という文字から始まるファイルを開いてみます。

前提が確認できたところで、次はVBAコードを記入していきましょう。

◆ワイルドカード（*）を使って開いたファイルを閉じるという一連のVBAコード

Sub close_wild_card()
    '変数の型を宣言
    Dim read_fol As String
    Dim read_file As String
    'ファイルの開く
    read_fol = Cells(2, 1)
    read_data = Cells(5, 1)
    Workbooks.OpenText Filename:=read_fol & "\" & read_data
    '開いたファイルの正式名称を記憶させる
    read_data = ActiveWorkbook.Name
    'ファイルが開かれたことを確認する
    MsgBox read_data & "が開かれました"
    MsgBox read_data & "を閉じます"
    'ファイルを閉じる
    Windows(read_data).Close
End Sub

※テキストファイルを開いたり閉じたりする作業をもう少し詳しく知りたい方は、以下の記事を参考にしてみてください。

www.higashisalary.com