VBA 合并大量CSV文件的问题

tiancqu

我想在需要合并大量CSV文件，想用VBA，只想保留第一个文件的表头。其余文件只要保留数据。不要表头。表头打开后，可能会乱码，这个是因为语言问题，数据是从国外要的，没问题。正常VBA编程，保证第一个文件的表头（前四行）就行。数据见附件。

合并样式为 A B C
                  1 2 3
                  4 5 6

                  A B C
                  7 8 9
                  7 8 9

合并为
                  A B C
                  1 2 3
                  4 5 6
                  7 8 9
                  7 8 9

zhangzhang

Public Sub 合并()

Dim Rng As Range
Dim Arr
Dim LastR As Long
Dim Wb As Workbook
Dim MyFile As String
Dim MyPath As String

Application.ScreenUpdating = False
MyPath = ThisWorkbook.Path & "\"

MyFile = Dir(MyPath & "*.csv")

Do Until MyFile = ""
Set Wb = Workbooks.Open(MyPath & MyFile)
Set Rng = Range("A1").CurrentRegion
Set Rng = Rng.Offset(4).Resize(Rng.Rows.Count - 4)
Arr = Rng
Wb.Close False
LastR = Range("A60000").End(xlUp).Row + 1
Cells(LastR, 1).Resize(UBound(Arr), UBound(Arr, 2)) = Arr
MyFile = Dir
Loop
Application.ScreenUpdating = True
End Sub


本附件有误，见3楼

zhangzhang

重新上传。。。。。。。。。。

tiancqu

zhangzhang 发表于 2015-11-18 22:17
重新上传。。。。。。。。。。

十分感谢。合并后的数据，为什么小数点都变成分号了，不好意思，打扰您了

tiancqu

朱荣兴 发表于 2015-11-18 22:35
在“汇总”工作薄的“操作"工作表中点击按钮即可

十分感谢，请问合并后的数据里小数点变成分号了，怎么处理，谢谢。

zhangzhang

你的原数据就是分号。

tiancqu

zhangzhang 发表于 2015-11-19 15:25
你的原数据就是分号。

嗯嗯，数据是从国外拷得，能帮忙解决一下这个问题吗，把它变成逗号就行，我弄了一下午，没弄好。

tiancqu

朱荣兴 发表于 2015-11-18 22:35
在“汇总”工作薄的“操作"工作表中点击按钮即可

十分感谢，能把数据中的分号变成逗号吗，，，麻烦了