2014-09-03 1 views
0

나는이 매크로를 켜고 껐다. 나는 그것을 작동 시켰고 갑자기 런타임 오류가 발생할 때까지 아무런 문제가 없었습니다.매크로에 의해 런타임 오류 '1004'가 생성되는 것을 어떻게 수정합니까?

"Test.xlsm"을 찾을 수 없습니다. 파일 이름의 철자를 확인하고 파일 위치가 올바른지.

당신이 가장 최근에 사용한 파일 목록에서 파일을 열고 파일 이름이 변경되지 않았 음을 확인 tyring하는 경우는, 이동 또는 삭제. "

내가 그랬어 이름을 변경하거나 위치에서 파일을 이동하지 마십시오.이 오류가 발생합니다. 나는 갑자기 이런 일이 일어나는 이유에 대해 분실했다.

Sub ImportData_Click() 

' open the source workbook and select the source sheet 
Workbooks.Open Filename:="Test.xlsm" 
Sheets("Make").Select 

' copy the source range 
Sheets("Make").Range("A1:Z630").Select 
Selection.Copy 

' select current workbook and paste the values starting at A1 
ThisWorkbook.Activate 
Sheets("Make").Select 
Sheets("Make").Range("A1:Z630").Select 
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
False, Transpose:=False 

' close the source workbook 
Windows("Test.xlsm").Activate 
ActiveWorkbook.Close 

End Sub 
+0

열려고하는 파일을 이동하지 않았지만 다른 Excel 파일을 다른 폴더에 저장했다고 말했습니까? 파일의 경로를 명시 적으로 선언하지 않았으므로 파일 이름 만 저장되므로 파일을 저장 한 마지막 폴더의 폴더에 "Test.xlsm"이라는 이름의 파일을 찾으려고합니다. – Dave

+0

귀하의 의견에 감사드립니다. 당신은 옳았습니다. 파일 경로가 선언되지 않았고 나는 그것을 알아낼 수 없었습니다. 나는 게시 한 후에이 사실을 깨닫고 파일 경로를 선언하는 방법을 묻기 위해 이것을 수정해야합니다. –

+0

죄송합니다, 내 의견에 언급해야합니다! 그것은 또한 application.GetOpenFilename 함수를 찾는 가치가있을 수도 있습니다 당신이 미래에 비슷한 일을하려고한다면 – Dave

답변

0

전체 경로를 추가해보세요. 마지막으로 시도한 시간이 길었습니다.

Workbooks.Open Filename:="C:\Porn\Test.xlsm" 
+1

정말 고마워요! 내가 알 수있는 코드를 살펴보면 경로가 지정되지 않았으므로 경로를 선언하는 방법을 알 수 없습니다. 다시 한 번 감사드립니다! –

+0

다행 이네요! :) –

관련 문제