- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何导出表中的部分列内容 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83327)
-- 发布时间：2016/4/6 16:05:00
-- 如何导出表中的部分列内容
现在要将表中导出为EXCEL文件，如何只导出部分列，设计了一个导出按纽，对应语法如何写，谢谢
-- 发布时间：2016/4/6 16:07:00
--
你用哪种方法导出？Exporter是可以设置要导出的列的。
http://www.foxtable.com/help/topics/0683.htm
-- 发布时间：2016/4/6 16:13:00
--
杂项中的导出 EXCEL这个功能
-- 发布时间：2016/4/6 16:16:00
--
| Syscmd.Project.ExportToExcel() | 导出为Excel文件 |
-- 发布时间：2016/4/6 16:17:00
--
我现在只想导出部分列的内容。如何写代码啊
-- 发布时间：2016/4/6 16:19:00
--
看2楼啊。
-- 发布时间：2016/4/6 16:21:00
--
好的，谢谢
-- 发布时间：2016/4/6 16:22:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.Format = "Excel"
ex.Fields = "第一列,第二列"
ex.SourceTableName = CurrentTable.name \'指定导出表
ex.filepath = dlg.FileName \'指定目标文件
ex.Export() \'开始导出
End If
-- 发布时间：2016/4/6 16:47:00
--
导出的文件中前面有个逗号啊？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:员工.xls |
-- 发布时间：2016/4/6 16:52:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim t As Table = Tables("表A")
Dim tvcs As String = t.getColVisibleWidth
t.SetColVisibleWidth("第一列|98|第二列|98")
t.SaveExcel(dlg.FileName, t.name)
t.SetColVisibleWidth(tvcs)
End If