ここから本文です

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

zom********さん

2011/12/417:30:38

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

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


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




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

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

閲覧数:
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

この質問は投票によってベストアンサーに選ばれました!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる