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

可能电信的骨干线路出问题了

 值得我们学习的杨版.

如果目录中有此文件则删除后再导出

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'" '指定导出条件
If FileSys.FileExists("C:\Data\订单.xls") Then
    FileSys.DeleteFile("C:\Data\订单.xls ",2,2)
End If
ex.Export() '开始导出

如果需要导出后打开表格看看,则加上这段代码
Dim Proc As New Process
Proc.File = "c:\Data\订单.xls"
Proc.Start()

yang版啊～  就是这段代码 ex.Fields =s '指定导出字段 报错，不起作用，删除后，就可以了，但是报表：订单.xls  显示的是全部的列（包括隐藏的列）～～

这代码我能用,并没有报错啊,你的程序文件是824版吗?
你看看我的文件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导出excel,只导出显示列.rar

奇怪了， 用你16楼文件中的窗口，应用到系统例子 Excel报表.table 中就不行了，还是那个提示，是因为你的是外部表？ 我等会再试一试～  

那我再试试内部表,呵呵

我发现直接用Excel报表.table就不行,我是做导入到内部表,就可以使用,  是不是Excel报表.table是原版做的原因?

是呀，新建的项目可以，‘老’的项目就不行了，看来新版foxtalbe 还有点欺负‘老’同类～