使用VBA将邮政编码的前导零添加到CSV并进行维护

Sub AddLeadingZerosToPostalCode()
    Dim filePath As String
    Dim fileContent As String
    Dim lines As Variant
    Dim i As Long
    
    ' 选择要处理的CSV文件
    filePath = Application.GetOpenFilename("CSV Files (*.csv), *.csv")
    
    ' 读取文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    ' 将文件内容按行分割为数组
    lines = Split(fileContent, vbCrLf)
    
    ' 遍历每一行数据
    For i = LBound(lines) To UBound(lines)
        Dim fields As Variant
        Dim j As Long
        
        ' 将每一行数据按逗号分割为字段数组
        fields = Split(lines(i), ",")
        
        ' 检查邮政编码字段是否需要添加前导零
        If Len(fields(0)) < 5 Then
            fields(0) = WorksheetFunction.Rept("0", 5 - Len(fields(0))) & fields(0)
        End If
        
        ' 更新行数据
        lines(i) = Join(fields, ",")
    Next i
    
    ' 将更新后的数据写回文件
    Open filePath For Output As #1
    Print #1, Join(lines, vbCrLf)
    Close #1
    
    MsgBox "前导零已成功添加到邮政编码并保存文件。"
End Sub