运行时错误“1004”对不起，我们找不到…文件path。 可能移动，重命名或删除

我究竟做错了什么？？ 我简化了这段代码，将一个工作簿中的一系列数据复制并粘贴到另一个工作簿中。 但是我得到一个文件path错误信息？

我在网上search，但仍然努力寻找解决scheme。 任何帮助是伟大的。 干杯!

Sub GetDataFromGA3() Dim wbTarget As Workbook 'where the data will be pasted Dim wbSource As Workbook 'where the data will be copied Dim StrName As String 'name of the source sheet Application.ScreenUpdating = False 'these two statements help performance by disabling the self titled in each Application.DisplayAlerts = False Set wbSource = ActiveWorkbook 'set to the current workbook StrName = ActiveSheet.Name 'get active sheetname of workbook Set wbSource = Workbooks.Open("C:\Users\jjordan\Desktop\Test Dir\Test File\metrics list" & "\") 'open source workbook Set wbTarget = Workbooks.Open("C:\Users\jjordan\Desktop\Test Dir\MASTER\Weekly logbook 2016" & "\") 'open target workbook wbSource.Range("A1:E60").Copy 'copy range from sourcebook wbTarget.Sheets("Sheet6").Range("D1:H60").PasteSpecial wbTarget.Save ' save workbook Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 

Answer 1

几个问题在这里：

1.文件path不正确

 Set wbSource = Workbooks.Open("C:\Users\jjordan\Desktop\Test Dir\Test FIle\metrics list" & "\") 'open source workbook Set wbTarget = Workbooks.Open("C:\Users\jjordan\Desktop\Test Dir\MASTER\Weekly logbook 2016" & "\") 'open target workbook 

应该是这样的：

 Set wbSource = Workbooks.Open("C:\Users\jjordan\Desktop\Test Dir\Test FIle\metrics list.xlsx") 'enter appropriate file extension Set wbTarget = Workbooks.Open("C:\Users\jjordan\Desktop\Test Dir\MASTER\Weekly logbook 2016.xlsx") 'enter appropriate file extension 

2.表名丢失

 wbSource.Range("A1:E60").Copy 'copy range from sourcebook 

应该：

 wbSource.Sheets("Sheet_Name").Range("A1:E60").Copy 'enter appropriate sheet name 

Answer 2

尝试使用这个斜杠： /

此外，您的文件path不指向文件。 如果你的文件被称为“度量列表”，那么你的path需要

 Set wbSource = Workbooks.Open("C:/Users/jjordan/Desktop/Test Dir/Test File/metrics list.xlsx" 

（或其他文件结尾）