以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助多个表一次导出Excel问题？  (http://foxtable.com/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")