- 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)
-- 发布时间：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
-- 发布时间：2011/4/19 7:35:00
--
老大,有个事我要批评你,你是师傅,以前你要求我们写代码的时候要写注释,但是你现在写代码注释从来也不写.现在新人越来越多,这个习惯还是要提倡,不然人家学不来.
-- 发布时间：2011/4/19 7:39:00
--
呵呵，上面的代码不需要注释吧?
-- 发布时间：2011/4/19 9:32:00
--
要大力提倡的,新人现在有人觉得学这个云里雾里,我今后首先改正.
-- 发布时间：2011/4/19 9:32:00
--
OK
-- 发布时间：2011/4/19 11:02:00
--
谢谢啊！！有点问题是导入时，程序告诉我EXCEL格式不正确。。我现在全部改成 TXT了，再试试
-- 发布时间：2011/4/30 22:16:00
--
以下是引用狐狸爸爸在2011-4-19 7:39:00的发言：
呵呵，上面的代码不需要注释吧?
你当然懂，，，，可怜我们大部份不懂
-- 发布时间：2011/5/1 10:40:00
--
说的对，提倡，支持