Excel VBA、 別ブックの最終行セルへのコピー＆値ペースト

Excel Book AのSheet1には、その日の２種の売り上げと件数が自動計算されている。
Excel Book Bはサーバ内に在り、Sheet2上に前述の４つの値を日々蓄積したい。
具体的な動作は、
①マクロONでBook A のSheet 1上の4セルのコピー
②Book BのSheet2を開く　
③列　D、E、F、Gの最終空セルに項目①の4データの値をペースト
④データをセーブし、Book Bを閉じる
ご教授よろしくお願いいたします。

No.2 回答者： hallo-2007 回答日時： 2015/05/04 16:14

実際の業務での運用の場合ですが

準備
１、BookA　の別シート（仮に　設定と云う名前）を準備
２、BookB　へのパスとファイル名を入れておく
　　仮に　
　　A　　　　　　　　　　　B
　ファイルへのパス　　　　Z:\
　ファイル名　　　　　　　BookB.Xlsx
この方が、後々、変更があった場合に、マクロを修正する事がなく使えます。


BookAのマクロ
①Book BのSheet2を開く　
③列　D、E、F、Gの最終空セルに、BookAの所定のセルの値を入れる。
④データをセーブし、Book Bを閉じる
この様にした方が良いと思います。

Workbooks.Open Sheets("設定").Range("B2").Value & "\" & Sheets("設定").Rnage("B3").Value
Sheets("Sheets2").Activate

Gyou=Range("D" & Rows.Count).End(Xlup).Row+1
Range("D" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル1）.Value
Range("E" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル2）.Value
Range("F" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル3）.Value
Range("G" & Gyou).Value=Thisworkbook.Sheets("Sheets2").Range(所定のセル4）.Value

ActiveBook.Save
ActiveBook.Close

の様な流れ
実際には、
マクロを重複して操作できない様に
コピー元のデータをクリアして、BookAも上書き保存してしまう。
再度、マクロを実行しても何も起こらない様にする

既に、BookBを誰かが開いていた場合
BookBが読み取り専用で開いてしまったら、メッセージを出して
何もせずに終了

ミスがあって、BookBを修正する時のルール
などと発展させていきます。

この回答へのお礼

この度はGwの貴重な時間を割き、貴重なアドバイスをいただき有難うございました。

お礼日時：2015/05/05 20:59

No.1 回答者： tom04 回答日時： 2015/05/04 00:28

こんばんは！

＞Book A のSheet 1上の4セルのコピー
が具体的にどのセルかが判らないので、仮にA2～D2セルとしています。

↓のコードをBookAの標準モジュールにしてみてください。

Sub Sample1()
Dim wB As Workbook, wS As Worksheet
Dim myPath As String, fN As String
myPath = "ファイル保存場所のパス" & "\"
fN = "B.xlsx"
Workbooks.Open myPath & fN
Set wB = Workbooks(fN)
Set wS = wB.Worksheets("Sheet2")
ThisWorkbook.Worksheets("Sheet1").Range("A2").Resize(, 4).Copy '←Sheet1のA2～D2セルをコピー＆ペースト★//
With wS.Cells(Rows.Count, "D").End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteValues
.Select
End With
wB.Save
wB.Close
End Sub

※　こんな流れになると思います。m(_ _)m

この回答へのお礼

初めまして、
GWの貴重な時間に回答いただき、誠に有難うございました。
回答いただきました内容を検討し、実際のソフトに対応したコーヂングを行いたいと思います。
重ねてお礼申し上げます。

お礼日時：2015/05/04 09:43