| |
▼ダメ猫 さん：
今晩は。私もこの質問箱で知って、現在使っている「他のブックからのコピー」を
コピーしました。小生は非常に便利に使わせて頂いていますのでご紹介します。
>マクロの実行しているファイルに対して他のワークブックから
>シートをコピーしたいのですが、ファイルを開かずにシートのみコピーする方法は無いでしょうか？
>できないのでしたら、実行しているファイルはそのままで、オープンしたファイルは非表示にする方法は無いでしょうか？（コピーに時間がかかるためその間は隠しておきたい）
>
>どなたか教えてください。
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
