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