t8899

回復  t8899
GBKEE 發表於 2014-4-8 07:48

謝謝，我的問題應該改成
我想找C 根錄下的檔案 (只有根目錄)
檔名為1030415.xls
包括 1030415後面都算 (副檔名限xls)
例如
1030415a.xls
1030415b.xls
1030415123b.xls
....
找到後再開檔,不知此程序如何寫?

GBKEE

回復 11# t8899

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim S As String
   
4.     S = Dir("C:\*.xls")   '傳回字串: 副檔名為xls的檔案
   
5.     Do While S <> ""
   
6.         If S Like "1030415*" Then MsgBox S
   
7.         S = Dir            '繼續依上一次的條件, 傳回字串: 副檔名為xls的檔案
   
8.     Loop
   
9. End Sub

複製代碼