Excel VBA-運行時錯誤1004打開工作簿

Question

對vba來說還很陌生，但是我寫了一段代碼，將一列中的行合並，然后復制單元格，然后將其粘貼到另一個宏工作簿中。 我第一次運行代碼時，代碼運行良好。 但是，我今天嘗試使用它，但我感到震驚，我犯了一個錯誤。 此錯誤表明它找不到目標文件名。 這很奇怪，因為目標文件名沒有更改或移動。 這是代碼示例。

錯誤顯示在第：

設置book2 = Workbooks.Open（“財務'17報告的跨欄燃料使用量.xlsm”）

代碼如下：

Public Sub Button6_Click()
       'Change name of button

       Worksheets("7500").Buttons("Button 6").Text = "Send"
       With Sheets("7500")

       'Unmerge cells
       .Range("AI3:AI92").Select
       With Selection
        For Each rCell In Selection
         With rCell
         If .MergeCells Then
          .MergeArea.UnMerge
         End If
        End With
       Next rCell
       End With
      End With

      'open destination workbook

       Dim book1 As Workbook
       Dim sheet1 As Worksheet
       Dim book2 As Workbook
       Dim sheet2 As Worksheet
       Application.ScreenUpdating = False
       Set book1 = ThisWorkbook
       Set book2 = Workbooks.Open("Fiscal '17 Reported Straddle Fuel Usage.xlsm")
       Set sheet1 = book1.Sheets("7500")
       Set sheet2 = book2.Sheets("Nov ‘17")

Answer 1

目標文件名未更改或移動

您未指定路徑。 指定路徑。

 Set book2 = Workbooks.Open("Fiscal '17 Reported Straddle Fuel Usage.xlsm") 

Const path As String = "C:\Foo\Bar\Fiscal '17 Reported Straddle Fuel Usage.xlsm"
Set book2 = Workbooks.Open(path)

無論使用什么CurDir路徑， Workbooks.Open都可以使用，只要向用戶顯示“打開文件”對話框並開始瀏覽， CurDir的值就會更改：沒有完整路徑的文件名是不可靠的。

與VBA中的許多事情一樣，最好對此加以明確說明。 給它一個完整的路徑。