別のエクセルのファイルを開いてシートの内容をコピーした後閉じる方法

質問

別のエクセルのファイルを開いてシートの内容をコピーした後閉じる方法

初心者で詳しくありません。このような事をするにはどう組み立てればよいでしょうか？

2つのエクセルのファイルがあります。
AのファイルにはVBAを埋め込んでいるファイル。
Bのファイルにはデータ。

Aのファイルを開き、マクロを実行します。
その内容は、ファイル名を指定して開く画面を表示して、Bのファイルを選択し開きます。
SHEET1のデータをすべてコピーして、Aのファイルの特定のシートに貼り付けた後、Bのシートは閉じます。

という動作を組み込みたいです。
上記のような流れでなくても、同じことができるのであればそれでも構いません。

いろいろ組み合わせてやってはみるものの、どうも意図しているような動き方にはならなくてこまってます。基本的な話で申し訳ないのですが、どなたか教えていただけませんでしょうか。

よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

sub macro1()
　dim res
　dim w as workbook

　res = application.getopenfilename()
　if res = "" then exit sub

　set w = workbooks.open(filename:=res)
　w.worksheets("Sheet1").usedrange.copy _
destination:=thisworkbook.worksheets("Sheet1").cells.specialcells(xlcelltypelastcell).offset(1).end(xltoleft)
　w.close false

end sub

のような。

お礼

ありがとうございました。

このように記述すればできるんですね。勉強になりました。

読み込んでActiveになってるブックのSheet1を指定してコピーして閉じて、もう一方のブックのシートに貼り付けようとしてたんですが、うまく動かなくて。

コピーより右側の部分、

destination:=thisworkbook.worksheets("Sheet1").cells.specialcells(xlcelltypelastcell).offset(1).end(xltoleft)

どこを削ってどうすればどうなるってこともやってみまして、なんとなくこんな意味合いんだろうなぁと、ヘルプを見比べながら考えてましたが、すみません、最後にここの解説をお願いできませんでしょうか。

せっかくなので、自己流で解釈してしまいますと、間違って覚えてしまうことが多いものですから・・・。

お手数をおかけいたしますが、よろしくお願いいたします。