IMPORTAR ARQUIVO TXT PARA EXCEL - VBA

FLAVIORC2 28/02/2014 01:30:45
#435393

Pessoal,

Preciso criar uma macro para importar arquivos TXT para Excel. Comecei pelo código gerado pelo próprio excel qdo mandamos gravar uma macro e gerou o código abaixo:

ChDir [Ô]E:\Tim\Macro TXT-Excel[Ô]
Workbooks.OpenText Filename:=[Ô]E:\Tim\Macro TXT-Excel\Extract BGNA05.txt[Ô], _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True

A minha intenção é jogar esse código para um CommandButton e qdo eu clicar ele me mostra um explorer onde eu possa selecionar meu arquivo TXT.

Para isso, eu usei a linha de código a seguir:
Arquivo = Application.GetOpenFilename([Ô]Arquivos Texto(*.txt), *.txt[Ô])

O problema é que eu não estou conseguindo juntar os dois, alguém pode me ajudar?

Obrigado!