【緊急】EXCELのVBAについて

Question

EXCELで下記のVBAスクリプトで添付画像のようなエラーが出てしまいます。
「Workbooks.Open DirB   'フルパスで書く」で処理が止まってしまっています。
どうすればなおりますか。

'ディレクトリの場所の関数宣言
    Dim DirB As String
DirB = ActiveSheet.Cells(15, 12).Value
   Dim Fname As String
Fname = ActiveSheet.Cells(15, 13).Value
   Dim SheettB As String
SheettB = ActiveSheet.Cells(15, 14).Value
   Dim Hontai As String
Hontai = ActiveSheet.Cells(15, 15).Value
   Dim CopyHani1 As String
CopyHani1 = ActiveSheet.Cells(15, 16).Value
   Dim CopyHani2 As String
CopyHani2 = ActiveSheet.Cells(15, 17).Value
   Dim CopyHani3 As String
CopyHani3 = ActiveSheet.Cells(15, 18).Value


' 別ファイル「」csvファイルデータ抽出
Workbooks.Open DirB   'フルパスで書く

If DirB  "" Then
Workbooks(Fname).Worksheets(SheettB).Range(CopyHani1).Copy 'コピー元
Workbooks(Hontai).ActiveSheet.Range("A5:A9000").PasteSpecial '貼り付け先
Workbooks(Fname).Worksheets(SheettB).Range(CopyHani2).Copy 'コピー元
Workbooks(Hontai).ActiveSheet.Range("I5:I9000").PasteSpecial '貼り付け先
Workbooks(Fname).Worksheets(SheettB).Range(CopyHani3).Copy 'コピー元
Workbooks(Hontai).ActiveSheet.Range("K5:K9000").PasteSpecial '貼り付け先
Workbooks(Fname).Close
Else
    MsgBox "ファイルが、見つかりません。", vbExclamation
End If

End Sub###HR######IMG05adfd1172aee1773cc004db7889cc912.jpegIMG0###

Answer

ECマスターズの田中です。

「読み込みディレクトリ（ファイル名含む）」で
指定したファイルの読込に、
何らかの原因で失敗しております。

「読み込みディレクトリ（ファイル名含む）」を含め、
黄色いセルの隣の設定内容が、
カズオさんにて正しくご設定いただいているかどうか、
ご確認いただきますようお願いします。

設定の上で不明な点などございましたら、
返信ににてお知らせ願います。

Answer

解決しました。ありがとうございます。
【緊急】あかりで大変申し訳ございません。