主题：批量改为数值

 去到对应的单元格，把公式清除即可。

Dim Book As New XLS.Book() '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet(1,0).Formula = ""
Book.Save("c:\reports\test.xls")

呃，楼主，你得进步

Dim aa As String
aa=vars("aa")
For Each file As String In filesys .GetFiles(ProjectPath & aa)
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book1 As New XLS.Book(file)
        Dim Sheet1 As XLS.Sheet = Book1.Sheets("资产负债表")
        Sheet1(1,0).Formula = ""
        Book1.Save(file)
    End If
Next

 你试试这样

Dim aa As String
aa=vars("aa")
For Each file As String In filesys .GetFiles(ProjectPath & aa)
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book1 As New XLS.Book(file)
        Dim Sheet1 As XLS.Sheet = Book1.Sheets("资产负债表")
        For n As Integer = 0 To 200
            Dim temp As object = Sheet1(n,n).Value
            Sheet1(n,n).Formula = ""
            Sheet1(n,n).Value = temp
        Next
        Book1.Save(file)
    End If
Next