実行時エラー 1004 Rowsメソッドは失敗しま

質問

アクセスからエクセルファイルを開いています。
Sub tset()
Dim int行数 As Integer
Dim xlApp As Object
Dim xlWbk As Object

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
Set xlWbk = xlApp.Workbooks.Open("C:\test.xlsx")

xlApp.Sheets(1).Select
int行数 = xlApp.Cells(Rows.Count, "A").End(xlUp).Row

xlWbk.Close
xlApp.Quit

Set xlApp = Nothing

End Sub

このコードなのですが、1回目は普通にファイルが開いて閉じるのに
同じこのプロシージャーを2回連続で実行しようとすると
2回目は必ず
int行数 = xlApp.Cells(Rows.Count, "A").End(xlUp).Row
の部分で、

実行時エラー　1004
Rowsメソッドは失敗しました。　_Globalオブジェクト

となります。

なぜ最初は問題なくコードが通るのに
2回目はダメなのでしょうか？

回答No.1

NotFound404 · ベストアンサー

一回目が無事終了した後でタスクマネージャのプロセスタブで確認すると
無いはずのExcelプロセスがありませんか？
http://hanatyan.sakura.ne.jp/vbhlp/ExcelErr.htm
どこで発生しているのか突き止められませんでしたが下記では解消しました。

Sub tsetN1()
Dim int行数 As Integer
Dim xlApp As Object 'Excel.Application
Dim xlWbk As Object 'excel.workbook
Dim xlSht As Object 'excel.worksheet
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
Set xlWbk = xlApp.Workbooks.Open("c:\tmp\test.xlsx")
Set xlSht = xlWbk.Sheets(1)
'xlApp.Sheets(1).Select
int行数 = xlSht.Cells(xlSht.Rows.Count, "A").End(xlUp).Row

Set xlSht = Nothing
xlWbk.Close: Set xlWbk = Nothing
xlApp.Quit: Set xlApp = Nothing

End Sub

なお、せっかくExcelに参照設定をしているのでしょうから
変数の宣言はコメントの方に変えられた方が良いかな？と。
それとWindows Vista 以降はUAC？によってCドライブ直下は制約がありますので
避けた方が無難です。

お礼

ご回答ありがとうございます。