Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9902 / 13644 ツリー ←次へ | 前へ→

【24841】他のワークブックからシートをコピーしたい ダメ猫 05/5/11(水) 15:57 質問[未読]
【24843】Re:他のワークブックからシートをコピーし... Jaka 05/5/11(水) 16:19 回答[未読]
【24861】Re:他のワークブックからシートをコピーし... nossori 05/5/11(水) 20:59 発言[未読]
【24862】Re:他のワークブックからシートをコピーし... Kein 05/5/11(水) 21:14 回答[未読]
【24872】Re:他のワークブックからシートをコピーし... ダメ猫 05/5/12(木) 11:48 お礼[未読]

【24841】他のワークブックからシートをコピーした...
質問  ダメ猫  - 05/5/11(水) 15:57 -

引用なし
パスワード
   こんにちわ。

マクロの実行しているファイルに対して他のワークブックから
シートをコピーしたいのですが、ファイルを開かずにシートのみコピーする方法は無いでしょうか?
できないのでしたら、実行しているファイルはそのままで、オープンしたファイルは非表示にする方法は無いでしょうか?(コピーに時間がかかるためその間は隠しておきたい)

どなたか教えてください。

【24843】Re:他のワークブックからシートをコピー...
回答  Jaka  - 05/5/11(水) 16:19 -

引用なし
パスワード
   こんにちは。

こんな感じでも開いているようには見えないと思います。

Dim WB As Workbook
Application.ScreenUpdating = False
Set WB = Workbooks.Open・・・・・
WBのコピー処理
WBのクローズ処理
Application.ScreenUpdating = True

【24861】Re:他のワークブックからシートをコピー...
発言  nossori  - 05/5/11(水) 20:59 -

引用なし
パスワード
   ▼ダメ猫 さん:
今晩は。私もこの質問箱で知って、現在使っている「他のブックからのコピー」を
コピーしました。小生は非常に便利に使わせて頂いていますのでご紹介します。

>マクロの実行しているファイルに対して他のワークブックから
>シートをコピーしたいのですが、ファイルを開かずにシートのみコピーする方法は無いでしょうか?
>できないのでしたら、実行しているファイルはそのままで、オープンしたファイルは非表示にする方法は無いでしょうか?(コピーに時間がかかるためその間は隠しておきたい)
>
>どなたか教えてください。

Sub test()
  Dim bBK As Workbook
  
  On Error Resume Next
  Set bBK = Workbooks("別のブック.xls")
  If Err Then
    Set bBK = Workbooks.Open("U:\V他ブックの読み取り\別のブック.xls")
     ' これはUSBメモリを使って、ドライブ文字をUにしています。
    ’ドライブ文字を設定しなおしてください。フォルダー「他のブックの読み取     ’り」としています。 
  End If
  On Error GoTo 0
  If bBK Is Nothing Then Exit Sub
  bBK.Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets(1).Range("A1")
  bBK.Close False
  Set tBK = Nothing
End Sub

【24862】Re:他のワークブックからシートをコピー...
回答  Kein  - 05/5/11(水) 21:14 -

引用なし
パスワード
   コピー範囲が決まっているなら、リンクで値を引っ張ることが出来ます。
例えば

With Range("A1:H100")
  .Formula = "='C:\Temp\[Book3.xls]Sheet1'!A1"
  .Copy
  .PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False

など。

【24872】Re:他のワークブックからシートをコピー...
お礼  ダメ猫  - 05/5/12(木) 11:48 -

引用なし
パスワード
   皆様ありがとうございます。
返信が遅れて申し訳有りません。

大変参考になり、解決することができました。
ありがとうございました。

9902 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free