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

假如有几百个EXCEL，里面的格式都相同，就只有三列，(A列,B列，C列)，这三列不可能全部为空，有可能第一行为空值，无表头。

假定你说的几百个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

老大,有个事我要批评你,你是师傅,以前你要求我们写代码的时候要写注释,但是你现在写代码注释从来也不写.现在新人越来越多,这个习惯还是要提倡,不然人家学不来.

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

 

 

 

要大力提倡的,新人现在有人觉得学这个云里雾里,我今后首先改正.

OK

谢谢啊！！有点问题是导入时，程序告诉我EXCEL格式不正确。。我现在全部改成 TXT了，再试试

说的对，提倡，支持