教えてください

質問

簡単なことで済みません。
初心者なので分からずつまづいています。
教えてください。
下記のソースを実行するとエラーが出てきます。
「メモリーが不足しています」
「ファイルが見つかりません」

どう対処したらいいのでしょうか？

Private Sub Command1_Click()

On Error GoTo dbg:
' Excelのインスタンス作成
Set xlApp = CreateObject("Excel.Application")
' Excelを表示有無
xlApp.Visible = True
' マクロの警告やメッセージを表示しないように設定
xlApp.DisplayAlerts = False
' 指定したExcelファイルを開く
Set xlBook = xlApp.Workbooks.open("D:\test.xls")
' Excelの終了
xlApp.Quit
' オブジェクトを解放
Set xlBook = Nothing
Set xlApp = Nothing
Exit Sub

dbg:
' エラーメッセージを表示
MsgBox Err.Description

End Sub

回答No.2

todo36 · ベストアンサー

エラー処理が安易すぎ。
Excelが残っているのでしょう。

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=231028

回答No.1

norakuma

手持ちのVB6.0SP4 on WinXP Proにて確認しましたが、動作しましたよ。

メッセージ通り、D:\test.xlsがないのでは？

環境を教えてください。