Que tal aprender como abrir um arquivo de texto com vba?? Que tal usando a tela do windows para selecionar estes arquivos? Não é muito legal?

Pode ser muito útil em sua rotina de trabalho quando você recebe um pdf (então você passa para texto) e precisa passar para o excel.

Geralmente não é muito agradável de pegar o dados do texto e passar para excel com vba.

Então sendo bem direto segue o código abaixo! Copiem e teste no seu excel vba.


 Segue Código para abrir um arquivo de texto com vba

 

Sub abrirArquivo()

MsgBox "Selecione o arquivo txt", vbOKOnly, "Seleção de Arquivo"

'ABRIR ARQUIVO
arquivo = " "

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Dim arquivo_temp As Variant

With fd
   .AllowMultiSelect = True
   If .Show = -1 Then
      For Each arquivo_temp In .SelectedItems
         arquivo = arquivo_temp
      Next arquivo_temp
   End If
End With

Set fd = Nothing

'Abaixo é um código para ajustar as colunas do .txt para o excel que varia conforme cada tipo de arquivo
'Para você saber os seus parametros ideais, uma dica é criar uma macro e abrir um .txt e definir as colunas
'E depois ver o código que foi gerado.

Workbooks.OpenText arquivo _
, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(0, 1), Array(38, 1), _
Array(91, 1)), TrailingMinusNumbers:=True

'Ajuste automatico de coluna do excel
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").EntireColumn.AutoFit

End Sub

 

Vídeo explicativo do codigo