table2excel 导出的excle和 table列不一致

[此贴子已经被作者于2023-4-8 00:58编辑过]

从您提供的图片上看，导出的Excel表格是将所有数据都放在了A列中，而没有按照表格中的列的顺序进行排列。

这种情况可能是由于您在table2excel导出Excel时的代码有误，没有正确地将表格中每一列对应到Excel的每一列。建议您检查一下导出Excel的代码，确保正确地设置了每一列的数据。以下是一个示例代码，供您参考：

Sub ExportTableToExcel(tbl As Table)
    ' 设置导出的Excel文件名
    Dim strFileName As String
    strFileName = "exported_data.xlsx"
    
    ' 创建Excel对象
    Dim objExcel As New Excel.Application
    Dim objWorkbook As Excel.Workbook
    Dim objWorksheet As Excel.Worksheet
    Set objWorkbook = objExcel.Workbooks.Add
    Set objWorksheet = objWorkbook.Sheets("Sheet1")
    
    ' 将表格数据导出到Excel中
    Dim i As Long, j As Long, k As Long
    For i = 1 To tbl.Rows.Count
        For j = 1 To tbl.Columns.Count
            objWorksheet.Cells(i, j).Value = tbl.Cell(i, j).Range.Text
        Next j
    Next i
    
    ' 保存Excel文件
    objWorkbook.SaveAs strFileName, FileFormat:=51
    
    ' 释放对象
    objWorkbook.Close
    objExcel.Quit
    Set objWorksheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub

在上述代码中，我们使用了Excel对象来实现将表格数据导出到Excel中的功能。在循环中，我们使用tbl.Cell(i, j).Range.Text来获取表格中每一行、每一列的数据，并将其写入到Excel的对应位置中。此外，在保存Excel文件时，我们使用了FileFormat参数来指定文件格式，51表示xlsx格式。需要注意的是，由于此代码是基于VBA语言的，因此需要在Word或其他Office应用程序中运行。