数据合并出现不可识别数据格式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据合并出现不可识别数据格式

共有1277人关注过本帖树形打印复制链接主题：数据合并出现不可识别数据格式

tankings

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：11 积分：151 威望：0 精华：0 注册：2017/3/6 11:51:00

数据合并出现不可识别数据格式 发帖心情

Post By：2017/3/9 12:23:00 [只看该作者]

数据合并时出现“不可识别的数据库格式 'D:\Users\ST\Desktop\新建文件夹\测试.xls”

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim mg As New Merger

mg.SourcePath = dlg.FileName

mg.SourceTableName = "111"

mg.DataTableName = "111"

mg.Merge()

End If

注：111时access数据库中的一张表

请问大神哪里错了

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/9 12:58:00 [只看该作者]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "Sheet1$"
    mg.DataTableName = "你foxtable的表名"
    mg.Format = "Excel"
    mg.Merge()
End If