Skip to main content
adicionou 99 caracteres ao conteúdo
Fonte Link

Olá, preciso de uma macro para que ao importar um txt pelo botão ele separe automaticamente entre colunas, OBS: o txt sempre vem com ponto e virgula(;) então preciso de uma macro com delimitador em ponto e virgula. Tentei fazer como DaTaType:=True no meu código mas não deu muito certo.

Macro feita até o momento a seguir:

Referência: inserir a descrição da imagem aqui

Sub lerTxt()
    Dim sheet As Worksheet
    Dim selecao As Variant
    Dim i As Integer, linha As Integer
    
    selecao = Application.GetOpenFilename(Filefilter:="Texto, *.txt", Title:="Selecione um arquivo", MultiSelect:=True)
    
    If VarType(selecao) = vbBoolean Then Exit Sub 'Nenhum arquivo selecionado
    'Se não for boolean, é uma array de strings com caminhos de arquivo.
    
    ' Aqui é que você tem que iterar, pois "selecao" contém uma array com caminhos de arquivo.
    ' Dentro de cada iteração, você faz aquilo que você já estava fazendo.
    For i = 1 To UBound(selecao) Step 1
        Open selecao(i) For Input As #1
        Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
        
        linha = 1
        Do Until EOF(1)
            Line Input #1, valorLin
            Cells(linha, 1).Value = valorLin
            linha = linha + 1
        Loop
        Close #1
        
        sheet.UsedRange.TextToColumns DataType:=True
        sheet.Columns().EntireColumn.AutoFit
    Next i
    
    End Sub

Olá, preciso de uma macro para que ao importar um txt pelo botão ele separe automaticamente entre colunas, OBS: o txt sempre vem com ponto e virgula(;) então preciso de uma macro com delimitador em ponto e virgula. Tentei fazer como DaTaType:=True no meu código mas não deu muito certo.

Macro feita até o momento a seguir:

Sub lerTxt()
    Dim sheet As Worksheet
    Dim selecao As Variant
    Dim i As Integer, linha As Integer
    
    selecao = Application.GetOpenFilename(Filefilter:="Texto, *.txt", Title:="Selecione um arquivo", MultiSelect:=True)
    
    If VarType(selecao) = vbBoolean Then Exit Sub 'Nenhum arquivo selecionado
    'Se não for boolean, é uma array de strings com caminhos de arquivo.
    
    ' Aqui é que você tem que iterar, pois "selecao" contém uma array com caminhos de arquivo.
    ' Dentro de cada iteração, você faz aquilo que você já estava fazendo.
    For i = 1 To UBound(selecao) Step 1
        Open selecao(i) For Input As #1
        Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
        
        linha = 1
        Do Until EOF(1)
            Line Input #1, valorLin
            Cells(linha, 1).Value = valorLin
            linha = linha + 1
        Loop
        Close #1
        
        sheet.UsedRange.TextToColumns DataType:=True
        sheet.Columns().EntireColumn.AutoFit
    Next i
    
    End Sub

Olá, preciso de uma macro para que ao importar um txt pelo botão ele separe automaticamente entre colunas, OBS: o txt sempre vem com ponto e virgula(;) então preciso de uma macro com delimitador em ponto e virgula. Tentei fazer como DaTaType:=True no meu código mas não deu muito certo.

Macro feita até o momento a seguir:

Referência: inserir a descrição da imagem aqui

Sub lerTxt()
    Dim sheet As Worksheet
    Dim selecao As Variant
    Dim i As Integer, linha As Integer
    
    selecao = Application.GetOpenFilename(Filefilter:="Texto, *.txt", Title:="Selecione um arquivo", MultiSelect:=True)
    
    If VarType(selecao) = vbBoolean Then Exit Sub 'Nenhum arquivo selecionado
    'Se não for boolean, é uma array de strings com caminhos de arquivo.
    
    ' Aqui é que você tem que iterar, pois "selecao" contém uma array com caminhos de arquivo.
    ' Dentro de cada iteração, você faz aquilo que você já estava fazendo.
    For i = 1 To UBound(selecao) Step 1
        Open selecao(i) For Input As #1
        Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
        
        linha = 1
        Do Until EOF(1)
            Line Input #1, valorLin
            Cells(linha, 1).Value = valorLin
            linha = linha + 1
        Loop
        Close #1
        
        sheet.UsedRange.TextToColumns DataType:=True
        sheet.Columns().EntireColumn.AutoFit
    Next i
    
    End Sub

Fonte Link

Macro com delimitador de ponto e virgula para txt

Olá, preciso de uma macro para que ao importar um txt pelo botão ele separe automaticamente entre colunas, OBS: o txt sempre vem com ponto e virgula(;) então preciso de uma macro com delimitador em ponto e virgula. Tentei fazer como DaTaType:=True no meu código mas não deu muito certo.

Macro feita até o momento a seguir:

Sub lerTxt()
    Dim sheet As Worksheet
    Dim selecao As Variant
    Dim i As Integer, linha As Integer
    
    selecao = Application.GetOpenFilename(Filefilter:="Texto, *.txt", Title:="Selecione um arquivo", MultiSelect:=True)
    
    If VarType(selecao) = vbBoolean Then Exit Sub 'Nenhum arquivo selecionado
    'Se não for boolean, é uma array de strings com caminhos de arquivo.
    
    ' Aqui é que você tem que iterar, pois "selecao" contém uma array com caminhos de arquivo.
    ' Dentro de cada iteração, você faz aquilo que você já estava fazendo.
    For i = 1 To UBound(selecao) Step 1
        Open selecao(i) For Input As #1
        Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
        
        linha = 1
        Do Until EOF(1)
            Line Input #1, valorLin
            Cells(linha, 1).Value = valorLin
            linha = linha + 1
        Loop
        Close #1
        
        sheet.UsedRange.TextToColumns DataType:=True
        sheet.Columns().EntireColumn.AutoFit
    Next i
    
    End Sub