【VBA】指定したcsvファイルを開く方法！閉じるところまで一括解説！

この記事では、指定したcsvファイルを開いて閉じる方法をご紹介していきます。

オシロスコープなんかの実験装置では、csvファイルでデータが出力されるため、それらのファイルを大量処理する場面などにこの記事の内容が役に立つはずです。

エクセル初心者向けに詳細解説していますので、ぜひ最後までご覧ください。

※基本的にはcsvファイルでなくても開けますので状況に応じて修正してください。

それでは早速やっていきます！

csvファイルを開く方法
csvファイルを閉じる方法
VBAでの実際の使用例
VBA実行結果の確認
おわりに

csvファイルを開く方法

まずはVBA上でcsvファイルを開く方法をご紹介します。

◆csvファイルを開くVBAコード

Workbooks.Open (“開きたいファイルのフルパス”)

たったのこれだけ。

非常に簡単ですね。

csvファイルを閉じる方法

次はVBA上でcsvファイルを閉じる法をご紹介します。

◆csvファイルを閉じるVBAコード

Windows(“開いたファイル名”).Close

ここで注意すべきなのは、開くときはフルパスを指定したのに対して、閉じるときはファイル名だけを指定するという点です。

（すでに開いている時点でどこにおいてあるかは関係ありませんからね。）

VBAでの実際の使用例

ここまで基本的なVBAコード解説をしてきましたが、そうは言っても実際に使用してみないとわかりませんよね。

というわけでここからは実際に指定したcsvファイルを開いて、ある処理を行った後に閉じるという作業を実演していきたいと思います。

今回は以下の画像のように、VBAを実行するファイルと同じ場所に開きたいcsvファイルを保存しているという状態で実行していきます。

また、開きたいファイルはあらかじめセルに記述してあることを想定してコードを書いています。

◆csvファイルを開く⇒閉じるという一連の流れを行うVBAコード

Sub open_csv()
    '変数の型を宣言
    Dim file_name As String
    '開きたいファイル名を指定
    'セルを参照する場合
    file_name = Cells(2, 1)
    'コードの直接記述する場合
    'file_name ="\test_data1.csv"
    '指定したcsvファイルを開く
    If Dir(ThisWorkbook.Path & "\" & file_name) <> "" Then
        Workbooks.Open (ThisWorkbook.Path & "\" & file_name)
    Else
        MsgBox "指定ファイルがありません。"
        Exit Sub
    End If
    MsgBox "指定ファイルを開きました。"
    '指定したcsvファイルを閉じる
    Windows(file_name).Close
End Sub

少し難しそうに見えるかもしれませんが、基本的に行っていることは以下の通りです。

①開きたいファイル名を指定

②Workbooks.Openで①のファイルを開く

（ファイルがなかった場合は処理を止めるようにしています。）

③MsgBoxでメッセージを表示

（実用する際は、ここをあなたが行いたい処理に書き換えましょう。）

④Windows.Closeで開いたファイルを閉じる