Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合并出错


  共有2629人关注过本帖树形打印复制链接

主题：合并出错
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		合并出错  发帖心情 Post By：2020/4/12 10:59:00 [只看该作者]

我用下面的代码合并数据，出现这个提示：不可识别的数据库格式 'C:\Users\0\Desktop\鄂岱村\鄂岱基础表.xls'。请问什么原因？谢谢指教！

Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls" 
dlg.MultiSelect = True 
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.SourceTableName = "基础表"
        mg.DataTableName = "基础表"
        mg.Merge()
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2020/4/12 11:52:00 [只看该作者]


Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls" 
dlg.MultiSelect = True 
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.format = "excel"  '指定要合并的文件格式
        mg.SourceTableName = "基础表"
        mg.DataTableName = "基础表"
        mg.Merge()
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2020/4/12 12:55:00 [只看该作者]

加了之后出现：Microsoft Jet 数据库引擎找不到对象'基础表'。请确定对象是否存在，并正确地写出它的名称和路径。请问怎么修改？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106688 积分：542629 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/12 22:19:00 [只看该作者]

mg.SourceTableName = "这里是sheet的名称，不是foxtable表格名称"

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 4 次数据查询