請問 大大 要如何將此訊息不要出現呢?或是其他方法

ookook520

請問 要如何增寫VB將此訊息不要出現呢?或是其他方法

下載 (23.51 KB)

2011-12-12 11:34

之前有跟您在舊討論區中 詢問擷取網路料問題


因有時網路會特定時間連線.EXCEL得一直開啟要如何將此畫面取消呢?
無法開啟http://......................。無法找到網際網路伺服器或 proxy 伺服器。
然後有個確定紐

不知是否能將此視窗不要出現且能不斷嘗試連線或間隔連線


感謝大大

GBKEE

回復 1# ookook520

1. Sub Ex()
   
2.     Dim Msg As String
   
3.     On Error Resume Next
   
4.     Msg = "更新成功"
   
5.     Sheet1.QueryTables(1).Refresh 0
   
6.     If Err.Number <> 0 Then Msg = "更新失敗"
   
7.     Application.StatusBar = Msg
   
8.     'StatusBar 傳回或設定狀態列的文字。讀/寫 String。
   
9. End Sub

複製代碼

ookook520

感謝大大
還是會出現
錯誤連結的視窗
在下只要將網路斷線後就會跳出此視窗


因該是說一直不斷的嘗試連線縱使那個網站斷線或是我們網路斷線
都在背景一直不斷的嘗試更新資料到恢復正常
然後又一直重複



不曉得是要寫在哪裡
請大大費心


之前您所寫
Private Sub Query_AfterRefresh(ByVal Success As Boolean)
    Dim Msg As Boolean, R%, C%
    If Not Success Then
        UserForm1.Label1.Caption = "更 新 失 敗 !!"
        GoTo L
    End If
    For R = 2 To 3
        For C = 2 To AR.Columns.Count
            If Rng(R, C) <> AR(R, C) Then
                Msg = True
                GoTo L
            End If
        Next
    Next
L:
    Rng = ""
    UserForm1.Label1.Caption = "更 新 成 功 !!"
    If Not Msg Then UserForm1.Label1.Caption = "更 新 失 敗 !!"
    UserForm1.Show 0
    'Test
End Sub

GBKEE

回復 3# ookook520
還是會出現 錯誤連結的視窗  請附檔看看

ookook520

回復 4# GBKEE


感謝大大
請查閱附件謝謝 ok.rar (34.69 KB)

下載次數: 6

2011-12-12 18:34

ookook520

回復 5# ookook520


    大大
因為在下有再加個轉成圖片之方法
請您在測試看看
斷線後會出現的還是成功感激不盡

GBKEE

回復 5# ookook520
試試看

    ReOk.rar (38.54 KB)

下載次數: 2

2011-12-13 16:48

回復 6# ookook520
轉成圖片之方法

1. Sub p()
   
2.     '指定時間與程序名稱　　　 '現在時間+5秒後,呼叫D_Sample037()
   
3.     Application.OnTime Now() + TimeValue("00:00:05"), "ExportNumChart"
   
4. End Sub

複製代碼

與斷線無關

ookook520

大大感謝您在下目前無法下載附件 及發送短消息


是否可以請您先暫上傳其他位置
在下努力增加積分_