【Excel VBA编程】从表格到文件,数据“破茧”:结构化表格数据导出到csv

Sub ExportListObjectWithFormatToCSV()    Dim ws As Worksheet    Dim tbl As ListObject    Dim exportRange As Range    Dim filePath As String    Dim fileNum As Integer    Dim dataArray As Variant    Dim textArray As Variant    Dim i As Long, j As Long    Dim outputLine As String    On Error GoTo ErrorHandler    filePath = "D:\常用文件\csv\MyTables_Formatted_Data.csv" ' 修改为实际路径    Set ws = ThisWorkbook.Worksheets("销售报表") ' 根据实际情况修改工作表名及表格名    Set tbl = ws.ListObjects("MyTables")    Set exportRange = tbl.Range    dataArray = exportRange.Value    ReDim textArray(1 To UBound(dataArray, 1), 1 To UBound(dataArray, 2))    For i = 1 To UBound(dataArray, 1)        For j = 1 To UBound(dataArray, 2)            textArray(i, j) = exportRange.Cells(i, j).Text        Next j    Next i    fileNum = FreeFile    Open filePath For Output As #fileNum    For i = 1 To UBound(textArray, 1)        outputLine = ""        For j = 1 To UBound(textArray, 2)            If j = UBound(textArray, 2) Then                outputLine = outputLine & textArray(i, j)            Else                outputLine = outputLine & textArray(i, j) & ","            End If        Next j        Print #fileNum, outputLine    Next i    Close #fileNum    MsgBox "表格 'MyTables' 数据已成功导出至：" & vbCrLf & filePath, vbInformation, "导出成功"    Exit SubErrorHandler:    MsgBox "导出过程中发生错误：" & vbCrLf & Err.Description, vbCritical, "错误"End Sub