ExcelVBA ブック全データを別ブックにコピー

質問

お世話になります。

自分のPC環境のC:\test\配下にある"練習.xls"というブックがります。
ボタンが押された時にこのブックの全データをデスクトップにある"集計.xls"のA1から張り付けたいのです。

あるサイトで下記のようなロジックが公開されていましたので、ファイル名を変えて実行しましたが
下記★箇所で"インデックスが有効範囲にありません"とエラーが出てしまいます。

どなたか改善方法をご教授いただけませんでしょうか？
よろしくお願い致します。

環境　windows XPSP3 　Excel2003

Sub ボタン1_Click()

Dim a As Variant
Dim b As Variant

Workbooks.Open Filename:="C:\test\練習.xls"
★Set a = Workbooks("\C:\test\練習.xls").Worksheets("sheet1").UsedRange
Set b = Workbooks("集計.xls").Worksheets("sheet1").Range("A1")

a.Copy (b)

Set a = Nothing
Set b = Nothing

End Sub

回答No.1

keithin · ベストアンサー

間違い：
Set a = Workbooks("\C:\test\練習.xls").Worksheets("sheet1").UsedRange

正解：
Set a = Workbooks("練習.xls").Worksheets("sheet1").UsedRange

＃その次のset b=ではちゃんとできてるのに？

お礼

keithinさん、早速のご連絡ありがとうございました！

ご教授いただきました方法で望み通りの結果が得られました。
助かりました！

本当にいつもありがとうございます。