主题：检测数据

1、msgbox(IsNumeric("-1") )

 

2、你ws1.cells(n1,3).Formula的值是什么？

If ws.name <> "资产负债表" andalso ws.name <> "利润及分配表" AndAlso ws.name <> "费用表" Then

Dim ls As new List(of String)

For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
    If ws.name <> "资产负债表" AndAlso ws.name <> "利润及分配表" AndAlso ws.name <> "费用表" Then
        ls.add(ws.name)
    End If
Next
For Each name As object In ls
    wb.workSheets(name).delete
Next

  测试了一下，代码没问题，如代码

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("g:\test.xls")
Wb.WorkSheets("sheet3").delete

app.visible = True

 

代码不应该有问题，请认真，或者单独测试。