時間を短くする方法を教えてください

Question

ブックAのSheet1のE12からM1000の値を、ブックBのB2以降に転記したいと思っています。
そこで、以下のようなコードにしてみたのですが、読み込むのに30分くらいかかってしまいました。
時間がかからないようにするためのアドバイスをいただけませんでしょうか？
なお、1000には特に意味はありません。

よろしくお願いいたします。

Sub test1()
Dim i As Long, j As Long
For i = 12 To 1000
For j = 2 To 9

Cells(i, j) = ExecuteExcel4Macro("'ブックA'!R" & i & "C" & j)
Next j
Next i
End Sub

Answer 1

ブックAを開かずにということなら、外部参照を使うと高速にできます。

'c:\test\ブックA.xlsx の sheet1 の E12：M1000の範囲の値をアクティブブックのB2以降に転記
Sub test()
    Dim f As String
    f = "'c:\test[ブックA.xlsx]sheet1'!E12"
    With Range("B2").Resize(1000 - 11, 9)
        .Formula = "=" & f
        .Value = .Value
    End With
End Sub

他にもADOを使って参照するのも高速です。

Comments

[mi_ku]

hatena19さん、ありがとうございます！
とても助かりました。

Answer 2

素直にブック開いてコピペすれば、遅くとも数秒でいけるのでは？

Comments

[mi_ku]

はい、結果的にはそれでも同じなのですが、今回はマクロでやりたいと思っていました。

Answer 3

以下①～④のやり方が簡単なので良いと思います。
①「ブックA」をExcelから開く
②「ブックA」のE12からM1000を範囲選択してコピー
③「ブックB」のB2にペースト
④「ブックA」を閉じる。

Comments

[mi_ku]

TanakaHiroakiさん、ありがとうございます。
たしかにそのほうが早いのですが、マクロでできる方法がないか考えていました。

[TanakaHiroaki]

Excelファイルを開き、必要な処理を行った後、ファイルを閉じることもマクロで実現できます。
例えば以下サイトを参考にしてみてください。
http://officetanaka.net/excel/vba/file/file01.htm

[mi_ku]

ありがとうございます。
開いて閉じることもできるのですね。
覚えておきます！