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

[µo°Ý] ½Ð±Ð¤@¤U¦¹¥y¥¨¶°¿ù»~¦p¦ó§ï?

¦^´_  t8899
GBKEE µoªí©ó 2014-4-8 07:48

ÁÂÁ¡A§Úªº°ÝÃDÀ³¸Ó§ï¦¨
§Ú·Q§äC ®Ú¿ý¤UªºÀÉ®× (¥u¦³®Ú¥Ø¿ý)
ÀɦW¬°1030415.xls
¥]¬A 1030415«á­±³£ºâ (°ÆÀɦW­­xls)
¨Ò¦p
1030415a.xls
1030415b.xls
1030415123b.xls
....
§ä¨ì«á¦A¶}ÀÉ,¤£ª¾¦¹µ{§Ç¦p¦ó¼g?

TOP

¦^´_ 11# t8899
  1. Option Explicit
  2. Sub Ex()
  3.     Dim S As String
  4.     S = Dir("C:\*.xls")   '¶Ç¦^¦r¦ê: °ÆÀɦW¬°xlsªºÀÉ®×
  5.     Do While S <> ""
  6.         If S Like "1030415*" Then MsgBox S
  7.         S = Dir            'Ä~Äò¨Ì¤W¤@¦¸ªº±ø¥ó, ¶Ç¦^¦r¦ê: °ÆÀɦW¬°xlsªºÀÉ®×
  8.     Loop
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD