如何將多個CSV文件合並到一個EXCEL工作表內

hjl810 · 发表于 2009-5-6 13:25

求助論壇裡的各位高手,是否能幫小弟解決這下問題.附件中Book1.xls為要達到的效果,CSV文件夾中的為源文件.目的是將多個CSV文件中的B欄合並到一個Excel文件的同一個sheet中.謝謝了!

[ 本帖最后由 hjl810 于 2009-5-6 13:26 编辑 ]

hjl810 · 发表于 2009-5-7 07:49

各位高手能否指教一下.謝謝

hjl810 · 发表于 2009-5-14 22:25

......................................

wmhlwx · 发表于 2009-5-15 05:42

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
p = ThisWorkbook.Path & "\csv\"
f = Dir(p)
Do While f <> ""
Set kkk = Workbooks.Open(p & f)
kkk.Worksheets(1).Range("a4:c" & (kkk.Worksheets(1).Range("a60000").End(xlUp).Row)).Copy Range("a" & (Range("a60000").End(xlUp).Row + 1))
kkk.Close False
f = Dir
Loop
Set kkk = Nothing
Application.ScreenUpdating = True
End Sub

wmhlwx · 发表于 2009-5-15 05:49

CSV是可以作为工作簿来对待的。
测试时间0.26S。

wmhlwx · 发表于 2009-5-21 06:21

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Set ws = Worksheets.Add
p = ThisWorkbook.Path & "\csv\"
f = Dir(p)
Do While f <> ""
Set kkk = Workbooks.Open(p & f)
kkk.Worksheets(1).Range("a4:c" & (kkk.Worksheets(1).Range("a60000").End(xlUp).Row)).Copy ws.Range("a" & (Range("a60000").End(xlUp).Row + 1))
kkk.Close False
f = Dir
Loop
Set kkk = Nothing
ws.Name = "数据"
Set ws = Nothing
Application.ScreenUpdating = True
End Sub

hjl810 · 发表于 2009-5-20 21:43

谢谢您的回复,不过您的这种方法是将三个CSV文件的A,B,C三个栏位的内容合并到一起了,我要的结果是将三个CSV文件内的B栏内容COPY到一个新的Excel活页薄的A,B,C栏位中.不知道您是否有办法.谢谢~~

hjl810 · 发表于 2009-5-21 13:44

哥們,我試過還是不行呀.我傳一個附件上來,你再幫我試試.Book2.xls為我需要的結果.CSV文件夾裡的為原始文件.謝謝啦!

wmhlwx · 发表于 2009-5-22 12:02

原代码一字不改，工作的很好啊。

wmhlwx · 发表于 2009-5-22 12:44

B列靠到ABC3列中？

已改，按照名字顺序，第一个文件的B列拷到A列，第二个文件的B列拷到B列， C , D , E以此类推。

[ 本帖最后由 wmhlwx 于 2009-5-22 12:51 编辑 ]

		自动登录	找回密码
密码			免费注册

[求助] 如何將多個CSV文件合並到一個EXCEL工作表內

回复 4楼 wmhlwx 的帖子