gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 21:10:33 24 4
gpt4 key购买 nike

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

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

最佳答案

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

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

关于Excel/VBA - 如果网络连接不存在则中止脚本,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/23032162/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com