排除已存在的行,咋办?
以下是引用lpxjw_zyl在2012-5-25 8:45:00的发言:
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Output.Show(dlg.filename)
Dim Book As New XLS.Book(dlg.filename)
For i As Integer = 0 To Book.Sheets.count -1
If Book.Sheets(i).Name = "Sheet1"
Dim mg As New Merger
mg.SourcePath = dlg.filename
mg.Format = "excel" '指定格式
mg.SourceTableName = Book.Sheets(i).Name & "$" '指定要合并的表
mg.DataTableName = "Sheet1" '指定接收数据的表
mg.Merge() '开始合并
End If
Next
End If