我用下面代码先导出一个Excel文件,再将这个Excel文件合并导入,提示“不可识别的数据库格式”,请问老师这是怎么回事?
导出代码:
Dim ex As New Exporter
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
Tables("客户档案").SaveExcel(dlg.FileName, "客户档案") '保存文件
End If
导入代码:
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 = "客户档案$"
mg.DataTableName = "客户档案"
mg.Merge()
End If