転記元のブック名を転記先シートのA列に転記していきたいのですが、
「実行時エラー91:オブジェクト変数またはwith変数が設定されていません。」
というエラーが出て、
下記コードの
copyWb_name = copyWb.Name
が黄色くハイライトされます。
Option Explicit Sub データ読込() '転記元ファイルの取得用変数 Const FILE_PATH = "C:あいうえお" Dim sFileName As String '転記元のシートの変数 Dim copyWb As Excel.Workbook Dim copyWs As Excel.Worksheet '転記先のシートの変数 Dim pasteWs As Excel.Worksheet '出力行 Dim iPasteRow As Integer '転記先のシートを取得 'マクロが書かれているブックの、アクティブなシート Set pasteWs = Excel.ThisWorkbook.ActiveSheet '出力する空白セルの指定 Dim pasteCell As Excel.Range Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "A").End(xlUp).Offset(1) '出力行を取得(先頭行) iPasteRow = pasteCell.Row '対象フォルダからExcelファイル名を取得 sFileName = Dir(FILE_PATH & "*.xlsx*") If sFileName = "" Then 'フォルダにExcelファイルが1つもない場合は処理終了 Exit Sub End If '対象フォルダ内のすべてのExcelファイルをループ処理 Do '転記元ブックをオープン Set copyWb = Workbooks.Open(FILE_PATH & "\" & sFileName) '転記元シートを取得 Set copyWs = copyWb.Worksheets(1) '先頭シート '除外するものがあればここで条件を指定して転記処理に入れない If True = True Then '除外するもの以外は下記項目を転記処理 '転記元ブック名を開いている転記元からコピーして転記先にペースト Set pasteCell = pasteWs.Cells(iPasteRow, "A") Dim copyWb_name As Excel.Range With copyWb copyWb_name = copyWb.Name End With pasteCell.Value() = copyWb_name.Value()
ネットで調べていくつか入れてみたのですが、いまいちどうソースコード変更すればよいのかわかりません。
どうかお助けください。
追記:
copyWb_name = copyWb.Name Set pasteCell = pasteWs.Cells(iPasteRow, "A") pasteCell.Value() = copyWb_name.Value()
と試しましたら、
copyWb_nameが「コンパイルエラー:変数が定義されていません」というエラーになります。
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2018/01/31 06:16
2018/01/31 06:20
退会済みユーザー
2018/02/02 05:37