以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]多次引入同一个excel表能否覆盖  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97784)

--  作者:whyxd
--  发布时间:2017/3/18 12:16:00
--  [求助]多次引入同一个excel表能否覆盖
我想做的是引入单据!
我的做法是引入excle表,再提取引入的数据,然后删除引入表。
代码如下
\'判断是否存在同名表
If DataTables.Contains("1123") Then
MainTable = Tables("1123")
Syscmd.Table.Delete()
End If
\'引入excel
Dim ip As New Importer
ip.SourcePath = "d:\\Data\\123.xls" \'指定数据文件
ip.SourceTableName = "zzz" \'指定要导入的表
ip.NewTableName ="1123" \'导入后的表名
ip.Format = "Excel" \'指定导入格式
ip.Import()

这样的方式可以实现,但是每次删除都会有提示是否确认删除,想要不提示,直接删除怎么写?
有没有更合理的方法?还请多多指教!
[此贴子已经被作者于2017/3/18 12:18:18编辑过]

--  作者:有点蓝
--  发布时间:2017/3/18 14:13:00
--  

不要频繁删除和创建表。清空数据再合并就行了

 

 


--  作者:whyxd
--  发布时间:2017/3/20 11:09:00
--  回复:(有点蓝)不要频繁删除和创建表。清空数据再合...

好的,明白了,多谢