以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导出的表名称能不能动态的呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50606)
--  作者：fubblyc
--  发布时间：2014/5/9 16:10:00
--  导出的表名称能不能动态的呢？

各位老师好，导出的表，如果名称已经存在，就不能再导出。这样比较麻烦，因为用户会导出多遍，能不能让导出的表名称加上导出时间或者什么的，可以避开因相同名称而不能导出的情况。。。

 

NewTableName
字符型，指定导出后的表的名称。
如果目标数据文件已经存在同名表，将不能导出。
对于dBASE和文本格式，用文件名代替表名，不含扩展名，如果目标文件已经存在，也不能导出。

 

Dim ex As New Exporter
ex.SourceTableName = "统计3" \'指定导出表
ex.FilePath = "d:\\VIP日经营门店趋势.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.NewTableName = "VIP日经营门店趋势"
ex.Export() \'开始导出

 
--  作者：Bin
--  发布时间：2014/5/9 16:11:00
--  
Dim ex As New Exporter
ex.SourceTableName = "统计3" \'指定导出表
ex.FilePath = "d:\\VIP日经营门店趋势.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.NewTableName = format(date.today,"yyyy-MM-dd") & "VIP日经营门店趋势"
ex.Export() \'开始导出
--  作者：lsy
--  发布时间：2014/5/9 16:21:00
--  

也可以先删除后导出。

Dim ex As New Exporter
ex.SourceTableName = "订单" \'指定导出表
If FileSys.FileExists("c:\\Data\\订单.xls") Then
    FileSys.DeleteFile("c:\\Data\\订单.xls")
End If
ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields = "日期,客户,数量,单价" \'指定导出字段
ex.Filter = Tables("订单").Filter \'指定导出条件
ex.Export() \'开始