ExcelVBA 他ワークブックへデータ書き出し

いつもお世話になっております。
教えてください。

現在開いているExcelブックの特定箇所をボタンワンプッシュで、他Excelシートまでデータを書き出ししたいと考えておりますが、エラー発生のため、マクロ実行することができず困っております。コードを訂正する必要があると思うのですが、どのように訂正したらよいかわからず、ご教示頂けないかと思います。よろしくお願いします。

ex)添付ファイルを参照ください。現在開いているシート（シートA.xls）の特定箇所（A1）をマクロボタンを押下すると、他Excelシート(Cドライブの【シート】フォルダ内の【シートB】.xls)までデータを書き出ししたい（書き出す場所はシートAと同じA1）と考えております。


※小生作成VBAコード

Sub test()

Workbooks("C:\シート\Bシート.xls").Worksheets("sheet1").Range("A1").Value = Workbooks("Aシート.xls").Worksheets("sheet1").Range("A1")

End Sub

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2011/04/10 20:00

Bシート.xls　は開いてはいないBookでしょうか？

であるならば　開く操作から必要です。
Sub test()
Workbooks.Open Filename := "C:\シート\Bシート.xls"
Workbooks("Bシート.xls").Worksheets("sheet1").Range("A1").Value = Workbooks("Aシート.xls").Worksheets("sheet1").Range("A1").Value
Workbooks("Bシート.xls").Close SaveChanges:=True
End Sub
Bシート>xls　のファイルを開いて
値をいれて
上書き保存して閉じる
３つ操作が必要です。
少し省略するなら
Sub test()
Workbooks.Open Filename := "C:\シート\Bシート.xls"
ActiveWorkBook.Worksheets("sheet1").Range("A1").Value = Workbooks("Aシート.xls").Worksheets("sheet1").Range("A1").Value
ActiveWorkBook.Close SaveChanges:=True
End Sub
でも良いでしょう。

この回答へのお礼

完璧な100%の回答でした。

お礼日時：2011/04/10 20:25