VBA 判断是否可以访问网络（互联网 局域网)

chemi_lai

很棒， 留下来 学习

blanksoul12

留個位置，謝

全球悬赏

liucqa 发表于 2012-8-19 12:16
取HEAD就行，这样快

Sub net()

可否加几句，如果网络不可用关闭工作簿

HR0128

liucqa 发表于 2012-8-19 12:16
取HEAD就行，这样快

Sub net()

老师，无网络的话这段代码会报错，该怎么破

人在鬼途

Sub net()
Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists("\\172.20.31.32\123\ver.txt") Then '文件夹FSO.folderexists(“\\172.20.31.32\123”)
        MsgBox "存在"
    Else
        MsgBox "不存在"
    End If
    Set fso = Nothing
End Sub

你好，这个方法很好用，但是有个小问题，如果局域网这台电脑出现未开机或网络原因等故障，造成网络不通，在 if fso......这一步要卡一会儿，大概10-20秒，有什么方法能缩短卡的时间吗？

ahui885205

shell方法自己的电脑可测试，谢谢seeyoutime的帖