
よろしくお願いします。
今あるブックにあるシートを別のブックにコピーしたいのですが、今考えているのは
ここから////////
'ブックを開く
Workbooks.Open コピー元のブックのパス
'シートをコピー
Worksheets.Item(コピーするシート名).Copy _
after:=Workbooks(コピー先のブック名).Sheets(1)
'ブックを閉じる
Application.DisplayAlerts = False
Workbooks.Item(コピー元のブック名)Close True
Application.DisplayAlerts = True
ここまで////
なのですが、コピーものとのブックが複数ある時、画面がチラチラしてしまいます。ブックをオープンさせずにシートを他ブックにコピーさせる方法ってないでしょうか。
ご存知の方がいらっしゃいましたら、ご教授お願いします。
No.2ベストアンサー
- 回答日時:
画面のチラツキを押さえたいだけなら、画面の更新をやめればいいだけじゃないでしょうか?
ブックを開く前に
Application.ScreenUpdating = False
ブック閉じてから
Application.ScreenUpdating = True
No.4
- 回答日時:
ブックを開かないでリンクで関連付ける事ができます。
下記のリンクは
「ファイルにアクセスできなくなった場合の原因と対策」
ですが対策3が参考になると思います。
参考URL:http://support.microsoft.com/default.aspx?scid=h …
No.3
- 回答日時:
先日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
をやって見ると上手く行きました。
やった内容は
(1)CドライブのMy Documentsフォルダ内の
aaa14.xlsと言うエクセルファイルをターゲットにして
(2)「売上げ1」というシート名のシート(必ずしもSheets(1)ではない)の
(3)C2--->B列のデータ(値)を
いま開いている新規ブックBook1のシート(Sheet1)の
A1:A10にもって来れました。
ブックaaa14.xlsは開かれていませんし、閉じたようでもありませんでした。

No.1
- 回答日時:
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
参照先のブックを開かずに内容をコピーしたい
Excel(エクセル)
-
Excel VBA別ブックのシートをコピーするには
Visual Basic(VBA)
-
保存ブックを開かずコピーペーストするマクロ作成について
Excel(エクセル)
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
8
ファイルを閉じたままの外部参照で最終行の行数取得
Visual Basic(VBA)
-
9
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
10
VBA EXCEL 開かずにデータ操作
その他(Microsoft Office)
-
11
VBA ブックを開かずにブック内のデータを取得する方法
Visual Basic(VBA)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
【VBA】EXCELブックを開かずにシート名を取得したい
Visual Basic(VBA)
-
14
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
15
VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。
Visual Basic(VBA)
-
16
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
17
エクセルで開いていないbookのセルの値が欲しい
Excel(エクセル)
-
18
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
19
VBAで複数のブックを開かずに処理する方法
Visual Basic(VBA)
-
20
VBAで文字列を数値に変換したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
エクセルで参照しているデータ...
-
5
WorkBooksをオープンさせずにシ...
-
6
エクセルで「ディスクがいっぱ...
-
7
同じフォルダへのハイパーリン...
-
8
エクセル2016です。「ブッ...
-
9
エクセルで別ブックをバックグ...
-
10
エクセルに別ファイルのエクセ...
-
11
エクセルで開いていないbookの...
-
12
エクセルファイルをオープンし...
-
13
Excel起動時に特定のワークシー...
-
14
Excelでブックの共有を掛けると...
-
15
エクセルで複数のシートを別フ...
-
16
エクセルで50行ごとに区切った...
-
17
エクセルファイルを開かずにpdf...
-
18
Excelで複数ブックの同一セルに...
-
19
Excelファイルを開いても何も表...
-
20
ブックのピボットを別ブックに...
おすすめ情報
公式facebook
公式twitter