none
Incluir "0" a esquerda RRS feed

  • Pergunta

  • Gerei um código para criar um txt a partir de uma planilha em excel utilizando o VBA, porém preciso que na ActiveCell.Row, 6).Value seja incluso "0" a esquerda totalizando 15 dígitos.

    Alguem poderia me ajudar?

    Segue o código:

    Sub GravarArquivoTxt()

        Open Range("B1").Value For Output As 1
            
        Range("A4").Select
        
        Do While ActiveCell.Value <> ""
            Print #1, ActiveCell.Value & "   " & Cells(ActiveCell.Row, 2).Value & Replace(Cells(ActiveCell.Row, 3).Value, "/", "") & "                                                " & Cells(ActiveCell.Row, 4).Value & "                   " & Cells(ActiveCell.Row, 5).Value & "                   " & Replace(Cells(ActiveCell.Row, 6).Value, ",", ".") & Cells(ActiveCell.Row, 7).Value
            Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
        Loop
            
        MsgBox "Arquivo gerado com sucesso!", vbInformation, "Ok"
        Close 1

    End Sub

    sábado, 14 de julho de 2018 00:06

Respostas

  • Ja achei a solução:

    Exemplo de como preencher com zeros à esquerda:

    strCampo = 1
    strCampo = Right("00000000" & strCampo, 8)
    debug.print strcampo
    escreverá: 00000001

    Neste caso acima, um campo de no máximo 8 posições

    sábado, 14 de julho de 2018 00:54