主题：如何捕获错误？

Dim sht As Worksheet
On Error Resume Next
Set sht = Worksheets("东门子订单数据")
If Not sht Is Nothing Then
    MsgBox "存在"
Else
    MsgBox "不存在"
End If
Set sht = Nothing
End Sub

FOXTABLE有吗？

工作表太多了一一历遍效率太低了，有时内存会满。