Excel Transformar txt em xls com condição

[Diegodcr]

Tenho os 1.txt 2.txt em c:\txt que precisam ser transformados em .xls por vba porém tem a coluna com nome COLUNA1 ou COLUNA2 no txt que tem números iniciando com 0 (zero) e quando vai pro xls o 0 (zero) some.

Tenho o vba que converte txt em xls:

Sub converte_txt_salva_xls()



Dim PathTXT As String

PathTXT = Cells(2, 4).Value  '"C:\txt\" Diretório dos .TXT (com "\" no fim!)

Dim PathXLS As String

PathXLS = Cells(2, 11).Value  '"C:\xlsx\" Diretório dos .XLS (com "\" no fim!)



Dim FSO     As Object

Dim File    As Object

Dim wb      As Workbook



Set FSO = VBA.CreateObject("Scripting.FileSystemObject")



For Each File In FSO.GetFolder(PathTXT).Files

    If Right(LCase(File), 4) = ".txt" Then

        Set wb = Workbooks.Open(File)

        ActiveSheet.Name = "plan1"

        wb.SaveAs PathXLS & Replace(LCase(wb.Name), ".txt", ".xls"), xlWorkbookNormal

        wb.Close False

    End If

Next



End Sub

1.txt 2.txt

[Wendell Menezes]

É sempre um único zero? Se for, pode incluir as linhas abaixo após a abertura do .txt em XLS (ou seja, após "Set wb = Workbooks.Open(File)":

 

Range("J:J").NumberFormat = "@"
For r = 6 To Cells(Rows.Count, "J").End(xlUp).Row
	If Cells(r, "J") <> "" Then Cells(r, "J") = "0" & Cells(r, "J")
Next

 

[Diegodcr]

@Wendell Menezes O problema é que a coluna não é fixa, ela pode ta na S, R, O... Por isso coloquei o nome da coluna

[Wendell Menezes]

Essa outra versão procura pelo nome do campo. Notei que o segundo .txt não ficou sem o zero, é porque o campo sempre tem 4 dígitos? Se não for, irá resultar em erro.

 

Sub converte_txt_salva_xls()

Dim PathTXT As String
Dim PathXLS As String
Dim FSO     As Object
Dim File    As Object
Dim wb      As Workbook
Dim Coluna  As Range
Dim r       As Long

PathTXT = Cells(2, 4).Value  '"C:\txt\" Diretório dos .TXT (com "\" no fim!)
PathXLS = Cells(2, 11).Value  '"C:\xlsx\" Diretório dos .XLS (com "\" no fim!)

Set FSO = VBA.CreateObject("Scripting.FileSystemObject")

For Each File In FSO.GetFolder(PathTXT).Files
    If Right(LCase(File), 4) = ".txt" Then
        Set wb = Workbooks.Open(File)
        Set Coluna = Cells.Find("COLUNA1", LookAt:=xlWhole)
        If Coluna Is Nothing Then Set Coluna = Cells.Find("COLUNA2", LookAt:=xlWhole)
            If Not Coluna Is Nothing Then
                Coluna.EntireColumn.NumberFormat = "@"
                For r = 6 To Cells(Rows.Count, Coluna.Column).End(xlUp).Row
                    If Cells(r, Coluna.Column) <> "" Then Cells(r, Coluna.Column) = String(4 - Len(Cells(r, Coluna.Column)), "0") & Cells(r, Coluna.Column)
                Next
            End If
        ActiveSheet.Name = "plan1"
        wb.SaveAs PathXLS & Replace(LCase(wb.Name), ".txt", ".xls"), xlWorkbookNormal
        wb.Close False
    End If
Next

End Sub

 

[Diegodcr]

@Wendell Menezes A coluna tem a quantidade de números aleatórios, nem sempre são 4 dígitos...

O txt2 coloquei sem zero de exemplo pois pode ter arquivo com ou sem zero

[Wendell Menezes]

Se não houver nada no Excel que determine se precisa ou não de adicionar o zero, então acredito que sua única opção será abrir o txt como texto mesmo e copiar o conteúdo na planilha, algo que não costumo fazer com frequência para poder te ajudar.