Excel/VBA - 如果网络连接不存在则中止脚本

Question

是否有任何 VBA 代码来查找当前的 Internet 连接？

我有一个将在计时器上运行的代码。此代码将打开本地网络共享驱动器上的文件。如果它在网络未连接时尝试打开文件，我正在寻找某种类型的 On Error Goto ErrorMessage 代码。

Answer 1

您可以查看Len的 Dir在您尝试访问的共享驱动器上:

Option Explicit
Sub TestForNetworkDrive()

'suppose the file we want is at Z:\cool\vba\files\file.txt
If Len(Dir("Z:\cool\vba\files\file.txt")) = 0 Then
    'handle network not available issue
    MsgBox ("Network share not found...")
Else
    'do timer-based code here
    MsgBox ("Let's get to work!")
End If

End Sub