共22 条记录, 每页显示 10 条, 页签: [1] [2][3]

标题：分享:导出EXCEL表时,只导出显示列

1楼

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

Dim s As String
For Each cl As Col In Tables( "订单").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 = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields =s '指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export() '开始导出

2楼

kylin 发表于：2009/8/25 15:36:00

收藏，谢谢

3楼

gamtings 发表于：2009/8/25 15:41:00

学习了！！谢yangming版主

4楼

mr725 发表于：2009/8/25 16:39:00

收下了～
提示错误？：：：：：：：：：

图片点击可在新窗口打开查看

此主题相关图片如下：未命名.jpg

[此贴子已经被作者于2009-8-25 16:53:10编辑过]

5楼

migold 发表于：2009/8/25 17:58:00

6楼

mr725 发表于：2009/8/25 21:23:00

以下是引用yangming在2009-8-25 15:34:00的发言：
Dim s As String
For Each cl As Col In Tables( "订单").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 = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields =s '指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export() '开始导出

4楼报错的是 ex.Fields =s '指定导出字段删除后不会保错了，应如何修正？

7楼

yangming 发表于：2009/8/26 10:12:00

删除红字就失去意义了,请看我的文件:
今天文件怎么上传不了?

[此贴子已经被作者于2009-8-26 10:12:41编辑过]

8楼

狐狸爸爸 发表于：2009/8/26 10:20:00

以下是引用yangming在2009-8-26 10:12:00的发言：

删除红字就失去意义了,请看我的文件:
今天文件怎么上传不了?

[此贴子已经被作者于2009-8-26 10:12:41编辑过]

可以上传的呢

9楼

yangming 发表于：2009/8/26 11:09:00

以下是引用狐狸爸爸在2009-8-26 10:20:00的发言：

可以上传的呢

还是上传不了,今天网速也很慢,晕死了

10楼

mr725 发表于：2009/8/26 11:10:00

请使用系统自带的例子：Excel报表.table 应用yang版1楼的代码，就会提示错误，无法执行代码了。

共22 条记录, 每页显示 10 条, 页签: [1] [2][3]