麻辣家族討論版版 - Powered by Discuz! Board

標題: 請問大大要如何將此訊息不要出現呢?或是其他方法 [打印本頁]

作者: ookook520 時間: 2011-12-12 11:35 標題: 請問大大要如何將此訊息不要出現呢?或是其他方法

本帖最後由 GBKEE 於 2011-12-12 14:46 編輯

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

[attach]8790[/attach]

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

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

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

感謝大大

作者: GBKEE 時間: 2011-12-12 15:48

回復 1# ookook520

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

複製代碼

作者: ookook520 時間: 2011-12-12 16:21

本帖最後由 ookook520 於 2011-12-12 16:36 編輯

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

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

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

之前您所寫
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 時間: 2011-12-12 16:59

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

作者: ookook520 時間: 2011-12-12 18:34

回復 4# GBKEE

感謝大大
請查閱附件謝謝[attach]8797[/attach]

作者: ookook520 時間: 2011-12-13 14:24

回復 5# ookook520

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

作者: GBKEE 時間: 2011-12-13 16:48

本帖最後由 GBKEE 於 2011-12-13 17:01 編輯

回復 5# ookook520
試試看

[attach]8801[/attach]

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

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

複製代碼

與斷線無關

作者: ookook520 時間: 2011-12-13 17:18

本帖最後由 ookook520 於 2011-12-13 18:39 編輯

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

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)