• 文字サイズ


解決済

【緊急】EXCELのVBAについて

  • 相談者:非公開
  • 2020/09/18 15:46
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
投稿内容について報告する

今気になってる疑問、
セミナーに参加すれば解決するかも!?
日本全国のネットショップ12,000社が参加!
ネットショップでお悩みがある方はまずはオンラインセミナーへGO!
広告0円で楽天の売上アップ続出!
ECマスターズチャンネルをチェック!
総視聴回数15万回突破!
最新の対策事例やSALE対策など、売上にお困りの方はぜひご視聴ください!

  • 返信者:非公開
  • 2020/09/18 17:14
ECマスターズの田中です。

「読み込みディレクトリ(ファイル名含む)」で
指定したファイルの読込に、
何らかの原因で失敗しております。

「読み込………(省略)………
  • 返信者:非公開(質問者)
  • 2020/09/19 06:22
解決しました。ありがとうございます。
【緊急】あかりで大変申し訳ございません。………(省略)………
このフォーラムへの質問は終了しました