麻辣家族討論版版 » Excel程式區 » 請問大大要如何將此訊息不要出現呢?或是其他方法

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 16
主題: 6
精華: 0
積分: 23
點名: 0
作業系統: XP
軟體版本: 20
閱讀權限: 10
性別: 女
註冊時間: 2011-5-27
最後登錄: 2012-6-27

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-12-12 11:35 | 只看該作者

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

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

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

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

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

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

感謝大大

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 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

複製代碼

小學生 Rank: 1

帖子: 16
主題: 6
精華: 0
積分: 23
點名: 0
作業系統: XP
軟體版本: 20
閱讀權限: 10
性別: 女
註冊時間: 2011-5-27
最後登錄: 2012-6-27

3^#

發表於 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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-12-12 16:59 | 只看該作者

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

小學生 Rank: 1

帖子: 16
主題: 6
精華: 0
積分: 23
點名: 0
作業系統: XP
軟體版本: 20
閱讀權限: 10
性別: 女
註冊時間: 2011-5-27
最後登錄: 2012-6-27

5^#

發表於 2011-12-12 18:34 | 只看該作者

回復 4# GBKEE

感謝大大
請查閱附件謝謝

ok.rar (34.69 KB)

小學生 Rank: 1

帖子: 16
主題: 6
精華: 0
積分: 23
點名: 0
作業系統: XP
軟體版本: 20
閱讀權限: 10
性別: 女
註冊時間: 2011-5-27
最後登錄: 2012-6-27

6^#

發表於 2011-12-13 14:24 | 只看該作者

回復 5# ookook520

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2011-12-13 16:48 | 只看該作者

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

回復 5# ookook520
試試看

ReOk.rar (38.54 KB)

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

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

複製代碼

與斷線無關

小學生 Rank: 1

帖子: 16
主題: 6
精華: 0
積分: 23
點名: 0
作業系統: XP
軟體版本: 20
閱讀權限: 10
性別: 女
註冊時間: 2011-5-27
最後登錄: 2012-6-27

8^#

發表於 2011-12-13 17:18 | 只看該作者

[版主管理留言]

GBKEE(2011/12/13 17:39): 用短消息給我mail

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

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

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

靜思自在 : 我們最大的敵人不是別人．可能是自己。

返回列表下一主題上一主題