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

[µo°Ý] VBA§å¦¸Åܧó¤å¦rÀɦW

[µo°Ý] VBA§å¦¸Åܧó¤å¦rÀɦW

½Ð±Ð¤@¤U¦U¦ì¡A³Ìªñ¦]¤u§@»Ý­n¡A·Q§â¹Ï¤ù¤¤¸ê®Æ§¨ªº¤å¦rÀɧ妸§ó¦W¡A¥D­n¬O­n±N¸ê®Æ§¨¤¤©Ò¦³ªº12345678§ó¦W¬°11111111¡A¤£ª¾¸Ó¦p¦ó¼gµ{¦¡½X¡H§Ú¦³¸Õ¹L¥ÎName¡K¡K¡KAs¡K¡K¡K¡A¥i¬O¦ü¥G¨S¿ìªk¾A¥Î¸U¥Î¦r¤¸*.TXT¡AÀµ½Ð°ª¤â½ç±Ð
Screenshot_20180102-175227_1.jpg
2018-1-2 17:53

¦^´_ 1# smart3135
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim A As String, B As String, C As String, xPath As String
  4.     xPath = "d:\"
  5.     B = "12345678"
  6.     C = "11111111"
  7.     A = Dir(xPath & "*" & B & "*", vbDirectory)
  8.     Do While A <> ""
  9.         Name xPath & A As xPath & Replace(A, B, C)
  10.         A = Dir
  11.     Loop
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE
´ú¸Õ¹L¤F¡A§¹¥þ²Å¦X»Ý¨D¡A«D±`·PÁ¡C

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD