以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导出EXCEL碰到同名文件的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157781)

--  作者:hitzfeld
--  发布时间:2020/10/29 0:40:00
--  导出EXCEL碰到同名文件的问题
以帮助的案例为例
示例四
将产品PD01的订单导出为Excel格式保存,并只导出指定的列:
Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields = "日期,客户,数量,单价,产品" \'指定导出字段
ex.Filter = "[产品] = \'PD01\'" \'指定导出条件
ex.Export() \'开始导出

这个例子有个问题,比如我第一次导出成功了,第二次再导出就无效了,打开EXCEL文件,内容仍然是第一次的,说明新数据没有生成。
这里我想请老师指导下,如果系统存在同名文件,先提示“已存在同名文件,是否覆盖?”,如果是就覆盖(或者说先删除旧文件再添加新文件)的代码要怎么写?




[此贴子已经被作者于2020/10/29 1:14:16编辑过]

--  作者:有点蓝
--  发布时间:2020/10/29 8:49:00
--  
先判断并删除已有的同名文件:http://www.foxtable.com/webhelp/topics/0331.htm,再导出