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
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
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 |