DataTables("工资数据输入表").DeleteFor("姓名 Is Null")
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.Format = "excel"
    Dim book As new XLS.Book(dlg.fileName)
    mg.SourceTableName = book.Sheets(0).name & "$"
    mg.DataTableName = "工资数据输入表"
    mg.Merge()
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For n As Integer = 2 To Sheet.Rows.Count -1 \'注意下面的循环变量从2开始,而不是从0开始,因为Excel表的第1-2行是标题和列名
    If sheet(n,1).text = ""  Then  \'如果EXCEL的身份证出现空行那么删除空行
    DataTables("工资数据输入表").DeleteFor("姓名 Is Null")
    End If
    Next
End If

以上是合并文件代码，需要从来源文件的第二行开始进行合并（表头有2行），求教！