Foxtable(狐表)用户栏目专家坐堂 → 利用代码导出的数据xls 用合并数据代码提示无法识别的数据库格式 怎么修正呢?


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

主题:利用代码导出的数据xls 用合并数据代码提示无法识别的数据库格式 怎么修正呢?

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
利用代码导出的数据xls 用合并数据代码提示无法识别的数据库格式 怎么修正呢?  发帖心情 Post By:2019/3/12 17:29:00 [只看该作者]

利用代码导出的数据xls  用合并数据代码提示无法识别的数据库格式  怎么修正呢?

合并数据代码:
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter="Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "系统信息"
    mg.DataTableName = "系统信息"
    mg.Merge()
End If

导出数据代码:
Dim ex As New Exporter
ex.SourceTableName = "系统信息" '指定导出表
ex.FilePath = "d:\系统信息.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Export() '开始导出
MessageBox.Show("导出成功,文件位置:d:\系统信息.xls,请及时查看","【温馨提示】")




错误提示:
.NET Framework 版本:2.0.50727.8784
Foxtable 版本:2018.10.9.1
错误所在事件:
详细错误信息:
不可识别的数据库格式 'D:\系统信息.xls'。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/12 17:31:00 [只看该作者]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter="Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "Excel"
    mg.SourceTableName = "系统信息$"
    mg.DataTableName = "系统信息"
    mg.Merge()
End If

 回到顶部