[µ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

¦^´_ 13# t8899

¦³¶i¨B¤F

t8899

¦^´_  t8899

A1.XLS
GBKEE µoªí©ó 2014-6-28 11:14

§Ú¦bB.xls  auto_close ©ñ³o¨â¦æ´NOK¤F,¨Ñ°Ñ¦Ò
Sub Auto_Close()
Application.DisplayAlerts = True
Application.AskToUpdateLinks = True
    End Sub

t8899

¦^´_  t8899

A1.XLS
GBKEE µoªí©ó 2014-6-28 11:14

¥ý¶}B ¦A¶}A1 ¨S¸ß°Ý ?
A1¤U­±¨â¬q®³±¼¤]¤@¼Ë¨S¸ß°Ý?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.AskToUpdateLinks = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
     Application.AskToUpdateLinks = False
End Sub

GBKEE

¦^´_ 10# t8899

A1.XLS

1. Private Sub Workbook_Open()
   
2.   Application.AskToUpdateLinks = True
   
3.   UpdateLinks = xlUpdateLinksUserSetting
   
4. End Sub

½Æ»s¥N½X

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

GBKEE

¦^´_ 8# t8899

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

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

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

¦^´_ 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 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®§