VBA开发：快速检测系统是否联网

我们在开发VBA应用时，一般不需要互联网操作。但是一些进阶的应用，比如获取云服务器的数据，比如网页数据查询等等，是需要互联网的。那么在执行这些指令时，如果电脑没有联网，就会出错。所以在执行这些需要互联网的指令之前，最佳的做法是先检测是否联网。
检测联网，可以有两种方法。第一种方法是使用XMLHTTP对象，第二种方法是调用WinInet 函数。

1 使用XMLHTTP对象检测是否联网
主要步骤如下：

1） 初始化XMLHTTP对象
2） 打开某个公共网址
3） 读取XMLHTTP对象的状态值。
4） 如果Status为200，表示联网成功。

下面是一个简单的运用示例。如果函数返回1，表示系统已经联网。

Public Function nettest() As Integer '检测是否能连上互联网
Dim myxml As Object
Set myxml = CreateObject("Microsoft.XMLHTTP")
URL = "http://www.163.com"
myxml.Open "HEAD", URL, False
myxml.Send
  If myxml.Status = 200 Then
    nettest = 1
  Else
    nettest = 0
  End If
End Function

2.使用Wininet API函数来判断

Wininet API是windows提供的internet专用接口。我们可以使用该API的函数来快速判断系统是否联网，步骤如下：

1） 在公共部分声明internetGetConnectedState函数，注意需要使用条件编译区分是否VBA7，否则在新版的Excel下可能无法使用。
2） 调用InternetGetConnectedState函数
3） 如果返回TRUE则表示联网成功。

#If VBA7 Then
    Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" (ByVal lpdwflags As Long, ByVal dwreserved As Long) As Boolean
#Else
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByVal lpdwflags As Long, ByVal dwreserved As Long) As Boolean
#End If

'判断是否联网
Dim lpflags As Long
Dim state As Boolean
    state = InternetGetConnectedState(lpflags, 0)
    If state = False Then
        MsgBox "您的系统没有联网，请先检查您的网络"
        Exit Sub
    End If