質問: activesheet.cells(15, 18).value' 別ファイル「」csvファイルデータ抽出workbooks.open dirb 'フルパスで書くif dirb <> "" thenworkbooks(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).closeelse msgbox "ファイルが、見つかりません。", vbexclamationend ifend sub
回答: ecマスターズの田中です。「読み込みディレクトリ(ファイル名含む)」で指定したファイルの読込に、何らかの原因で失敗しております。「読み込みディレクトリ(ファイル名含む)」を含め、黄色いセルの隣の設定内容が、カズオさんにて正しくご設定いただいているかどうか、ご確認いただきますようお願いします。設定の上で不明な点などございましたら、返信ににてお知らせ願います。