[µo°Ý] Application.AskToUpdateLinks = False

t8899

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
End Sub
Book1.rar (34.76 KB)

¤U¸ü¦¸¼Æ: 8

2014-6-25 09:16

Application.AskToUpdateLinks = False
³oÀ³¸Ó¬OÀɮתº§ó·s³sµ²¦b¥Îªº§a??
web ¬d¸ßªº§ó·s¤]¬O³o­Ó¶Ü?§Ú¸Õ¹LµL®Ä (¤@¶}ÀÉ´N¦Û°Ê§ó·s¡A¤£­n¸ß°Ý)

GBKEE

¦^´_ 1# t8899

¨ú®ø³o¿ï¶µ

¤U¸ü (96.27 KB)

2014-6-25 09:39

   

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   '¥[¤W³o¦æ
   
7. End Sub

½Æ»s¥N½X

t8899

¦^´_  t8899

¨ú®ø³o¿ï¶µ
GBKEE µoªí©ó 2014-6-25 09:41

ÁÂÁ¡A½Ð°Ý Sheet5.QueryTables(1).Refresh 0 ³o¦p¦ó½Ķ?

t8899

¦^´_  t8899

¨ú®ø³o¿ï¶µ
GBKEE µoªí©ó 2014-6-25 09:41

³øºp¡A°ÝÃD¤S¨Ó¤F!
§Ú³oÀɮסA¬O¤£·Q¥X²{¸ß°Ýµøµ¡¡Aª½±µ§ó·s
¦ý§Ú¦b¶}¥t¤@ÀɮקÚÓý·Q­nÅý¥¦¸ß°Ý,
§Ú·Q³oÃöÁäÀ³¸Ó¦b©óApplication.AskToUpdateLinks = False ³o¶}Ãö
³o¶}Ãöµ¥©ó ¿ï¶µ=>½s¿è==>¦Û°Ê§ó·s³sµ²
§Ú§âApplication.AskToUpdateLinks = true ©ñ¦b ¥t¤@ÀɮסA¤S³y¦¨­ì¨Ó°ÝÃD
¦p¦óÅý¨âªÌ³£¯à­ÝÅU¨ì! ??

GBKEE

¦^´_ 4# t8899

1. RefreshOnFileOpen ÄÝ©Ê ¦pªG¨C¦¸¶}±Ò¬¡­¶Ã¯®É¡A¼Ï¯Ã¤ÀªRªí§Ö¨ú°O¾ÐÅé©Î¬d¸ßªí·|¦Û°Ê§ó·s«h¬° True¡C¹w³]­È¬° False¡CŪ/¼g Boolean¡C

½Æ»s¥N½X

QueryTables ¦p³]©w.RefreshOnFileOpen = True

1. Private Sub Workbook_Open()
   
2. Application.AskToUpdateLinks = False
   
3. ThisWorkbook.UpdateLinks = xlUpdateLinksNever  
   
4. µ{§Ç¤W,³o¨Çªº³]©w¬OµL®Ä

½Æ»s¥N½X

§A·Q­nªº¬O³o¼Ë¶Ü

1. Private Sub Workbook_Open()   
   
2.     If LCase(Me.Name) = "book1.xls" Then
   
3.         If MsgBox("¶}±Ò¥~³¡§ó·s?", 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

½Æ»s¥N½X

t8899

¦^´_  t8899 QueryTables ¦p³]©w.RefreshOnFileOpen = True§A·Q­nªº¬O³o¼Ë¶Ü
GBKEE µoªí©ó 2014-6-26 05:28

Application.AskToUpdateLinks = False(TRUE)
§Ú¸Õ¹L,³o¶}Ãö­ì¹w³]¤£¬OŪ¶i¨Ó°¨¤W¥Í®Ä¡A­n¦sÀɸõ¥X¦A¶i¨Ó¤~¥Í®Ä
¨ì ¿ï¶µ=>½s¿è==>¦Û°Ê§ó·s³sµ² ´Nª¾¹Dª¬ªp
¦pªG°¨¤W¥Í®Ä¥u­n§âApplication.AskToUpdateLinks = False(TRUE) ©ñ¦b.OPEN´N¨S°ÝÃD¤F

§ó·s¥]¬A¤º³¡¥~³¡
A.XLS  ==> ¶}ÀÉ¡A­n¸ß°Ý(­n¤£­n§ó·s)
B.XLS  ==> ¶}ÀÉ¡A¤£­n¸ß°Ý(ª½±µ§ó·s)

§Ú§â¤U­±¦¹¬q©ñ¦b B.XLS
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
Sheet5.QueryTables(1).Refresh 0   '¥[¤W³o¦æ
END SUB
¶}«á¦sÀÉŪA.XLS
A.XLS  ¤]¬O¨S¸ß°Ý¡Aª½±µ§ó·s
¦pªG¦bA.XLS ©ñ¤J Application.AskToUpdateLinks = TURE
¤£·|°¨¤W¥Í®Ä¡A¦sÀɸõ¥X¦A¶i¨Ó¤~·|¥Í®Ä
±µ¤U¨Ó¡A¦^ÀY¦A¥´¶}B, (¤S¥X²{­n¤£­n§ó·sªº¸ß®§¤F(¦]¬°¤w³QA§ó§ï¬° TRUE))
B ­n¦A¦sÀÉ¡A¦A¶}Àɤ~¤£·|¥X²{´£¥Üªº°T®§

GBKEE

¦^´_ 6# t8899


   

¦^ÀY¦A¥´¶}B, (¤S¥X²{­n¤£­n§ó·sªº¸ß®§¤F(¦]¬°¤w³QA§ó§ï¬° TRUE))

A.XLS ThisWorkbook¼Ò²Õ¥[¤W ¸Õ¸Õ¬Ý

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

½Æ»s¥N½X

t8899

¦^´_  t8899
A.XLS ThisWorkbook¼Ò²Õ¥[¤W ¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2014-6-28 05:27

¦¹¨Ò Workbook_BeforeClose  ¸ò auto_close À³¸Ó¨S¤°®t§O
³o¤§«e§Ú¤w¥Îauto_close ¸Õ¹L,AÃöÀÉ«e³]¬°Application.AskToUpdateLinks = False
«h¸õ¥X«á¦A¶}BÀÉ ¦³®Ä¡A¦ý¹ïAÀɵL®Ä (AÀɬO­n¸ß°Ý)
excel ·|¥ýŪ ¿ï¶µ=>½s¿è==>¦Û°Ê§ó·s³sµ²³o¶}Ãö
¦AŪ©Ò¿ïªºÀÉ®×
Application.AskToUpdateLinks =>±N¦¹¶}Ãö³]¬°enable ©Îdisable

GBKEE

¦^´_ 8# t8899

¦ý¹ïAÀɵL®Ä (AÀɬO­n¸ß°Ý)

½Ð»¡¤@¤U§Aªº¬yµ{

t8899

¦^´_  t8899
½Ð»¡¤@¤U§Aªº¬yµ{
GBKEE µoªí©ó 2014-6-28 09:11

§Ú¦A¸Ô²Ó´ú¸Õ¦p¤U
A ¸ò  B ¨S°ÝÃD  (¬Ò¤@¯ëWEB³sµ²)
¦ý
A1 ¸ò B   (A1¦³°ÝÃDA1¬°DDE³sµ², ­n¸ß°Ý(¨S¥X²{¸ß°Ýµøµ¡)
¦pªþÀÉ teMP.rar (46.77 KB)

¤U¸ü¦¸¼Æ: 7

2014-6-28 10:07