主题：求助，如何导出表结构的代码

m flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\data\test.xls","订单汇总表",flg)

 

这样不行吗？

效果其实是不理想的，当然这不是老朱的问题，而是老六的问题。

假设是多层表头，而其中又有某列（或某些列）不是多层表头的，再用插入行和合并单元格就会有问题了。

 

希望老六解决一下。

学习。只是有些复杂，如果仅导出可见列的话又要加五六行代码。

我来个变态方法

格式设置没有写，大家都懂的。

 

Dim title As String = "变态方法能加精吗 (:_"
Dim t As Table = CurrentTable
With t.DataTable
    For Each c As Col In t.Cols
        .DataCols(c.Name).Caption = title & c.Name
    Next
    .BuildHeader()
    t.SaveExcel(ProjectPath & "test.xls",t.Name)
    For Each c As Col In t.Cols
        .DataCols(c.Name).Caption = c.Name
    Next
    .BuildHeader()
End With

再优化一下变态代码，下面代码考虑了原来列中设置的标题。

 

Dim title As String = "变态方法能加精吗 (:_"
Dim t As Table = CurrentTable
With t.DataTable
    For Each c As Col In t.Cols
        .DataCols(c.Name).Caption = title & c.Caption
    Next
    .BuildHeader()
    t.SaveExcel(ProjectPath & "test.xls",t.Name)
    For Each c As Col In t.Cols
        .DataCols(c.Name).Caption = c.Caption.Replace(title,"")
    Next
    .BuildHeader()
End With