doc_wbkというブックのSheets(2)の内容をdoc_wbk2のActiveSheetにコピーしようとしています。
以下のコードの5行目で「アプリケーション定義またはオブジェクト定義エラー」が出てしまいます。ブックやシートまで指定しないといけないのかと思い doc_wbk.Sheets(2) を5行目行頭に追加しましたが変わりません。逆に5行目行頭の . を外してやるとアクティブシートの内容をコピーしてしまいます。Sheets(2)の内容をコピーしてやるにはどうしたらよいでしょうか?よろしくお願いします。
Set doc_wbk = Workbooks.Open(doc_dir + doc_file, 0)
With Sheets(2)
If .Range("A4").Value <> "" Then
row_num = .Range("a65536").End(xlUp).Row
.Range(Cells(4, 1), Cells(row_num, 11)).Copy doc_wbk2.ActiveSheet.Cells(row_num2 + 1, 1)
End If
End With
No.1ベストアンサー
- 回答日時:
CellsとRangeが別々のシートを見ているためです
単に Cellsと書いてしまうと Withから外れてしまいます
.Range( Cells(4,1), Cells(row_num,11) )
と記述すると RangeはSheets(2) Cells(4,1)とCells(row_num,11)はActiveSheetになります
これでは Excelは困ってしまうわけです
.Range( .Cells(4,1), .Cells(row_num,11) )
とWithが掛かるように『.Cells』と記述しましょう
ありがとうございます。
エクセルオブジェクトは扱うのが難しいですね。
VBAコマンド解説等のサイト見てもこのような規則について説明してあるところがないですからね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) Excelのマクロ ブック間である範囲をコピー Workbooks(“a.xlsx“).Sheets 3 2022/05/12 17:02
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 1 2022/04/29 02:36
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルVBAが途中で止まります
-
VBA シートをコピーする際に Co...
-
ワイルドカード「*」を使うとう...
-
エクセルのマクロについて教え...
-
【ExcelVBA】インデックスが有...
-
VBAで別ブックのシートを指定し...
-
VBA コードを実行すると画面が...
-
VBA 実行時エラー 2147024893
-
別ブックをダイアログボックス...
-
VBA 別ブックからコピペしたい...
-
エクセルのマクロについて教え...
-
【マクロ】違うフォルダにある...
-
VBAで複数のブックを開かずに処...
-
エクセルのマクロを使ってメー...
-
ACCESSVBA からExcelの他ブック...
-
vbaでvbaProjectのパスワード解...
-
フォルダ内の全てのファイルに...
-
pythonでクラスで複数のメソッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
vbaでvbaProjectのパスワード解...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
Excelのマクロについて教えてく...
-
【ExcelVBA】zip圧縮されたCSV...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
vbaで他のブックに転記したい。...
-
【マクロ】違うフォルダにある...
おすすめ情報