Set xlBook = xlApp.Workbooks.Open("Dir1.Path & "\ " & File2")この部分はどのように変更したのですか?これでは取得できないはずですが。もう一度正しいコードをすべて(途中省略せずに)投稿して下さい。(コピー&ペーストで)