共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：如何一次合并几百个Excel文件？
1楼
bitren 发表于：2011/4/18 16:58:00假如有几百个EXCEL，里面的格式都相同，就只有三列，(A列,B列，C列)，这三列不可能全部为空，有可能第一行为空值，无表头。
我想问怎么才能把这些合并啊？？
2楼
狐狸爸爸 发表于：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
3楼
blackzhu 发表于：2011/4/19 7:35:00老大,有个事我要批评你,你是师傅,以前你要求我们写代码的时候要写注释,但是你现在写代码注释从来也不写.现在新人越来越多,这个习惯还是要提倡,不然人家学不来.
4楼
狐狸爸爸 发表于：2011/4/19 7:39:00呵呵，上面的代码不需要注释吧?
5楼
blackzhu 发表于：2011/4/19 9:32:00要大力提倡的,新人现在有人觉得学这个云里雾里,我今后首先改正.
6楼
狐狸爸爸 发表于：2011/4/19 9:32:00OK
7楼
bitren 发表于：2011/4/19 11:02:00谢谢啊！！有点问题是导入时，程序告诉我EXCEL格式不正确。。我现在全部改成 TXT了，再试试
8楼
bl018 发表于：2011/4/30 22:16:00以下是引用狐狸爸爸在2011-4-19 7:39:00的发言：
呵呵，上面的代码不需要注释吧?
你当然懂，，，，可怜我们大部份不懂
9楼
andy 发表于：2011/5/1 10:40:00说的对，提倡，支持
共9 条记录, 每页显示 10 条, 页签:
[1]