GBKEE

¦^´_ 2# n7822123

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub §ó§ïÀɦW()
   
3.     Dim ­n´À´« As String
   
4.     Dim ´À´«¬° As String
   
5.     Dim °ÆÀɦW As String
   
6.     Dim myFile As String
   
7.     Dim myPath As String
   
8.     Dim ÂÂÀɦW As String
   
9.     Dim ·sÀɦW As String
   
10.     ­n´À´« = Cells(4, 3)
    
11.     ´À´«¬° = Cells(4, 4)
    
12.     °ÆÀɦW = Cells(4, 5)
    
13.     myPath = ThisWorkbook.Path
    
14.     myFile = Dir(myPath & "\*." & °ÆÀɦW)
    
15.     Do While myFile <> "" '=>If myFile = "" Then Exit Do
    
16.         If myFile <> ThisWorkbook.Name Then   
    
17.             ÂÂÀɦW = myPath & "\" & myFile
    
18.             ·sÀɦW = Replace(myFile, ­n´À´«, ´À´«¬°)
    
19.             ·sÀɦW = myPath & "\" & ·sÀɦW
    
20.             Name ÂÂÀɦW As ·sÀɦW
    
21.         End If
    
22.         myFile = Dir '¤U¤@­ÓÀÉ®×:
    
23.     Loop
    
24. End Sub

½Æ»s¥N½X