한 Excel에서 다른 Excel로 복사 : 유효한 범위를 벗어나는 인덱스

Question

한 Excel 통합 문서에서 다른 통합 문서로 복사하려고합니다. 여기에 관련 코드는 다음과 같습니다 "sourceColumn 설정"과 라인 (엑셀의 독일어 버전의 번역) : "유효 범위를 벗어난 인덱스 런타임 오류 9"

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 

이 실행

가 나는를 얻을.

이유를 알 수 없습니다. 실행 중에 디버거를 사용하여 파일 이름을 두 번 확인했는데 정확합니다. 또한이 파일에는 워크 시트 및 열의 색인이 있습니다 (5 개의 열이있는 단일 워크 시트가 있음).

아이디어가 있으십니까? 미리 감사드립니다!

Answer 1

은 나를 위해 작동, 이런 식으로 시도 :

는

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

당신은 통합 문서를 여는 것을