【Excel】【VBA】値を別のファイルへ貼り付けるには？

2011/12/417:30:38

VBAをしようしてAというファイル(シートではなく)の123というデータをBというファイルに2を、Cというファイルには3を貼付け…というような動作をさせたいのですがどういったプログラムを書けばいいのかわかりません。

例
AのExcelファイルにある1～10という値を
BのExcelフアイルには2を貼付け
CのExcelファイルには3を貼付け
DのExcelファイルには4を貼付け
・
・
・

もしわかる方やアドバイスしていただける方いたらご教授おねがいいたします。

この質問は、活躍中のチエリアン・専門家に回答をリクエストしました。

共感した 0

閲覧数：: 9,378
回答数：: 1
お礼：: 500枚

違反報告

ベストアンサーに選ばれた回答

kom********さん

2011/12/719:52:17

バージョン指定がないので2007で作成しました
こんな感じでしょうか？

A,B,C,Dという名前のワークブックを作成し、
ワークブックAのSheet1 A1～C1に適当な値を入れて実行してみてください。
このVBAは別のワークブックに張り付けて、A,B,C,Dのファイルは閉じておいてください。

Sub DataCopy()

'ワークブックAを開く
Workbooks.Open "フォルダパス \A.xlsx"

'ワークブックBを開く
Workbooks.Open "フォルダパス \B.xlsx"

'ワークブックAのA1をコピー
Windows("A.xlsx").Activate
Range("A1").Select
Selection.Copy

'ワークブックBのA1に張り付け
Windows("B.xlsx").Activate
ActiveSheet.Paste

'ワークブックBをセーブして閉じる
ActiveWorkbook.Save
ActiveWindow.Close

'以下繰り返し

Workbooks.Open "フォルダパス \C.xlsx"

Windows("A.xlsx").Activate
Range("B1").Select
Selection.Copy

Windows("C.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste

ActiveWorkbook.Save
ActiveWindow.Close

Workbooks.Open "フォルダパス \D.xlsx"
Windows("A.xlsx").Activate
Range("C1").Select
Selection.Copy

Windows("D.xlsx").Activate
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close

Windows("A.xlsx").Activate
ActiveWindow.Close

End Sub