以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何实现导入excel并对其重命名 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142515) |
-- 作者:wldhj -- 发布时间:2019/10/29 15:05:00 -- [求助]如何实现导入excel并对其重命名 如题 |
-- 作者:有点蓝 -- 发布时间:2019/10/29 15:12:00 -- 使用代码导:http://www.foxtable.com/webhelp/topics/0683.htm 比如: Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表 ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件 ex.Format = "Excel" \'导出格式为Excel ex.Fields = "日期,客户,数量,单价,产品" \'指定导出字段 ex.Filter = "[产品] = \'PD01\'" \'指定导出条件 ex.Export() \'开始导出 |
-- 作者:wldhj -- 发布时间:2019/10/29 15:15:00 -- 哦,是导入excel并对其重命名 |
-- 作者:有点蓝 -- 发布时间:2019/10/29 15:19:00 -- execl导入Foxtable?直接使用高速导入即可:http://www.foxtable.com/webhelp/topics/0184.htm |
-- 作者:wldhj -- 发布时间:2019/10/29 15:37:00 -- Dim dlg As New OpenFileDialog dlg.Filter= "excel文件|*.xls;*.xlsx" If dlg.ShowDialog = DialogResult.Ok Then Dim ip As New Importer ip.SourcePath = dlg.FileName ip.NewTableName ="订单表" & Date.Today ip.Format = "Excel" ip.Import() End If 需求是这样的,我想导入一个文件,并把文件名改为 "订单表" & Date.Today ,也就是"订单表"加当前时间。
|
-- 作者:有点蓝 -- 发布时间:2019/10/29 15:43:00 -- ip.NewTableName ="订单表" & format(Date.Today,"yyyyMMdd") |
-- 作者:wldhj -- 发布时间:2019/10/29 15:55:00 -- 总提示这个错误:包含一个保留字、拼写错误或丢失的参数,或标点符号不正确。 |
-- 作者:有点蓝 -- 发布时间:2019/10/29 16:04:00 -- 这个是导入的execl的数据有问题,和表名没有什么关系。 |