请高手帮忙修改代码，合并多个CSV文件，并将文件名内的日期插入左侧列，多谢！

nec579

要求1.合并多个csv文件              2.将子文件名内的日期插入左侧列（最好以日期格式）
       3.解决汉字都变成乱码的问题

我已从别人那里获取一个代码，请高手帮忙修改下，以适应我的使用，
源代码使用过后，所有汉字都变成乱码。

Private Sub CommandButton1_Click()
    Dim sPath$, sFile$, sConn$, m%, n%
    Dim rDes As Range
    ActiveSheet.UsedRange.Clear
    Range("a1") = "文件名"
    sPath = ThisWorkbook.Path & "\"
    sFile = Dir(sPath & "\*.csv")
    Application.ScreenUpdating = False
    On Error Resume Next
    Do While sFile <> ""
        n = n + 1
        m = IIf(n = 1, 0, 1)
        n = IIf(n = 1, 1, 2)
        sConn = "Text;" & sPath & sFile
        Set rDes = Range("b" & Rows.Count).End(xlUp).Offset(m)
        With ActiveSheet.QueryTables.Add(sConn, rDes)
            .TextFileStartRow = n
            .TextFilePlatform = 65001
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True
            .Refresh False
            .Delete
        End With
        Range("a1").CurrentRegion.Columns(1).SpecialCells(4) = Split(sFile, ".")(0)
        If Err.Number <> 0 Then
            MsgBox "错误发生在文件: " & sFile & vbCrLf & _
            "已经处理文件个数: " & n & vbCrLf & _
            "工作表已使用行数: " & ActiveSheet.UsedRange.Rows.Count
            Exit Sub
        End If
        sFile = Dir
    Loop
    Application.ScreenUpdating = True
End Sub


附件：
王志平.zip (140.38 KB, 下载次数: 50)

2015-3-15 21:44 上传

点击文件名下载附件

该贴已经同步到 nec579的微博

liu-aguang

删除该句:
.TextFilePlatform = 65001

nec579

liu-aguang 发表于 2015-3-15 22:55
删除该句:
.TextFilePlatform = 65001

非常感谢,这组代码好像也是你之前帮助别人做的,真的很不错,谢谢!