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

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

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

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

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

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

老师，我有用代码导出，比如 金额=单价*数量，但是列标题就不是金额，是 'Expr1009  ，怎么修改列标题的名字？

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楼有关导出某时间段的限制。

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

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

谢谢狐爸！

我用了狐爸的代码，提示出错，应该为表达式，找不到问题所在。

 

此主题相关图片如下：qq图片20140319150307.jpg

此主题相关图片如下：qq图片20140319152339.jpg