ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ n7822123 ©ó 2015-11-30 01:45 ½s¿è

¤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


1.png
2015-11-30 01:34

2.png
2015-11-30 01:34


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

¦^´_ 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)

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE


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

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD