t8899

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

GBKEE

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