標題: [發問] 知道文件路徑,不開啟文件,能知道文件里是否有張sheet名是"P3"" [打印本頁]

---

作者: mhl9mhl9    時間: 2017-12-12 06:25     標題: 知道文件路徑,不開啟文件,能知道文件里是否有張sheet名是"P3""

資料庫里混雜著2種excel文件,只知道2種文件的唯一區別是有沒有一張名為"P3"的sheet,如果不開啟文件能能做到嗎?
我寫過一個函數,可以區別2種文件,但執行有點慢(3500個文件用12秒),文件量大,看看版主是否有更好的方法,謝謝
Function Benew(fl$) As Boolean
    Dim Fname$, Fpath$, temp$, temp2
    Fname = Mid(fl, InStrRev(fl, "\") + 1)
    Fpath = Replace(fl, Fname, "")
    On Error Resume Next
    temp = "'" & Fpath & "[" & Fname & "P3'!R2C1"
    temp2 = Application.ExecuteExcel4Macro(temp)
    Benew = IIf(temp2 = "Show", True, False)
End Function

---

作者: mhl9mhl9    時間: 2017-12-12 07:12

可否用API做嗎?

---

作者: luhpro    時間: 2017-12-22 23:41

回復 2# mhl9mhl9
網路上找到的, 參考看看 :

不開啟工作簿，列舉工作表名稱

---

作者: mhl9mhl9    時間: 2017-12-25 03:07

回復 3# luhpro

太複雜,謝謝

---

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