标题：[求助]如何只导出当前表的显示的列，不导出隐藏列

1楼

migold 发表于：2009/8/25 12:20:00

如题：[求助]如何只导出当前表的显示的列，不导出隐藏列

2楼

yangming 发表于：2009/8/25 12:29:00

示例三

将产品PD01的订单导出为Excel格式保存，并只导出指定的列：

Dim ex as New Exporter
ex.SourceTableName = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "日期,客户,数量,单价" '指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export() '开始导出

3楼

migold 发表于：2009/8/25 12:34:00

2楼楼主，
我不是问导出指定列的问题

4楼

migold 发表于：2009/8/25 12:38:00

导出指定列这个在我们这边的实际工作上没什么意义

通常都是只想导出所显示的列，比如，有时候只要2列，有时候7列

5楼

migold 发表于：2009/8/25 14:59:00

提取表的显示界面所显示的列名，列标题 (不包含隐藏的列)

求代码，谢谢

提取显示界面的隐藏的列的列名，列标题（不包含所显示的列名

求代码，谢谢

我用来放到导出指定列中的代码

各位老大，请给我来句代码，谢谢：

6楼

yangming 发表于：2009/8/25 15:19:00

Dim s As String
For Each cl As Col In Tables( "订单").Cols '排除隐藏列
If cl.Visible Then
If s =""
s = cl.Name
Else
s = s &","& cl.Name
End If
End If
Next

[此贴子已经被作者于2009-8-25 15:20:11编辑过]

7楼

yangming 发表于：2009/8/25 15:32:00

Dim s As String
For Each cl As Col In Tables( "订单1").Cols '排除隐藏列
If cl.Visible Then
If s ="" Then
s = cl.Name
Else
s = s &","& cl.Name
End If
End If
Next
Dim ex as New Exporter
ex.SourceTableName = "订单1" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields =s '指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export() '开始导出

8楼

migold 发表于：2009/8/25 18:00:00

谢谢版主

共8 条记录, 每页显示 10 条, 页签: [1]