VBAで指定したパスが存在しなければ、アラートを表示させずにExit Subの処理をしたい

質問

Sub s()
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate ("X:")
End Sub

上記のVBAを実行するとXドライブがなければ
「'file:///X:' が見つかりません。パスまたはインターネットアドレスが正しいかどうかを確認してください。」と表示されます。
指定したパスが存在しなければ、このメッセージを表示させずにExit Subの処理をするようにするにはどうすればよいのでしょうか？

使用OS：Windows XP
使用ソフト：Microsoft Excel 2003

ご存知の方がおられましたらご回答をよろしくお願いします。

回答No.3

Wendy02 · ベストアンサー

こんばんは。
インターネット共用となると、以下のコードでは中途半端になりますが、以下のように区分けは出来ます。

'---------------------------
　　Dim fso As Object
　　Dim objIE As Object
　　Dim flg As Boolean
　　Const mDrive As String = "C:"
　　If InStr(1, mDrive, "HTTP://", vbTextCompare) = 0 Then
　　　　Set fso = CreateObject("Scripting.FileSystemObject")
　　　　flg = fso.DriveExists(mDrive)
　　　　If flg Then
　　　　　　Set objIE = CreateObject("InternetExplorer.Application")
　　　　　　objIE.Navigate mDrive
　　　　End If
　　　　Set fso = Nothing
　　　　Set objIE = Nothing
　　End If
'---------------------------

回答No.4

imogasi

WEBを照会して、色々寄せ集めで作ってみました。
下記で参考になりますか。
Sub test01()
Dim objTAG
Dim URL As String, IE As Object
Set IE = CreateObject("InternetExplorer.Application")
URL = "http://www.officetaneaka.net"
With IE
.Navigate (URL)
'.Visible = True
While .Busy Or .ReadyState <> 4
DoEvents
Wend
End With
For Each objTAG In IE.Document.all
p = InStr(objTAG.InnerText, "Internet Explorer ではこのページは表示できません")
If p <> 0 Then
MsgBox "このURLは開けません"
GoTo p01
End If
Next
IE.Visible = True
p01:
Set IE = Nothing
End Sub
前半はありふれたコードです。
officetanakaをofficetaneakaに間違えた場合の例です。
またURLをofficetanakaに修正してやってみてください。

回答No.2

hige_082

ANO.1です
申し訳ありません
多分大丈夫だろうと回答しましたが
IEのエラーがでてしまいます
忘れてください

回答No.1

hige_082

Sub s()
On Error GoTo ErrorHandler
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate ("X:")
ErrorHandler:
End Sub

こんな感じでしょうか