利用代码导出的数据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'。