現在開いているシートに選択したCSVファイルを挿入するためのVBAコードは以下のように書けます。このコードでは、ファイル選択ダイアログを表示し、選択したCSVファイルを現在のシートにインポートします。 Sub ImportCSVToActiveSheet() Dim filePath As String Dim queryTable As QueryTable ' ファイル選択ダイアログを表示 filePath = Application.GetOpenFilename("CSV Files (*.csv), *.csv", , "CSVファイルを選択してください") ' ユーザーがファイルを…