標題: [發問] 取得excel 檔案名稱並關閉 [打印本頁]

---

作者: feecshyrnd    時間: 2016-8-3 09:05     標題: 取得excel 檔案名稱並關閉

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

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

---

作者: 准提部林    時間: 2016-8-3 10:37

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

---

作者: feecshyrnd    時間: 2016-8-3 10:41

回復 2# 准提部林

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)