通过EXCEL模板文件中生成的报表，有部分单元格是可以看到计算公式的，把这些单元格直接变成数值。Sub FunctionTransValue_Sheets()
Dim sht As Worksheet
For Each sht In Worksheets '遍历工作表
sht.UsedRange.Value = sht.UsedRange.Value
Next
End Sub
在EXCEL表内执行VBA是可以的。
想在狐表内做个按钮，生成报表后点击清除公式。
Dim App As New MSExcel.Application
Dim fl As String = ProjectPath & "Reports\报告.xls"
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
For Each Ws In Wb.Worksheets
Ws.UsedRange.Value = Ws.UsedRange.Value
Next
点击后没有任何反应。不报错，单元格公式也没去掉。不知道哪里出问题了。
加好友 
发短信
Post By：2023/3/21 15:36:00 [显示全部帖子]
