dialog box displayed when internet connection unavailable

  • Thread starter Thread starter nil
  • Start date Start date
N

nil

help! i am building a system which uses web queries to import data fro
the internet. when i open the file, and there is no internet connectio
(i am on dial up) i am bombarded with dialogs telling me the site wa
unavailable, is there any code which i can input into my auto_ope
which will disable these message boxes, i have already tried

application.displayalerts = false

and

application.autoresponse

but that is only available in excel 2000.

Has ANYONE got any suggestions out there???
thanks in advance

nilz
 
Hi Nilzz

You can use code like this in your subroutine to avoid errors
if you are not online (only with dial up connections)

For checking other connections check out this website
http://www.mvps.org/vbnet/

Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean
Function IsConnected() As Boolean
Dim Stat As Long
IsConnected = (InternetGetConnectedState(Stat, 0&) <> 0)
End Function

Sub Test()
' Randy Birch
If IsConnected = True Then
MsgBox "Copy your code here"
Else
MsgBox "You can't use this subroutine because you are not online"
End If
End Sub
 
hmmm... i understand what to do, but wat is that winking smily supposed
to be? is it a ;- )?
 
Back
Top