WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】

解決済

質問者：hakku
質問日時：2004/12/15 09:39
回答数：4件

よろしくお願いします。
今あるブックにあるシートを別のブックにコピーしたいのですが、今考えているのは

ここから////////
'ブックを開く
Workbooks.Open コピー元のブックのパス
'シートをコピー
Worksheets.Item(コピーするシート名).Copy _
after:=Workbooks(コピー先のブック名).Sheets(1)

'ブックを閉じる
Application.DisplayAlerts = False
Workbooks.Item(コピー元のブック名)Close True
Application.DisplayAlerts = True
ここまで////

なのですが、コピーものとのブックが複数ある時、画面がチラチラしてしまいます。ブックをオープンさせずにシートを他ブックにコピーさせる方法ってないでしょうか。
ご存知の方がいらっしゃいましたら、ご教授お願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： noname#29107
回答日時：2004/12/15 10:15

画面のチラツキを押さえたいだけなら、画面の更新をやめればいいだけじゃないでしょうか？

ブックを開く前に
Application.ScreenUpdating = False
ブック閉じてから
Application.ScreenUpdating = True

- 4
- 件

通報する

No.4

回答者： spsabu
回答日時：2004/12/15 16:37

ブックを開かないでリンクで関連付ける事ができます。

下記のリンクは
「ファイルにアクセスできなくなった場合の原因と対策」
ですが対策３が参考になると思います。

参考URL：http://support.microsoft.com/default.aspx?scid=h …

- 0
- 件

通報する

No.3

回答者： imogasi
回答日時：2004/12/15 14:03

先日Application.ExecuteExcel4Macro の質問があり

それを思い出して、旧い時代のステートメンを使うことになりますが
Sub test01()
For i = 1 To 10
Cells(i, 1) = Application.ExecuteExcel4Macro _
("'C:\My Documents\[aaa14.xls]売上げ1'!R" & i & "C2")
Next i
End Sub
をやって見ると上手く行きました。
やった内容は
（１）ＣドライブのMy Documentsフォルダ内の
aaa14.xlsと言うエクセルファイルをターゲットにして
（２）「売上げ1」というシート名のシート（必ずしもＳｈｅｅｔｓ（１）ではない）の
（３）Ｃ２－－－＞Ｂ列のデータ（値）を
いま開いている新規ブックＢｏｏｋ１のシート（Ｓｈｅｅｔ１）の
Ａ１：Ａ１０にもって来れました。
ブックaaa14.xlsは開かれていませんし、閉じたようでもありませんでした。

- 1
- 件

通報する

No.1

回答者： kimitsjin
回答日時：2004/12/15 10:02

EXCEL VBA で "excel.application"ってのも

妙な話ですが使えないわけではないので、
他に良い回答がなかったら使って下さい。

Dim xlapp As Variant
Dim bk As Variant

Set xlapp = CreateObject("excel.application")
xlapp.Visible = False ' ★この命令で、見えない状態でブックを開くことができる★
Set bk = xlapp.Workbooks.Open(コピー元のブックのパス)
　　　　　：
　　　　　：
この開いたブックにアクセスするには、全てのEXCEL命令の頭に xlapp. をつければよい。

例： xlapp.Workbooks.Open
xlapp.cells("A1")
等

　　　　　：
　　　　　：
xlapp.Quit
Set xlapp = Nothing