【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい【ブック１からブック２へ】

添付画像をご覧ください。

【やりいたい事】
ブック１の A2:C2 のセルの値を　ブック２のA8:C8 へ転記したい

【他情報】
ブック１とブック２は同じフォルダ内(仕事フォルダ)にあります


ブック1の場所とファイル名：　C:\Users\2020\Desktop\仕事\Book1.xlsm
ブック1シート名：Sheet1

ブック2の場所とファイル名：　C:\Users\2020\Desktop\仕事\Book2.xlsx
ブック2シート名：Sheet1



【参考：詳しい方が教えてくれたコード】
※自分の貼付方が悪いのか動かなかったです


Option Explicit
Public Sub 別ブックへ転記2()
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(ThisWorkbook.path & "\" & "Book2.xlsx")
Set ws2 = wb2.Worksheets("Sheet1")
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

No.9 ベストアンサー 回答者： tatsumaru77 回答日時： 2023/08/14 09:50

>すいません、ブック2もオープンにしたまま、連続して転記をする状態がありました！！！

>しかし、ブック1から常に実行→実行ボタンもつけますので、常にブック1からの実行てなり問題ないことを確認しました

結局、現状のままで良いということでしょうか。

マクロの勉強は最初は、参考書を購入して勉強しました。
マクロで何かの特定のことに関して調べる場合は、下記の
オフィス田中をよく利用しています。
http://officetanaka.net/excel/vba/tips/

No.8 回答者： tatsumaru77 回答日時： 2023/08/11 09:10

No7です。

そもそもの話になりますが、
マクロ実行時の前提は
①ブック１はオープンした状態、ブック２はクローズした状態
になっています。
これを
②ブック１はオープンした状態、ブック2もオープンした状態
にしたいということでしょうか。

③それとも、①、②のどちらの状態であっても正しく動作するようにしたい
ということでしょうか。

この回答へのお礼

すいません、ブック2もオープンにしたまま、連続して転記をする状態がありました！！！しかし、ブック1から常に実行→実行ボタンもつけますので、常にブック1からの実行てなり問題ないことを確認しました

すごく効率的で助かっています
今、コードの理解も進めています

ちなまに、たつまるさんは
マクロの勉強は、どのよううにして
行ったんですか？？？

自分は、、すごく、マクロに興味が
あり、勉強しています

お礼日時：2023/08/13 17:12

No.7 回答者： tatsumaru77 回答日時： 2023/08/11 08:54

No6です。

No6は無視してください。
ブック2、ブック１をともにオープンし、ブック２をアクティブ状態にして、
当該マクロを実行すると、ブック２の情報をブック２に転記してしまうことが確認できました。

本来、ブック２はクローズしてあることが前提です。
従って、ブック２がオープンされた状態でマクロを実行したとき、
以下のいずれかの動作が考えられます。
①ブック２がオープン中なので、エラーとする。
②構わずに処理を続行し、ブック１の内容をブック２に転記する。

上記で②の方を希望されるということでしょうか。

No.6 回答者： tatsumaru77 回答日時： 2023/08/11 08:26

>ブック１【転記元】ではなく、ブック２【転記先】がアクティブになっていると、ブック２の情報をブック２に転記してしまいます。

そもそもの話ですが、ブック２はクローズされた状態です。
それをオープンしたときに、ブック２がアクティブになります。
最初からブック２がアクティブにはならないはずですが・・・・・

マクロは、ブック１の標準モジュールに登録されている前提です。
ブック１は、マクロのあるファイルなので、必ず
Set ws1 = Worksheets("Sheet1")
でブック１のシート１がws1に設定されることが保証されるはずです。

具体的にどのような操作をしたとき、ブック２の情報をブック２に転記してしまうのでしょうか。

No.5 回答者： tatsumaru77 回答日時： 2023/08/11 07:08

No4です。

If maxrow2 < 4 Then maxrow2 = 4
は
If maxrow2 < 2 Then maxrow2 = 2
の誤りでした。訂正します。

この回答へのお礼

すいませんありがとうございます。

あと１点

ブック１【転記元】ではなく、ブック２【転記先】がアクティブになっていると、ブック２の情報をブック２に転記してしまいます。


以下コードの転記元を　Sheet１だけではなく、ブック１のシート１と
指定すれば出来ると思いますが、コードが書けません。

ご教授お願いします。なお、他の方法でも大丈夫です

ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(row1, 1).Resize(1, 3).Value

お礼日時：2023/08/11 07:57

No.4 回答者： tatsumaru77 回答日時： 2023/08/11 07:04

No3です。

maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
A列の最終行を取得します。

If maxrow2 < 4 Then maxrow2 = 4
もし、最終行が４未満なら、強制的に最終行を４にします。

row2 = maxrow2 + 1
row2は、書き込み先の行番号なので、
最終行＋１をrow2にセットします。


ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(2, 1).Resize(1, 3).
Value
（転記先row2行の１列目のセル）を３列に伸ばしたセルへ
（転記元２行、１列目のセル）を３列に伸ばしたセルを転記

この回答へのお礼

すいません。最新補足２つ目です。

エクセル２を閉じるのをやめたのです。wb2.Close　のコードを
消しました。

お礼日時：2023/08/11 08:02

No.3 回答者： tatsumaru77 回答日時： 2023/08/10 14:37

以下のようにしてください。

転記元は、常にA2～C2です。

Public Sub 別ブックへ転記2()
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Set ws1 = Worksheets("Sheet1")
Set wb2 = Workbooks.Open(ThisWorkbook.path & "\" & "Book2.xlsx")
Set ws2 = wb2.Worksheets("Sheet1")
maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
If maxrow2 < 4 Then maxrow2 = 4
row2 = maxrow2 + 1
ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(2, 1).Resize(1, 3).Value
wb2.Save
wb2.Close
MsgBox ("完了")
End Sub

この回答へのお礼

ありがとうございます。動きました。感動しています。
今、コードを理解しているところです。
以下４つのコードについて、簡単に教えていただけないでしょうか。
どんな作業。指示をしているといような感じでですね。
簡単にで大丈夫です。

maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row

If maxrow2 < 4 Then maxrow2 = 4

row2 = maxrow2 + 1

ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(2, 1).Resize(1, 3).
Value

お礼日時：2023/08/11 06:47

No.2 回答者： yhobear77 回答日時： 2023/08/10 13:25

であれば【詳しい方が教えてくれたコード】をそのまま使ってください。

ただし、転記したい行をブック１の4行目にもってきてください。

No.1 回答者： yhobear77 回答日時： 2023/08/10 09:33

＞【やりいたい事】

＞ブック１の A2:C2 のセルの値を　ブック２のA8:C8 へ転記したい
これだけでいいのであれば下記のコードで動くと思いますが、
ブック１に2行以上のデータがあっても転記したい、
とかブック２の末尾に転記したい、などの要望には対応していません。

---------------------------------------------------
Option Explicit
Public Sub 別ブックへ転記2()
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Set ws1 = Worksheets("Sheet1")
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\" & "Book2.xlsx")
Set ws2 = wb2.Worksheets("Sheet1")
ws2.Cells(8, 1).Resize(1, 3).Value = ws1.Cells(2, 1).Resize(1, 3).Value
wb2.Save
wb2.Close
MsgBox ("完了")
End Sub
---------------------------------------------------

この回答へのお礼

回答ありがとうございます
説明が下手だったのですが

ブック1のセル番地は変わらない
のですが

ブック2→転記先の行は
時間によって、8行目、9行目と
行だけ、増えていきます

台帳で、どんどん下に追加して
いきます

アドバイスいただけましたら
宜しくお願い致します！

お礼日時：2023/08/10 13:05