- 帖子
- 214
- 主題
- 74
- 精華
- 0
- 積分
- 296
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- hk
- 註冊時間
- 2013-6-17
- 最後登錄
- 2018-11-3
|
[發問] 知道文件路徑,不開啟文件,能知道文件里是否有張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 |
|
發表於 2017-12-12 06:25
| 
