返回列表 上一主題 發帖

VBA可以測試網路有連線嗎?

algoji3ji3

帖子
11 
主題
5 
精華
0 
積分
16 
點名
0  
作業系統
win7 
軟體版本
sp3 
閱讀權限
10 
註冊時間
2016-2-9 
最後登錄
2020-2-21 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-6-12 19:39 | 顯示全部帖子

VBA可以測試網路有連線嗎?

VBA網頁
DEAR 各大大
以下是我的程式碼
網路連線時可以正常使用~
但是網路沒接時~會出現錯誤~
請問可以在前面做偵測網路有無連線的方式嗎?
  1. Sub 下載()    '網頁下載

  3.         Const url As String = "https://www.1keydata.com/tw/sql/sql.html"     ' 正確的

  5.         Cells.Clear

  7.         Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"

  9.         With ie
  10.             .Visible = False 'True為開啟ie, False為不開啟ie
  11.             .navigate url
  12.             Do While .readyState <> 4 '等待網頁開啟
  13.             DoEvents
  14.             Loop
  15.             .ExecWB 17, 2 'Select All
  16.             .ExecWB 12, 2 'Copy selection
  17.             Range("A1").Activate
  18.             ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:= _
  19.                 False, NoHTMLFormatting:=True
  20.         End With

  22.         ie.Quit
  23.         MsgBox "資料複製結束"    ' 離開前顯示一小視窗提醒，按它後即結束。
  24. End Sub
複製代碼
收藏 分享

algoji3ji3

帖子
11 
主題
5 
精華
0 
積分
16 
點名
0  
作業系統
win7 
軟體版本
sp3 
閱讀權限
10 
註冊時間
2016-2-9 
最後登錄
2020-2-21 

論壇贊助勳章
2#
發表於 2016-6-13 21:29 | 顯示全部帖子
回復 3# c_c_lai

目前可以正常連線沒錯~
我是想只說如果今天網路異常時~
怎麼判定網頁如果開不起來就跳過程式呢?

TOP

algoji3ji3

帖子
11 
主題
5 
精華
0 
積分
16 
點名
0  
作業系統
win7 
軟體版本
sp3 
閱讀權限
10 
註冊時間
2016-2-9 
最後登錄
2020-2-21 

論壇贊助勳章
3#
發表於 2016-6-16 22:18 | 顯示全部帖子
回復 6# GBKEE

感謝版主大大幫忙~~
稍微修改了一下~斷線時可以跳過程序~不再當機了~
  1. Sub 下載()    '網頁下載
  2.        ' Dim ie As Object
  3.         Const url As String = "https://www.1keydata.com/tw/sql/sql.html"     ' 正確的
  4.         Cells.Clear

  6.        ' Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
  7.         With CreateObject("internetexplorer.application")
  8.            .Visible = False 'True為開啟ie, False為不開啟ie
  9.            '.Visible = 1
  10.             .navigate url
  11.             Do While .Busy Or .readyState <> 4 '等待網頁開啟
  12.             DoEvents
  13.             Loop
  14.             If .Document.Title = "您尚未連線到網路" Then
  15.                 '如網路沒有連線時, IE的表頭="Internet Explorer 無法顯示網頁"                '
  16.                 .Quit
  17.                 MsgBox "您尚未連接到網路，請檢查網路狀態後再試一次"    ' 離開前顯示一小視窗提醒，按它後即結束。
  18.                 GoTo Re
  19.             End If
  20.             .ExecWB 17, 2 'Select All
  21.             .ExecWB 12, 2 'Copy selection
  22.             Range("A1").Activate
  23.             ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:= _
  24.                 False, NoHTMLFormatting:=True
  25.             .Quit
  26.         MsgBox "資料複製結束"    ' 離開前顯示一小視窗提醒，按它後即結束。
  27.         End With
  28. Re:
  29. End Sub
複製代碼

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題