Question

我一直在打开和关闭这个宏。我已经让它工作了，它工作得很好，直到我遇到运行时错误

＆＃34;＆＃39; Test.xlsm＆＃39;无法找到。检查文件名的拼写，并验证文件位置是否正确。

如果要从最近使用的文件列表中打开文件，请确保该文件尚未重命名，移动或删除。＆＃34;

我没有重命名或移动文件的位置但我收到此错误。我迷失了为什么突然发生这种情况。

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

Answer 1

尝试添加完整路径，它在我最后一次尝试时对我有效。

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

如何修复运行时错误＆＃39; 1004＆＃39;由我的宏生产？

1 个答案: