12
返回列表 上一主題 發帖

[發問] Application.AskToUpdateLinks = False

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-12-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-6-25 09:16 | 只看該作者

[發問] Application.AskToUpdateLinks = False

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
End Sub
Book1.rar (34.76 KB)
Application.AskToUpdateLinks = False
這應該是檔案的更新連結在用的吧??
web 查詢的更新也是這個嗎?我試過無效 (一開檔就自動更新，不要詢問)
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2014-6-25 09:41 | 只看該作者
回復 1# t8899

取消這選項





   
  1. Private Sub Workbook_Open()
  2. MsgBox "test"
  3. Application.DisplayAlerts = False
  4. Application.AskToUpdateLinks = False
  5. ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
  6. Sheet5.QueryTables(1).Refresh 0   '加上這行
  7. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-12-26 
3#
發表於 2014-6-25 10:04 | 只看該作者
本帖最後由 t8899 於 2014-6-25 10:06 編輯
回復  t8899

取消這選項
GBKEE 發表於 2014-6-25 09:41

謝謝，請問 Sheet5.QueryTables(1).Refresh 0 這如何翻譯?

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-12-26 
4#
發表於 2014-6-25 10:44 | 只看該作者
本帖最後由 t8899 於 2014-6-25 10:49 編輯
回復  t8899

取消這選項
GBKEE 發表於 2014-6-25 09:41

報歉，問題又來了!
我這檔案，是不想出現詢問視窗，直接更新
但我在開另一檔案我郤想要讓它詢問,
我想這關鍵應該在於Application.AskToUpdateLinks = False 這開關
這開關等於 選項=>編輯==>自動更新連結
我把Application.AskToUpdateLinks = true 放在 另一檔案，又造成原來問題
如何讓兩者都能兼顧到! ??

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2014-6-26 05:28 | 只看該作者
回復 4# t8899
  1. RefreshOnFileOpen 屬性 如果每次開啟活頁簿時，樞紐分析表快取記憶體或查詢表會自動更新則為 True。預設值為 False。讀/寫 Boolean。
複製代碼
QueryTables 如設定.RefreshOnFileOpen = True
  1. Private Sub Workbook_Open()
  2. Application.AskToUpdateLinks = False
  3. ThisWorkbook.UpdateLinks = xlUpdateLinksNever  
  4. 程序上,這些的設定是無效
複製代碼
你想要的是這樣嗎
  1. Private Sub Workbook_Open()   
  2.     If LCase(Me.Name) = "book1.xls" Then
  3.         If MsgBox("開啟外部更新?", vbYesNo) = vbYes Then
  4.             Sheet5.QueryTables(1).Refresh BackgroundQuery:=False
  5.         End If
  6.     ElseIf LCase(Me.Name) <> "book1.xls" Then
  7.         Sheet5.QueryTables(1).Refresh BackgroundQuery:=False
  8.     End If
  9. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-12-26 
6#
發表於 2014-6-26 06:39 | 只看該作者
本帖最後由 t8899 於 2014-6-26 06:52 編輯
回復  t8899 QueryTables 如設定.RefreshOnFileOpen = True你想要的是這樣嗎
GBKEE 發表於 2014-6-26 05:28


Application.AskToUpdateLinks = False(TRUE)
我試過,這開關原預設不是讀進來馬上生效，要存檔跳出再進來才生效
到 選項=>編輯==>自動更新連結 就知道狀況
如果馬上生效只要把Application.AskToUpdateLinks = False(TRUE) 放在.OPEN就沒問題了

更新包括內部外部
A.XLS  ==> 開檔，要詢問(要不要更新)
B.XLS  ==> 開檔，不要詢問(直接更新)

我把下面此段放在 B.XLS
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
Sheet5.QueryTables(1).Refresh 0   '加上這行
END SUB
開後存檔讀A.XLS
A.XLS  也是沒詢問，直接更新
如果在A.XLS 放入 Application.AskToUpdateLinks = TURE
不會馬上生效，存檔跳出再進來才會生效
接下來，回頭再打開B, (又出現要不要更新的詢息了(因為已被A更改為 TRUE))
B 要再存檔，再開檔才不會出現提示的訊息

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2014-6-28 05:27 | 只看該作者
本帖最後由 GBKEE 於 2014-6-28 05:30 編輯

回復 6# t8899


   
回頭再打開B, (又出現要不要更新的詢息了(因為已被A更改為 TRUE))

A.XLS ThisWorkbook模組加上 試試看
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2.     Application.AskToUpdateLinks = False
  3. End Sub
  4. Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
  5.      Application.AskToUpdateLinks = False
  6. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-12-26 
8#
發表於 2014-6-28 06:59 | 只看該作者
本帖最後由 t8899 於 2014-6-28 07:08 編輯
回復  t8899
A.XLS ThisWorkbook模組加上 試試看
GBKEE 發表於 2014-6-28 05:27


此例 Workbook_BeforeClose  跟 auto_close 應該沒什差別
這之前我已用auto_close 試過,A關檔前設為Application.AskToUpdateLinks = False
則跳出後再開B檔 有效，但對A檔無效 (A檔是要詢問)
excel 會先讀 選項=>編輯==>自動更新連結這開關
再讀所選的檔案
Application.AskToUpdateLinks =>將此開關設為enable 或disable

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2014-6-28 09:11 | 只看該作者
回復 8# t8899
但對A檔無效 (A檔是要詢問)
請說一下你的流程
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-12-26 
10#
發表於 2014-6-28 10:08 | 只看該作者
回復  t8899
請說一下你的流程
GBKEE 發表於 2014-6-28 09:11

我再詳細測試如下
A 跟  B 沒問題  (皆一般WEB連結)
但
A1 跟 B   (A1有問題A1為DDE連結, 要詢問(沒出現詢問視窗)
如附檔 teMP.rar (46.77 KB)

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
12
返回列表 上一主題