以文本方式查看主题

-  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=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的数据有问题，和表名没有什么关系。