にして保存する。というルールはありますか？ 面倒なのでまとめて実行できるようにしました。 実行 ファイル選択ボタン…ダイアログが開いてエクセルファイルを選択する フォルダ選択ボタン…フォルダ内のエクセルファイルをすべて選択する 実行 ...

Dim FilePath As String 'ファイルパスを取得 FilePath = Application.GetOpenFilename(filefilter:="説明,*.csv,説明,*.xlsm", Title:="ファイルを選択してください") Workbooks.Open Filename:=FilePath VBA、自分用の備忘録。