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有吗?
工作表太多了一一历遍效率太低了,有时内存会满。