老师 如下合并导入代码 为何执行后会有一列没有数据呢 表中列名与EXCEL列名是一致的啊
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "Excel"
mg.SourcePath = dlg.FileName
mg.SourceTableName = "Page1"
mg.DataTableName = "物料表"
mg.Merge()
End If
For Each dt As DataTable In DataTables
dt.Save()
Next
MessageBox.Show("合并导入成功!","提示")