Dim dlg As New OpenFileDialog
dlg.Filter= "Excel 97-2003 工作簿(*.xls)|*.xls|Excel 工作簿(*.xlsx)|*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel"
mg.SourceTableName = "8月工资表$"or"9月工资表"or"10月工资表"(可以这样写吗?如果不对应该怎么写?请老师指点)
mg.DataTableName = "工资表" '指定接收数据的表
mg.Merge() '开始合并
End If
MessageBox.Show("导入完成" )