如何批量把csv文件合并到一个表格的不同列中？！

sakicom · 发表于 2017-10-13 14:57

做实验......生成了几百个CSV格式的文件，每个文件里都只有一列数据，且每个文件的数据行数都不同...........求大神帮助，编写一个能够把这些csv文件内的数据合并到一个表格的不同列中！！
数据有很多批，希望大神能分享代码

little-key · 发表于 2017-10-13 15:03

是相同的表头吗？

sakicom · 发表于 2017-10-13 15:08

little-key 发表于 2017-10-13 15:03
是相同的表头吗？

都是纯数据，只是每一个文件的行数都不同

kldxlb · 发表于 2017-10-13 15:16

Sub test()
Dim c, Filename, wb, arr
Filename = Dir(ThisWorkbook.Path & "\附件\*")
Application.ScreenUpdating = False
Do While Filename <> ""
      Set wb = Workbooks.Open(ThisWorkbook.Path & "\附件\" & Filename)
      arr = wb.Sheets(1).UsedRange()
      c = c + 1
      ThisWorkbook.Sheets(1).Cells(1, c) = wb.Name
      ThisWorkbook.Sheets(1).Cells(2, c).Resize(UBound(arr), 1) = arr
      wb.Close False
      Filename = Dir
Loop
Application.ScreenUpdating = True
End Sub

little-key · 发表于 2017-10-13 15:30

行数不一样不要紧，重点是表头是否一样

sakicom · 发表于 2017-10-13 15:47

little-key 发表于 2017-10-13 15:30
行数不一样不要紧，重点是表头是否一样

没有表头的大神，都是纯数据

little-key · 发表于 2017-10-13 15:49

那就只能自己写一个模块了
我给你一个思路，你先试试
1、用open打开CSV的表
然后复制粘贴

但是这个要考虑你的数据量是否超过一个Excel 表的行数

sakicom · 发表于 2017-10-13 15:51

little-key 发表于 2017-10-13 15:49
那就只能自己写一个模块了
我给你一个思路，你先试试
1、用open打开CSV的表

嗯嗯，多谢指点！

zhiweini5 · 发表于 2018-9-22 10:02

kldxlb 发表于 2017-10-13 15:16
Sub test()
Dim c, Filename, wb, arr
Filename = Dir(ThisWorkbook.Path & "\附件\*")

大神需要从第二列开始粘贴怎么弄

kldxlb · 发表于 2018-9-27 11:46

zhiweini5 发表于 2018-9-22 10:02
大神需要从第二列开始粘贴怎么弄

arr = wb.Sheets(1).UsedRange()
这行改成
arr = wb.Sheets(1).UsedRange().Offset(0,1)

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

[求助] 如何批量把csv文件合并到一个表格的不同列中？！