vba 別ブック指定シートに追記

Question

お世話になります。
excelで実行すると作業結果を別ブックのシート名をYYYYMMDD_Xの連番で保存するようなマクロを組んでいるのですが、その別ブックに保存したシートに対して書き込みを追加で行った上で上書き保存したいのですが、どのようにしたらよいのでしょうか？

それか、追加で書き込みが終わったシートを同名のシートでコピーして、保存済みのシートを上書きして保存、という方法で実現できるならそれでも可能なのですが．．．
コピーした際に、YYYYMMDD_X YYYYMMDD_X(2)にならないように考慮は必要です。

Answer 1

これでよくないですか？

Workbooks(ブック名).Worksheets(シート名).Range(セル番地).Value = 値
Workbooks(ブック名).Save

対象のブックを開いておく必要があります。
また、ttyp03さんのApplication.DisplayAlertsを利用するのもよいと思います。

Comments

[ynakano]

質問追記を受けてコメント。
「その別ブックに保存したシートに対して書き込みを追加」の認識がcoko1さんとは違っていたような気がしてます。
ズレた回答だった失礼しました。

Answer 2

上書き保存はSaveで行えます。
警告を表示しないようにするにはApplication.DisplayAlertsプロパティをFalseに設定します。
組み合わせて次のような感じで実装できると思います。

Dim wb As workbook
Set wb = Workbooks(1)

～ブックの操作～

Application.DisplayAlerts = False
wb.Save
Application.DisplayAlerts = True

---

更新された質問に対応した版

Dim wb_from As Workbook
Dim wb_to As Workbook

' 現在のブックを保持
Set wb_from = ActiveWorkbook
' 保存済みワークブックを開く
Set wb_to = Workbooks.Open("xxxx.xlsx")
' シートをコピー
wb_from.Worksheets(1).Copy before:=wb_to.Worksheets(1)
' シート名を変更
wb_to.Worksheets(1).Name = wb_from.Worksheets(1).Name
' 保存
wb_to.Save
' 閉じる
wb_to.Close

Comments

[coko1]

上書きするBookのsheet名の指定はどうしたらいいのでしょうか？

[Y.H.]

nameプロパティに設定したいシート名を設定してください。

[ttyp03]

シート名はY.H.さんのコメントにあるようにNameプロパティを設定します。
例えばwb_toを保存先ワークブック、wb_fromを作業用ワークブックとした場合、次のような感じで名前を変更できます。
wb_to.Worksheets(1).Name = wb_from.Worksheets(1).Name
対象とするWorksheetsの要素は適宜修正してください。
要素の指定はシート名でも可能です。
wb_to.Worksheets("Sheet1").Name = wb_from.Worksheets("Sheet1").Name

[ttyp03]

あれ、よく見たら質問が更新されている…。
作業用ブックから作成済みブックに同名のシート名でコピーして保存したい、ということでよいでしょうか？

[ttyp03]

返信がないですが上記の観点で修正したコードを貼っておきました。参考にしてください。