vba 如何合并多个csv文件为一个文件

catmao666

向高手请教：如何用vba实现将多个csv文件合并为一个文件？

tonychris

copy/b 1.csv+2.csv+3.csv total.csv

zhaogang1960

请测试
Sub 如何合并多个csv文件为一个文件()
    Dim cnn As Object, SQL$, MyPath$, MyFile$, m&
    Set cnn = CreateObject("adodb.connection")
    MyPath = ThisWorkbook.Path & "\"
    If Dir(MyPath & "total.csv") <> "" Then Kill MyPath & "total.csv"
    MyFile = Dir(MyPath & "*.csv")
    Do While MyFile <> ""
        m = m + 1
        If SQL = "" Then SQL = "select * from " & MyFile Else SQL = SQL & " union all select * from " & MyFile
        MyFile = Dir()
    Loop
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;FMT=DELIMITED';Data Source=" & MyPath
    SQL = "select * into [total.csv] from (" & SQL & ")"
    cnn.Execute SQL
    MsgBox m & "个csv文件已成功合并为total.csv！"
    cnn.Close
    Set cnn = Nothing
    Kill MyPath & "schema.ini"
End Sub

catmao666

zhaogang1960 发表于 2011-10-23 15:29
请测试
Sub 如何合并多个csv文件为一个文件()
    Dim cnn As Object, SQL$, MyPath$, MyFile$, m&

Dim cnn As Object, SQL$, MyPath$, MyFile$, m&
    Set cnn = CreateObject("adodb.connection")    MyPath = ThisWorkbook.Path & "\"
    If Dir(MyPath & "total.csv") <> "" Then Kill MyPath & "total.csv"
    MyFile = Dir(MyPath & "*.csv")
    Do While MyFile <> ""
        m = m + 1
        If SQL = "" Then SQL = "select * from " & MyFile Else SQL = SQL & " union all select * from " & MyFile        MyFile = Dir()
    Loop
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;FMT=DELIMITED';Data Source=" & MyPath    SQL = "select * into [total.csv] from (" & SQL & ")"
    cnn.Execute SQL
    MsgBox m & "个csv文件已成功合并为total.csv！"
    cnn.Close
    Set cnn = Nothing
    Kill MyPath & "schema.ini"
版主，你能不能帮我解读下红色字体部分，我不明白意思啊？

zhaogang1960

catmao666 发表于 2011-10-23 16:30
Dim cnn As Object, SQL$, MyPath$, MyFile$, m&
    Set cnn = CreateObject("adodb.connection")    M ...

首先你应该告知此代码是否可用

这是ADO操作文本文件，如果你没有学习过可以搜索一下教材，看看基本知识，否则我怎么讲你也不会理解的

catmao666

zhaogang1960 发表于 2011-10-23 16:35
首先你应该告知此代码是否可用

这是ADO操作文本文件，如果你没有学习过可以搜索一下教材，看看基本知识 ...

代码可用，可为什么我合并后，tota中内容为乱码呢？

zhaogang1960

catmao666 发表于 2011-10-23 16:55
代码可用，可为什么我合并后，tota中内容为乱码呢？

请上传附件分析一下

catmao666

zhaogang1960 发表于 2011-10-23 16:58
请上传附件分析一下

以下为用到的文件：

zhaogang1960

catmao666 发表于 2011-10-23 17:05
以下为用到的文件：

附件有两个问题：
1、两个csv文件都不是真正的csv文件，每个文件都有三个工作表，csv文件只能有一个工作表，你可以把工作表数据另存为csv文件，不能简单的修改文件的扩展名
2、两个csv文件的列数不同，不能使用上面的代码，下面的附件一修改为真正的csv文件，数据无表头，列数相同
待合并2个csv文件.rar (9 KB, 下载次数: 140)

2011-10-23 17:20 上传

点击文件名下载附件

如果不合题意，请上传实际csv文件

catmao666

zhaogang1960 发表于 2011-10-23 17:21
附件有两个问题：
1、两个csv文件都不是真正的csv文件，每个文件都有三个工作表，csv文件只能有一个工作 ...

版主分析的是，可如何让列数不同的csv文件也能合并为一个csv文件呢？