主题：如何按要求导出表格？

你导出成xlsx的话，十几万条数据是可以容纳的。

如果要分类导出，参考代码

Dim dt As Table = Tables("表A")
For Each jl As String In dt.DataTable.GetValues("第一列")
    dt.Filter = "第一列 = '" & jl & "'"
    dt.SaveExcel("d:\test.xlsx", jl)
Next