如何解決由我的宏產生的運行時錯誤'1004'？

我一直在和這個宏對決。我得到它的工作，它一直很好，直到突然當我有一個運行時錯誤如何解決由我的宏產生的運行時錯誤'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

來源

2014-09-03 Joshua Buckley

你說你還沒有移動你試圖打開的文件，但是你有沒有將其他Excel文件保存到不同的文件夾？您沒有明確聲明該文件的路徑，只是文件名，所以它可能試圖在任何文件夾中找到名爲「Test.xlsm」的文件，該文件是您保存文件的最後一個文件夾。 – Dave 2014-09-03 12:44:44

戴夫感謝您的意見。你說得對，文件路徑沒有被聲明，我無法弄清楚。我在發佈之後意識到這一點，並且應該編輯它以詢問如何聲明文件路徑。 – 2014-09-03 13:07:07

對不起，應該在我的評論中提及它！如果您將來要做類似的事情，可能還需要查找應用程序。GetOpenFilename函數 – Dave 2014-09-03 14:46:18

嘗試添加完整路徑，它已經爲我上次嘗試過。

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

來源

2014-09-03 12:53:40

非常感謝您的支持！看看代碼，我知道路徑沒有被指定，並且不知道在哪裏/如何聲明它。再次感謝！！！ – 2014-09-03 13:05:57

很高興它的工作！ :) – 2014-09-03 13:06:13

如何解決由我的宏產生的運行時錯誤'1004'？

回答

相關問題