以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导入外部xls表不成功  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176653)

--  作者:hongyaoyu
--  发布时间:2022/4/21 16:54:00
--  导入外部xls表不成功
Microsoft Jet 数据库引擎打不开文件\'C:\\Users\\Administrator\\Desktop\\2022-4-9临时文件\'。  它已经被别的用户以独占方式打开,或没有查看数据的权限。
--  作者:hongyaoyu
--  发布时间:2022/4/21 16:55:00
--  

DataTables("碳排放工程参照").datarows.clear \'数据表数据表清空
DataTables("建筑碳排放生产运输").datarows.clear \'数据表数据表清空


Dim  dlg As New  OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "文本文件|*.xls" \'设置筛选器
If dlg.ShowDialog =  DialogResult.Ok Then  \'如果用户单击了确定按钮
    Dim mg As New Merger
     mg.SourcePath = FileSys.GetParentPath(dlg.FileName)

mg.Format = "excel" \'指定格式


     mg.SourceTableName = "碳排放工程参照" \'指定要合并的表,表名后面可能要多加一个$

     mg.DataTableName = "碳排放工程参照" \'指定接收数据的表

     mg.Merge()
 End If


--  作者:hongyaoyu
--  发布时间:2022/4/21 16:56:00
--  
这是窗口的代码,麻烦给看看哪里有问题?
--  作者:有点蓝
--  发布时间:2022/4/21 17:12:00
--  
mg.SourcePath = dlg.FileName
--  作者:hongyaoyu
--  发布时间:2022/4/21 17:53:00
--  
可以了,谢谢