VBAのコード

質問

VBA初心者です。
"元データ"シートのA1をコピーし、cドライブにある、"保存用"というフォルダの、"一覧"というBOOKの"保存先"というシートのA1に貼り付ける時のコードがわかりません。
貼り付け先のシートを指定する記述がどうしてもわからないので助けてください。
よろしくお願いします。

回答No.1

kybo · ベストアンサー

ブックは開かないと貼り付けはできません。なので、「一覧」を開いて、貼り付け、保存して閉じるという流れになります。
「一覧」というブックの拡張子が、「xls」だとして。それ以外の場合は修正して下さい。

Sub macro()
Worksheets("元データ").Range("A1").Copy
With Workbooks.Open("C:\保存用\一覧.xls")
.Worksheets("保存先").Range("A1").PasteSpecial
.Close True
End With
End Sub

お礼

できました！
大変助かりました。
ありがとうございます。