以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助多个表一次导出Excel问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165224)

--  作者:wusim
--  发布时间:2021/5/11 7:25:00
--  求助多个表一次导出Excel问题?
现有表A、表B、表C、表D
全部导出代码没有问题:
Dim tbx As Table
For Each tbx In Tables
    Dim ex As New Exporter
    ex.SourceTableName = tbx.Name \'指定导出表
    ex.FilePath = "c:\\Data\\tbx.xls" \'指定目标文件
    ex.Format = "Excel" \'导出格式为Excel
    ex.Export() \'开始导出
Next

现在只想导出某些表,而且要保存单元格样式、保存合并模式。怎样改一下代码?

--  作者:有点蓝
--  发布时间:2021/5/11 8:47:00
--  
用SaveExcel:http://www.foxtable.com/webhelp/topics/0559.htm
--  作者:wusim
--  发布时间:2021/5/11 21:46:00
--  
CurrentTable.SaveExcel("e:\\use\\表.xls","表A","表B")  代码有问题,怎样修改?
--  作者:有点蓝
--  发布时间:2021/5/11 22:09:00
--  
分开导
CurrentTable.SaveExcel("e:\\use\\表.xls","表A")
CurrentTable.SaveExcel("e:\\use\\表.xls","表B")