0

以下のコードでは、エラー コード 6 のオーバーフローが発生しています。エラーで [OK] をクリックすると、ファイルが開きます。この同じコードを使用して、このマクロ内で他のワークブックを開きますが、問題ありません。ファイルを宛先に移動すると、うまくいきました。Bしかし、ネットワーク ロケーションからロードしようとすると失敗します。変数も再利用する前に必ずクリアします。

Dim xlWorkbook2 As Excel.Workbook
Dim FILEPATH As String

FILEPATH = "C:\\Daily Remit History Data\dailycashtran.xlsx"
Set xlWorkbook2 = Workbooks.Open(FILEPATH)
4

1 に答える 1

0

問題は、コード化したシート名を見つけられなかった場合、セルの数を数えていたコードの次の行でした。

count = Worksheets("Sheet 1").Cells(Rows.count, "A").End(xlUp).Row

シートが開いたときに、EXCEL の別のインスタンスを開いていました。自分の方法のエラーを確認し、問題を修正した場合に他のワークブックを開く方法を修正しました。

ありがとう

于 2013-10-16T19:35:01.743 に答える