> この部分はどのように変更したのですか?すみません、抜けていました。下記のようにです。Set xlBook = xlApp.Workbooks.Open(Dir1.Path & " \ " & File2)