Excel ＶBAの違うBOOKへのコピーについて

質問

お世話様です
excel　vbaのコピーについての質問です
C:\Documents and Settings\tanaka\デスクトップ\a
というbookの中にあるsheet1のa1のデータ(以後a-a1と表記)を
C:\Documents and Settings\tanaka\デスクトップ\b
というbookの中にあるsheet2のc1にコピーしたい、と言った場合、
(以後b-c1と表記)
それぞれのbookをactiveにしないとだめでしょうか
（つまり、違うbookのファイル間でのコピーの際の質問なのですが）

私にはその方法しかわからず、この後　a-a11をb-d3へ、a-e11をb-s18へというアットランダムコピーが続くのですが、非常にコードも長く、時間がかかる処理になってしまいます。

どうか教えていただけると助かります
宜しくお願いします

回答No.2

olive_surf · ベストアンサー

こんにちは。

ただ単に表示をさせたくない場合には
application.screenupdate = false
でできます。

また、FileSystemObjectを使用してもできます。
下記の例はa.xlsに埋め込んで起動させて下さい。
（処理は単純に同じ場所のセルの内容をコピーするだけです）
=============================================================
Sub test()

Set obExcel = CreateObject("Excel.Application")
obExcel.Visible = False
Set obBook = obExcel.Workbooks.Open("C:\Documents and Settings\tanaka\デスクトップ\b.xls")
Set obSheet = obExcel.Sheets(1)

x = 1: y = 1
Do Until x = 10
obSheet.Cells(x, y) = ActiveSheet.Cells(x, y)
x = x + 1
Loop

obBook.Close savechanges:=True
Set obExcel = Nothing: Set obBook = Nothing: Set obSheet = Nothing

End Sub
=============================================================

上記は見えなくしているだけで、実際にはファイルを開いています。
この他に「実際にファイルを開かなくても入力する方法」があったような気がします。Webで検索してみて下さい。（なかったらごめんなさい）

お礼

ははぁ、なるほど
obExcel.Visible = False
で見えなくするわけですね
ありがとうございました

回答No.3

olive_surf

ありました。
ただ、下記の方法でセル操作できるかわかりません。
===========================================
Sub Sample()
n = FreeFile
Open "D:\Test\t.xls" For Output As #n
Print #n, Now
Close #n
End Sub
===========================================
あとはいろいろと工夫してみてください。
ではでは。

お礼

あ、これはtxtファイルからの書き出しやtxtファイルへの書き出しに使う方法ですね
なるほど、試してみます
ありがとうございました

回答No.1

higekuman

VBAで処理したいファイルは、開いている状態じゃないと、扱えなかったと思います。

お礼

そうなんですね
こちらのシートをセレクト、コピー、こちらのシートをセレクト、貼り付け、とやっていると、コピーする数が多いものでコードがものすごく長くなってしまい、
なんとかなれば・・と思ったのですが
さっそくのお返事ありがとうございました