【マクロ】【VBA】別ブックへのデータ転記について

タイトルの件について、添付画像をご覧ください

ブック１からブック２へデータ転記をしたいです。
ご存じの方、ご指導お願いします

No.2 ベストアンサー 回答者： tatsumaru77 回答日時： 2023/07/23 22:29

標準モジュールへ以下のマクロを登録してください。

Const Folder = "D:\goo\data9"
はBook2.xlsxを格納しているフォルダ名です。
あなたの環境にあわせて適切に設定してください。
---------------------------------------------------------
Option Explicit
Public Sub 別ブックへ転記()
Const Folder = "D:\goo\data9"
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Set ws1 = Worksheets("Sheet1")
maxrow1 = ws1.Cells(Rows.Count, "A").End(xlUp).Row
If maxrow1 < 4 Then Exit Sub
Set wb2 = Workbooks.Open(Folder & "\" & "Book2.xlsx")
Set ws2 = wb2.Worksheets("Sheet2")
maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
If maxrow2 < 4 Then maxrow2 = 4
row2 = maxrow2 + 1
For row1 = 4 To maxrow1
ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(row1, 1).Resize(1, 3).Value
row2 = row2 + 1
Next
wb2.Save
wb2.Close
MsgBox ("完了")
End Sub

この回答へのお礼

お返事遅くなりました。大変勉強になりました。次回、同じフォルダーにあるExcelからExcelへのデータ転記を相談しますので、お時間ありましたら、宜しくお願い致します！

お礼日時：2023/07/26 09:40

No.1 回答者： tatsumaru77 回答日時： 2023/07/23 08:19

不明点です。

１．Book2の拡張子は、xlsxでしょうか。（ファイル名はBook2.xlsxですか）

２．Book1とBook2は同じフォルダ内に格納されていますか。
それとも、別々のフォルダですか。

この回答へのお礼

お返事ありがとうございます

1→質問のとおりです→xlsxです

2→別々のフォルダです

ご指導、宜しくお願い致します！

お礼日時：2023/07/23 13:38