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

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

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

GBKEE

¦^´_ 8# t8899

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

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

GBKEE

¦^´_ 10# t8899

A1.XLS

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

½Æ»s¥N½X

GBKEE

¦^´_ 13# t8899

¦³¶i¨B¤F