Excel VBA-ランタイムエラー1004ブックを開く

Question

かなり新しいvbaですが、列内の行を解消するコードを作成して、このようにしてセルをコピーし、別のマクロブックに貼り付けます。私が最初にそれを実行したとき、コードはうまくいった。しかし、私は今日それを使用しようとしたと私はエラーがあったショックを受けた。このエラーは、宛先ファイル名が見つかりませんでした。宛先ファイル名が変更されたり移動されたりしていないために奇妙でした。ここにコードのサンプルがあります。

エラーが線で示す：

セットBOOK2 = Workbooks.Open（ "年度'17報告ストラドル燃料 Usage.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

宛先ファイル名が変更されたり移動したりしなかった

パスを指定していません。パスを指定します。ファイル名：CurDirパスであり、ユーザが「ファイルを開く」ダイアログが表示され、彼らは周りの閲覧を開始するたびにCurDirの値が変化するものは何でもオフ

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) 

Workbooks.Open作品完全な経路なしでは信頼できません。

VBAの多くのものと同様に、明示的にすることをお勧めします。完全な道を与えてください。