以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何一次合并几百个Excel文件?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9500)

--  作者:bitren
--  发布时间:2011/4/18 16:58:00
--  如何一次合并几百个Excel文件?
假如有几百个EXCEL,里面的格式都相同,就只有三列,(A列,B列,C列),这三列不可能全部为空,有可能第一行为空值,无表头。

我想问怎么才能把这些合并啊??

--  作者:狐狸爸爸
--  发布时间:2011/4/18 18:05:00
--  

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


--  作者:blackzhu
--  发布时间:2011/4/19 7:35:00
--  
老大,有个事我要批评你,你是师傅,以前你要求我们写代码的时候要写注释,但是你现在写代码注释从来也不写.现在新人越来越多,这个习惯还是要提倡,不然人家学不来.
--  作者:狐狸爸爸
--  发布时间:2011/4/19 7:39:00
--  

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

 

图片点击可在新窗口打开查看

 

 


--  作者:blackzhu
--  发布时间:2011/4/19 9:32:00
--  
要大力提倡的,新人现在有人觉得学这个云里雾里,我今后首先改正.
--  作者:狐狸爸爸
--  发布时间:2011/4/19 9:32:00
--  
OK
--  作者:bitren
--  发布时间:2011/4/19 11:02:00
--  
谢谢啊!!有点问题是导入时,程序告诉我EXCEL格式不正确。。我现在全部改成 TXT了,再试试
--  作者:bl018
--  发布时间:2011/4/30 22:16:00
--  
以下是引用狐狸爸爸在2011-4-19 7:39:00的发言:

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

 

图片点击可在新窗口打开查看   你当然懂,,,,可怜我们大部份不懂图片点击可在新窗口打开查看

 

 


--  作者:andy
--  发布时间:2011/5/1 10:40:00
--  

说的对,提倡,支持