運行時錯誤'1004'對不起，我們找不到....文件路徑。可能移動，重命名或刪除

Question

我在做什麼錯？我簡化了這段代碼，將一系列數據從一個工作簿複製並粘貼到另一個工作簿中。但是我得到一個文件路徑錯誤信息？

我已經在線搜索，但仍努力尋找解決方案。任何幫助都很棒。乾杯!

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.文件路徑不正確

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

嘗試使用此斜線：/

此外，您的文件路徑是不是對文件指向。如果你的文件被稱爲「指標表」，那麼你的路徑需要

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

（或結束其他文件）