主题：批量改为数值

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

            Sheet1(n,n).Formula = ""

            Dim temp As Object = Sheet1(n,n).Value

            Sheet1(n,n).Value = temp

        Next

        Book1.Save(file)

    End If

Next

上述代码可以了，但代码Dim temp As Object = Sheet1(n,n).Value

            Sheet1(n,n).Value = temp已经将报表的格式全部改变了，有没其他办法，不要改变报表原格式？