ダウンロードしたCSVや別のエクセルファイルを開くVBAコード

2021年1月8日2024年9月10日

データ処理をする時に他のエクセルファイルにあるデータを取り込みたいことありませんか？

ファイル名が固定されてたり、保存場所が決まっている場合などは直接保存先のフルパスとファイル名をVBAで書き込めば可能ですが、保存場所が変わったりファイル名が分からないと実行できません。

また、ダウンロードしたCSVファイルなどはその都度ファイル名が異なります。

そこで、次のような手順でCSVファイルや他のエクセルファイルのデータを取り込みましょう。

ファイルを選択するようにメッセージを出す
取り込み先エクセル　VBAコードを書き込んであるエクセルファイルをを開く
取り込み先エクセル　データ取り込みVBAコード記述したコマンドボタンを押す
ファイルを開くダイアログを表示する
元データとなるエクセル（CSVファイル）などを選択する
元データエクセル　元データとなるエクセルファイルが開きます
元データエクセルに画面が切り替わらないように元データエクセルファイルを最小化する
元データエクセルから取り込み先エクセルに必要データ（セルの値を）繰り返し取り込む（コピーする）
データ取得したら元データエクセルを閉じる
データ取り込みが終了したとメッセージを表示する

GetOpenFilenameメソッドなどを組み合わせる

一般的にエクセルファイルを開く時は、マイドキュメントなどのフォルダからエクセルファイルを選択して開きます。

その時に表示される「ファイルを開く」画面をダイアログボックスと言いますので、名前は知らなくてもよく見る画面です。

この作業をVBAコードで行う時は、GetOpenFilenameメソッドを使います。

そして、この一連の作業を行うには、MsgBoxやDimやLoopやIfなどを作業順に並べるだけなので簡単にVBAコードを書くことができます。

ここでは、ユーザーフォームに配置したコマンドボタン1にVBAコードを書いた例になります。

ファイルを開いてデータ取り込みをするVBA

Private Sub CommandButton1_Click()
MsgBox “元データエクセルを選択してください”
Range(“A1:C100”).ClearContents
Dim fileopen As Variant
fileopen = Application.GetOpenFilename(“Microsoft Excelブック,*.csv?”)
If fileopen <> False Then
Workbooks.Open fileopen
ActiveWindow.WindowState = xlMinimized
Dim i As Long
i = 1
Do Until Workbooks(2).Sheets(1).Cells(i, 1).Value = “”
Cells(i, 1).Value = Workbooks(2).Sheets(1).Cells(i, 1).Value
Cells(i, 2).Value = Workbooks(2).Sheets(1).Cells(i, 2).Value
Cells(i, 3).Value = Workbooks(2).Sheets(1).Cells(i, 3).Value
i = i + 1
Loop
Workbooks(2).Close
MsgBox “元データから取り込みました”
End If
End Sub