以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]导入电子表格出现错误提示  (http://foxtable.net/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"
谢谢有点色老师图片点击可在新窗口打开查看!原来我就是差了这一行代码。图片点击可在新窗口打开查看看来看帮助也不能完全复制照搬,还是要多结合一下上下文的例子。