excel 別ファイルの指定シートをコピーする方法について

Question

別のエクセルファイルの特定シートを　現在開いているエクセルシートにコピーする
プログラムを組もうと思うのですがうまくいきません。

目的のプログラムは、ファイルのパス、ファイル名、シート名を指定すると
その中の特定セル（A1:B10)の範囲を現在の指定シート例えばsheet3にコピーするものです。

問題は、コピー元のエクセルシートには、マクロが組み込まれておりまして、
シートをアクティブにすると、プログラムが走ってしまうようで
エラーになります。

そこで、ファイルを開かず、直接シートのセルをコピーできれば良いと思いましたが、
シートの特定セルを直接参照するプログラムですと、実行速度が異常に遅いです。

コピー元のマクロを動かさないようにコピーする方法、もしくは
高速に他ファイルのシートにアクセスする方法をご存知の方、ご教授をお願いします。

ちなみに、直接参照するプログラムは、以下のようなものです。

Dim wsPaste As Worksheet
Set wsPaste = ThisWorkbook.Sheets(3)
Dim dataRng As Range

　　
'Spath = ファイルのフルパス
'Sfiles = ファイル名

'Ssheet = シート名

With wsPaste
    Set dataRng = .Range("A8:g100")'コピーする範囲
End With

Dim c As Range

For Each c In dataRng.Cells

    c.Formula = _
        "='" & Spath & _
        "[" & Sfiles & "]" & Ssheet & "'!" & c.Address   '

Next
With wsPaste.UsedRange
    .Copy
    .PasteSpecial xlPasteValues
End With

Answer 1

高速に他ファイルのシートにアクセスする方法

と言いますか、そもそもエクセルは常時裏で何らかの処理が走っています。
シートを参照したいなら下記のコードを処理に挟むように書くと処理がおよそ8.5倍速になります。

'シート更新の最初に書く
Application.Calculation = xlCalculationManual '計算モードをマニュアルにする
Application.EnableEvents = False              'イベントを停止させる
Application.ScreenUpdating = False            '画面表示更新を停止させる


'シート更新の最後に書く
Application.Calculation = xlCalculationAutomatic '計算モードを自動にする
Application.EnableEvents = True                  'イベントを開始させる
Application.ScreenUpdating = True                '画面表示更新を開始させる

どうでもいいですが、マクロが組み込まれいるならファイル形式を.xlsxに変更するとマクロが全て消去出来ます。

Comments

[mori_C]

xlsx化することで、マクロを消せるのですね。初めて知りました。
ありがとうございます。

[stdio]

書き忘れてましたが、一度エクセルで開いてから「名前を付けて保存」で保存しないとデータ破損が発生するので、注意して下さいね。

Answer 2

こういうことでしょうか？
速いかはわかりませんが。
あと動作未検証です。

Dim wsPaste As Worksheet
Set wsPaste = ThisWorkbook.Sheets(3)
Dim dataRng As Range

Dim wbSrc As Workbook
Dim wsSrc As Worksheet
'Spath = ファイルのフルパス
'Sfiles = ファイル名

'Ssheet = シート名
Set wbSrc = Workbooks.Open(Spath & "\" & Sfiles)
Set wsSrc = wbSrc.Worksheets(Ssheet)

With wsPaste
	Set dataRng = .Range("A8:g100")'コピーする範囲
End With

Dim c As Range
For Each c In dataRng.Cells
	c.Value = wsSrc.Range(c.Address).Value
Next

wbSrc.Close

.