- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导入电子表格出现错误提示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102336)
-- 发布时间：2017/6/17 20:30:00
-- [求助]导入电子表格出现错误提示
我今天在测试帮助中的一段代码：
示例二
如果希望出现一个打开文件对话框，导入用户指定的文件，可以参考下面的代码：
Dim dlg As New
OpenFileDialog
\'定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb"
\'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ip As New
Importer
ip.SourcePath = dlg.FileName
\'指定数据文件
ip.SourceTableName = "订单"
\'指定要导入的表
ip.NewTableName ="订单"
\'导入后的表名
ip.Import()
End If
我在命令窗口测试此段代码，我导入的是电子表格（文件名：订单.xls 其中包括一个名为“订单”的工作表）。
第二行我也改成：dlg.Filter= "excel文件|*.xls"，但是在执行中有错误，错误提示：SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。我用了msgbox逐行测试，是在ip.import()有问题。
请问怎么解决？
-- 发布时间：2017/6/18 17:45:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ip As New Importer
ip.Format = "Excel"
ip.SourcePath = dlg.FileName \'指定数据文件
ip.SourceTableName = "订单$" \'指定要导入的表
ip.NewTableName ="订单" \'导入后的表名
ip.Import()
End If
-- 发布时间：2017/6/18 22:03:00
--
ip.Format = "Excel"
谢谢有点色老师
！原来我就是差了这一行代码。
看来看帮助也不能完全复制照搬，还是要多结合一下上下文的例子。
！原来我就是差了这一行代码。看来看帮助也不能完全复制照搬，还是要多结合一下上下文的例子。