[發問] 取得excel 檔案名稱並關閉

feecshyrnd

公司搜尋資料後產生的檔名都是以  grid開頭 後面加上日期時間產生的檔名
例: grid201608030902  (grid是固定,檔名長度固定)
一般小弟關閉檔案都只能指定檔名並做關閉動作
遇到這種隨時間產生的檔名 不知道該如何偵測取得
煩請各位大大指點迷津 謝謝

指定檔名關閉
Public Sub test()
Dim excelobj As Object
Set excelobj = GetObject("Book1")
excelobj.Close False
End Sub

准提部林

Sub UTEST()
Dim BK As Workbook
For Each BK In Workbooks
　If BK.Name Like "grid############*" Then BK.Close 0
Next
End Sub

feecshyrnd

回復 2# 准提部林

准大又再次點醒小弟了  太感謝了:D
之前以為用*就可以替代後面的全部字元
原來還有#的用法