导入MS Access前批量替换CSV文件中的连续逗号

你可以在导入操作前，通过VBA读取每个CSV文件的内容，批量替换所有,,为,,再保存文件后执行导入。以下是修改后的完整代码：

Private Sub bImportFiles_Click()
On Error GoTo bImportFiles_Click_Err

Dim objFS As Object, objFolder As Object
Dim objFiles As Object, objF1 As Object
Dim strFolderPath As String
Dim tsStart, tsEnd As Date
Dim tsTextStream As Object
Dim fileContent As String

tsStart = Now() '记录导入开始时间

'设置CSV文件所在路径
strFolderPath = "C:\Users\costicla\test\"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strFolderPath)
Set objFiles = objFolder.files

For Each objF1 In objFiles
    '仅处理CSV格式文件（兼容大小写后缀）
    If LCase(Right(objF1.Name, 3)) = "csv" Then
        '1. 读取CSV文件内容
        Set tsTextStream = objFS.OpenTextFile(objF1.Path, 1) '只读模式打开
        fileContent = tsTextStream.ReadAll
        tsTextStream.Close
        
        '2. 替换所有独立的",,"为","
        fileContent = Replace(fileContent, ",,", ",")
        
        '3. 将处理后的内容写回原文件（覆盖）
        Set tsTextStream = objFS.OpenTextFile(objF1.Path, 2) '写入模式（覆盖原文件）
        tsTextStream.Write fileContent
        tsTextStream.Close
        
        '4. 执行导入操作
        DoCmd.SetWarnings False
        DoCmd.TransferText acImportDelim, "specs", "ALL", strFolderPath & objF1.Name, False
        DoCmd.SetWarnings True
        
        '5. 将处理后的文件移动到归档文件夹
        Name strFolderPath & objF1.Name As "C:\Users\costicla\import\" & objF1.Name
    End If
Next

'释放对象资源
Set objF1 = Nothing
Set objFiles = Nothing
Set objFolder = Nothing
Set objFS = Nothing
Set tsTextStream = Nothing

tsEnd = Now()
MsgBox ("Import ALL done !!! " & _
"start at: " & tsStart & " end at: " & tsEnd)

bImportFiles_Click_Exit:
    Exit Sub
    DoCmd.SetWarnings True

bImportFiles_Click_Err:
    MsgBox Err.Number & " " & Err.Description
    Resume bImportFiles_Click_Exit
End Sub

关键修改说明： #

• 新增tsTextStream对象，用于读取和写入CSV文件的文本内容
• 加入读取文件→替换分隔符→写回文件的前置处理流程，确保导入前CSV的空字段格式已修正
• 优化文件后缀判断逻辑，用LCase兼容.CSV大写后缀的文件
• 修复原代码中tse变量未赋值的问题，改为tsEnd并在导入完成后正确记录结束时间

注意事项： #

• 若CSV文件为UTF-8编码，需调整文本流打开方式（添加参数：objFS.OpenTextFile(objF1.Path, 1, False, True)），避免乱码
• 建议先备份测试用CSV文件，防止替换操作意外损坏数据
• 替换逻辑仅针对独立的,,，不会影响带引号字段内的逗号（比如"abc,,def"这类内容不受影响）

内容的提问来源于stack exchange，提问作者dubios