老师，帮忙看一下导出时候、表达式列出错，不能导出～

---------------------

另外，能不能导出某段时间内的。也是有选择的导出列。

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

点击浏览该文件:导出统计表.rar

Dim ex As New Exporter
ex.SourceTableName = "出货" \'指定导出表
\'也要导出列标题的
If FileSys.FileExists("c:\\EXCEL\\出货.xls") Then
    FileSys.DeleteFile("c:\\EXCEL\\出货.xls")
End If
ex.FilePath = "c:\\EXCEL\\出货.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields = "出货日期,客户名称, 客户型号, 订单号, 订单数量, 单价, 出货数量*单价" \'指定导出字段
ex.Filter = "[客户名称] like \'%" & khmc.text & "%\'"   \'指定导出条件      可以这样吗？？？
ex.Filter = Filter & "日期1 >= #" & .Value & "#"
ex.Filter = Filter & "日期2 <= #" & .Value & "#"
ex.Export() \'开始
\'-----------------------------
\'打开工作簿
\'Book.Save("c:\\EXCEL表\\应收货款.xls")
Dim Proc As New Process
Proc.File = "c:\\EXCEL\\出货.xls"
Proc.Start()

那就是改不了列名称了。

那帮忙看看4楼有关导出某时间段的限制。

呵呵，合成表达式的问题，楼主你好好看看：
 
http://www.foxtable.com/help/topics/1284.htm
http://www.foxtable.com/help/topics/2919.htm
http://www.foxtable.com/help/topics/1058.htm
 

你4楼红色的代码，简直不堪入目，先看一下上面的帮助，然后自己改一下，这是基本工功，不会岂能编程？
你已经二尾狐了，不是新手啦。
 
 
ex.Filter = "[客户名称] like \'%" & khmc.text & "%\'“

if e.Form.Controls("日期1").Value & is Not Nothing Then

   ex.Filter = ex.Filter & ” And [日期] >= #“ e.Form.Controls("日期1").Value & "#"

End if
if e.Form.Controls("日期2").Value & is Not Nothing Then

   ex.Filter = ex.Filter & ” And [日期] <= #“ e.Form.Controls("日期2").Value & "#"

End if

狐爸误解了，我只是复制了帮助里面的筛选代码。

我的意思是说，是否可以连续多几个ex.Filter =

我没有误解，和我贴的帮助一样，你不过是要组合几个条件一起过滤而已。

7楼我帮你写好了。

和这个帮助一模一样：

http://www.foxtable.com/help/topics/1058.htm