プロが教える店舗&オフィスのセキュリティ対策術

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

gooドクター

A 回答 (2件)

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


準備
1、BookA の別シート(仮に 設定と云う名前)を準備
2、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を修正する時のルール
などと発展させていきます。
    • good
    • 1
この回答へのお礼

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

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

こんばんは!



>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
    • good
    • 3
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング