GBKEE

¦^´_ 1# li_hsien

1. Option Explicit
   
2. Sub Ex() '¤£­nCopy,µ¹­È Value*******************
   
3.     Dim Rng As Range
   
4.     Application.AskToUpdateLinks = True
   
5.     Set Rng = Workbooks("Ex.XLS").Sheets(1).[A5:F10]
   
6.     With Workbooks("TEST.XLS")
   
7.         .Sheets(2).[C2].Resize(Rng.Rows.Count, Rng.Columns.Count) = Rng.Value
   
8.     End With
   
9. End Sub
   
10. Sub Ex_All() '¦pµ¹­È Value,¤£¬O§A­nªº´Á±æ.**********
    
11.     '°õ¦æ¤@¦¸,¦A­«·s§AªºÀÉ®×µ{¦¡
    
12.    
    
13.     'UpdateLinks ÄÝ©Ê ³]©w XlUpdateLink ±`¼Æ¡A¦¹±`¼Æ¥i«ü¥X¬¡­¶Ã¯§ó·s¤º´O OLE ³s½uªº³]©w¡CŪ/¼g¡C
    
14.     'XlUpdateLinks ¥i¥H¬O³o¨Ç XlUpdateLinks ±`¼Æ¤§¤@¡C
    
15.         
    
16.     'xlUpdateLinksAlways ¥Ã»·§ó·s«ü©w¬¡­¶Ã¯ªº¤º´O OLE ³s½u¡C
    
17.     'xlUpdateLinksNever ¥Ã»·¤£§ó·s«ü©w¬¡­¶Ã¯ªº¤º´O OLE ³s½u¡C
    
18.     'xlUpdateLinksUserSetting  ®Ú¾Ú¨Ï¥ÎªÌ¹ï«ü©w¬¡­¶Ã¯ªº³]©w¨Ó§ó·s¤º´Oªº OLE ³s½u¡C
    
19.    
    
20.     Dim WB As Workbook
    
21.     For Each WB In Workbooks
    
22.         WB.UpdateLinks = xlUpdateLinksAlways
    
23.         WB.Close True
    
24.     Next
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# li_hsien
§Ú¥u¦³2003ª©,§Aªº°ÝÃD©|»Ý¦³¦¹ª©¥»ªº¬Û§U.

GBKEE

¦^´_ 5# li_hsien

1. With Workbooks.Open(.SelectedItems(file_count))

½Æ»s¥N½X

³oWorkbook ¶·¬O¨Æ¥ý³]©w.UpdateLinks = xlUpdateLinksNever,
¶}±Ò®É¤~·|¥Í®Ä.