Office中国论坛/Access中国论坛

标题: 【通用函数】Access判断Excel指定工作表是否存在 [打印本页]

---

作者: admin    时间: 2015-9-10 12:32
标题: 【通用函数】Access判断Excel指定工作表是否存在
'如果存在返回True,反之返回False'wb为工作薄 对象
Public Function IsExistWorkSheet(strWorkSheetName as String,wb as object) as Boolean
On Error Resume Next
If wb.Sheets(strWorkSheetName) Is Nothing Then
    IsExistWorkSheet=False    '   MsgBox "工作表不存在"
Else
    IsExistWorkSheet=True   '  MsgBox "工作表存在"
End If
EndFunction

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3