【源码示例】判断一个EXECEL文件中是否存在指定的工作表

yehf

另外一个方法,用DAO+错误陷阱


Function b(filename As String, sheetname As String) As Boolean
    Dim rst    As DAO.Recordset
    On Error Resume Next
    Set rst = CurrentDb.OpenRecordset("SELECT *  FROM [excel 8.0;database=" & filename & "].[" & sheetname & "$]")
    'b = (Err.Description <> "'" & sheetname & "$' 不是一个有效名称。请确认它不包含无效的字符或标点，且名称不太长。")
    b = (Err = 0)
    rst.Close
    Set rst = Nothing
End Function