Sub Macro2() Dim myPath As String Dim myFile As String ' マクロを実行したエクセルファイルのパスがmyPathに入る。 myPath = ThisWorkbook.Path ' myFileにmyPathに入っているエクセルファイル名を格納 ' 複数存在する場合は1つだけ。次にDir関数を引数…