1つのExcelから別のExcelへのコピー：有効範囲外のインデックス

Question

1つのExcelブックから別のブックにコピーしようとしています。ここでは、関連するコードスニペットです：

directory = "C:\VBA\Import\" 
fileName = Dir(directory & "*.xl??") 

Set sourceColumn = Workbooks(directory & fileName).Worksheets(1).Columns(1) 
Set targetColumn = ThisWorkbook.Worksheets("IMPORT").Columns(1) 
sourceColumn.Copy Destination:=targetColumn 

これを実行すると私が手：「設定と、SourceColumn」に沿って（エクセルのドイツ語版からの翻訳）「ランタイムエラー9の有効範囲外のインデックス」を。

私はこれの理由を理解することはできません。実行中にデバッガを使用してファイル名をダブルチェックしたところ、正しいことがわかりました。また、ワークシートと列の索引もこのファイルにあります（5列のワークシートが1つあります）。

アイデア？前もって感謝します！

Answer 1

は、それが私のために働く、このようにそれを試してみてください。

Workbooks.Open directory & Filename 
Set sourceColumn = Workbooks(Filename).Worksheets(1).Columns(1) 

あなたはその