[¤À¨É] ¤p¤u¨ã-§å¦¸§ïÀɦW

n7822123

¤p§Ì¦b¤½¥q±`±`·|¤j¶q½Æ»sÀɮצA§ó§ïÀɦW¡A©Ò¥H°µ¤F³o­Ó¤p¤u¨ã
§Ú·QÀ³¸Ó¤£¥u§Ú·|¥Î¨ì¡A¤À¨Éµ¹¤j®a
¸Ì­±¦³½d¨ÒÀÉ®×»P¨â­ÓexcelÀÉ¡A2003(.xls)»P2007(.xlsm)
§Ú¬O¥Î2007°µªº¡A­°¦s¬°2003Åý2003ª©¥»ªº¤H¤]¥i¨Ï¥Î¡C
¨Ï¥Î¤èªk¦p¹Ï¡A¥u¯à§ó§ï»PexcelÀɮצP¸ô®|ªºÀÉ®×
À³¸Ó«Ü©öÀ´¡C

¤U¸ü (119.26 KB)

2015-11-30 01:34

¤U¸ü (121.35 KB)

2015-11-30 01:34

§å¦¸§ïÀɦW½d¨ÒÀÉ.rar (27.34 KB)

¤U¸ü¦¸¼Æ: 31

2015-11-30 01:42

n7822123

¦^´_ 1# n7822123


µo²{µ{¦¡½X¦³ÂI¤p·å²«¡A¦pªG§ïªºÀɮפ]¬OexcelÀÉ¡A¥i¯à§ï¤£§¹¥þ´N¸õ¥X°j°é
°µ¤F¥H¤U§ó°Ê¡A­«·sªþ¤WÀɮסC

Do
  If myFile = "" Then Exit Do
  If myFile = ThisWorkbook.Name Then GoTo ¤U¤@­ÓÀÉ®×
  ÂÂÀɦW = myPath & "\" & myFile
  ·sÀɦW = Replace(myFile, ­n´À´«, ´À´«¬°)
  ·sÀɦW = myPath & "\" & ·sÀɦW
  Name ÂÂÀɦW As ·sÀɦW

¤U¤@­ÓÀÉ®×:
  myFile = Dir
Loop

§å¦¸§ïÀɦW½d¨ÒÀÉ.rar (27.55 KB)

¤U¸ü¦¸¼Æ: 34

2015-11-30 02:19

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

n7822123

¦^´_ 3# GBKEE


    ¤£·\¬O¶W¯Åª©¥D¡A­×§ïªºÂ²¼ä©öÀ´