GBKEE

¦^´_ 1# a8552065

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Wb(1 To 2) As Variant, Rng(1 To 2) As Range, MyWb As Workbook
   
4.     Set MyWb = ActiveWorkbook
   
5.     Set Rng(1) = MyWb.Sheets("1.¤Á´«").Range("A16")     ''D:\[´¸«Bªí.xlsx]¤Ñ®ðª¬ªp²Î­p'!$D$3:$AAR$6
   
6.     Wb(1) = Split(Rng(1), "]")(0)                                       ''D:\[´¸«Bªí.xlsx
   
7.     Wb(1) = Replace(Wb(1), "[", "")                                   ''D:\´¸«Bªí.xlsx
   
8.     Wb(2) = Split(Split(Rng(1), "]")(1), "!")                        'Wb(2)(0)='¤Ñ®ðª¬ªp²Î­p' , Wb(2)(1)=$D$3:$AAR$6
   
9.     With Workbooks.Open(Wb(1))
   
10.         Set Rng(2) = .Sheets(Wb(2)(0)).Range(Wb(2)(1))     'D:\[´¸«Bªí.xlsx]¤Ñ®ðª¬ªp²Î­p'!$D$3:$AAR$6
    
11.         MyWb.Names.Add Name:=" ´¸«Bªí", RefersTo:=Rng(2)
    
12.         .Close
    
13.    End With
    
14. End Sub

½Æ»s¥N½X