以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导出不用多层表头  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154778)

--  作者:刘林
--  发布时间:2020/9/26 21:08:00
--  导出不用多层表头
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("建档核查_table1").SaveExcel(dlg.FileName, "建档就读台帐")  \'保存文件
  End If
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()


老师,由于想导出表不用多层表头,因为导出的表处理后有可能要导入,所以如果用多层表导涉及列名发生变改变,与数据表的字段不一致了,我想请问如何导出不为多层表头

--  作者:有点蓝
--  发布时间:2020/9/27 9:31:00
--  
1、先关闭多层表头:http://www.foxtable.com/webhelp/topics/1992.htm
2、导出代码
3、再启用多层表头