主题：如何一次合并几百个Excel文件？

假定你说的几百个Excel文件统统位于c:\temp目录，每个Excel文件的第一个表为要合并的数据：

For Each fl As String In Filesys.GetFiles("c:\temp")
    If fl.EndsWith("xls") OrElse fl.EndsWith("xlsx") Then
        Dim Book As New XLS.Book(fl)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        For i As Integer = 0 To Sheet.Rows.Count - 1
            Dim r As Row = Tables("表A").AddNew()
            r("第一列") = sheet(i,0).Value
            r("第二列") = sheet(i,1).Value
            r("第三列") = sheet(i,2).Value
        Next
    End If
Next

呵呵，上面的代码不需要注释吧?