以文本方式查看主题

-  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=173358)

--  作者:13805235657
--  发布时间:2021/11/25 23:31:00
--  已添加了具有相同键的项。
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
Else
    Return
End If

Dim Book As New XLS.Book(dlg.FileName) \'到该句代码出现问题,提示“已添加了具有相同键的项”

请教老师,我导入的EXecl 文件 8-9月份的都没问题,做到10月表时导入出现问题,是什么原因呀?
我判断是EXecl 表问题,但没查到。

--  作者:有点蓝
--  发布时间:2021/11/26 8:53:00
--  
贴出完整代码。把有问题的文档发上来看看