通过VBA将excel工作表导出到CSV，并显示公式结果

Sub ExportToCSV()
    Dim ws As Worksheet
    Dim csvFilePath As String
    Dim csvFileNum As Integer
    Dim csvData As String
    Dim cell As Range
    
    ' 设置CSV文件路径和名称
    csvFilePath = "C:\path\to\output.csv"
    
    ' 打开CSV文件以进行写入
    csvFileNum = FreeFile
    Open csvFilePath For Output As csvFileNum
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 写入工作表名称作为CSV文件的一行
        Print #csvFileNum, "Worksheet: " & ws.Name
        
        ' 循环遍历工作表的每个单元格
        For Each cell In ws.UsedRange
            ' 检查单元格是否包含公式
            If cell.HasFormula Then
                ' 将公式结果写入CSV文件
                csvData = Evaluate(cell.Formula)
            Else
                ' 将单元格值写入CSV文件
                csvData = cell.Value
            End If
            
            ' 将数据写入CSV文件
            Print #csvFileNum, csvData;
        Next cell
        
        ' 写入换行符以分隔工作表
        Print #csvFileNum, ""
    Next ws
    
    ' 关闭CSV文件
    Close csvFileNum
    
    MsgBox "导出到CSV完成！"
End Sub