以文本方式查看主题

-  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=4043)
--  作者：yangming
--  发布时间：2009/8/25 15:34:00
--  分享:导出EXCEL表时,只导出显示列
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() \'开始导出
--  作者：kylin
--  发布时间：2009/8/25 15:36:00
--  
收藏，谢谢
--  作者：gamtings
--  发布时间：2009/8/25 15:41:00
--  
学习了！！谢yangming版主
--  作者：mr725
--  发布时间：2009/8/25 16:39:00
--  
收下了～
提示错误？：：：：：：：：：


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-8-25 16:53:10编辑过]
--  作者：migold
--  发布时间：2009/8/25 17:58:00
--  

收藏
--  作者：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 \'指定导出字段 删除后不会保错了， 应如何修正？
--  作者：yangming
--  发布时间：2009/8/26 10:12:00
--  

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

[此贴子已经被作者于2009-8-26 10:12:41编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/8/26 10:20:00
--  
以下是引用yangming在2009-8-26 10:12:00的发言：

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

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


可以上传的呢
--  作者：yangming
--  发布时间：2009/8/26 11:09:00
--  
以下是引用狐狸爸爸在2009-8-26 10:20:00的发言：


可以上传的呢

还是上传不了,今天网速也很慢,晕死了
--  作者：mr725
--  发布时间：2009/8/26 11:10:00
--  

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