列名，直接 日1、日2、日3 之类的命名就好。

 合并数据，直接用代码来合并。

 标题，根据当月的动态修改标题。

 这个表，固定是31列，如果要修改标题显示，就动态设置

http://www.foxtable.com/webhelp/scr/1275.htm

编写代码合并

http://www.foxtable.com/webhelp/scr/2334.htm

参考

Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim  Book As New XLS.Book(dlg.FileName)
    Dim  Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("产量报表").StopRedraw()
    \'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
    Dim nms() As  String = { "工位","员工工号","姓名","日1","日2","日3","日4","日5","日6","日7","日8","日9","日10","日11","日12","日13","日14","日15","日16","日17","日18","日19","日20","日21","日22","日23","日24","日25","日26","日27","日28","日29","日30","日31","总量","白班产量","晚班产量","上班天数","白班天数","晚班天数","双休加班","请假天数","白班其他时间","晚班其他时间","备注" }
    \'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As  Row = Tables("产量报表").AddNew()
        For  m As  Integer = 0 To nms.Length - 1
            If Tables("产量报表").Cols(nms(m)).IsNumeric Then
                r(nms(m)) = val(Sheet(n,m).Value)
            Else
                r(nms(m)) = Sheet(n,m).Value
            End If
        Next
    Next
    Tables("产量报表").ResumeRedraw()
End If