vba_取入csv文件出力csv文件

最新推荐文章于 2024-12-24 14:55:12 发布

原创

最新推荐文章于 2024-12-24 14:55:12 发布 · 3.4k 阅读

10 ·

CC 4.0 BY-SA版权

文章标签：

#csv #vba

本文介绍了如何使用VBA读取CSV文件，处理包含逗号的复杂情况，以及在业务处理后输出新的CSV文件。强调在处理过程中需要注意前缀0的显示问题，并提醒在编写VBA代码时应考虑错误处理和参数类型匹配。

vba读取csv文件，根据csv文件不同，会有不同格式：

1. 单纯的逗号分割，但是数字或备注字段中包含逗号，取入时，字段会被拆分

2. 以逗号分割，但是，每个字段都有引号

vba读取入csv后的格式，基本都是字符串，然后通过分隔符进行拆分，所以，遇到一个字段中包含逗号的，很头疼，但是，根据取入的字符串格式，还是有办法可以解决的

' filePath 文件路径
' sheetName 目标sheet页名
Public Sub inputCsv(filePath As String, sheetName As String)
    Dim Buf As String
    Dim i, j As Long
    Dim tmp2() As Variant
    Dim cnt As Integer
    Dim myflag As Boolean
    
    With Worksheets(sheetName)
        .Visible = xlSheetVisible
        .Activate
        .Cells.Select
        Selection.NumberFormatLocal = "@"
        .Cells(1, 1).Select
    End With
    
    ' 開ける
    Set adoSt = CreateObject("ADODB.Stream")
          
    i = 1
    With adoSt
        .Charset = "Shift-JIS"
        .Open
        .LoadFromFile (filePath)
        Do Until .EOS
            Buf = .Readtext(-2)
            tmp = Split(Buf, ",")
            myflag = False
            cnt = 0
            
            For j = LBound(tmp) To UBound(tmp)
                If myflag = False And Left(tmp(j), 1) = """" And Right(tmp(j), 1) = """" Then
                    cnt = cnt + 1
                    ReDim Preserve tmp2(cnt)
                    tmp2(cnt) = Mid(tmp(j), 2, Len(tmp(j)) - 2)