IMPORTACAO DE TXT PARA EXCEL

HAYLANDER 02/04/2013 11:51:34
#421406

Amigos, estou aprendendo agora VB e estou precisando de uma ajuda!!!
Tenho um arquivo em TXT que preciso importar para Excel através de um [Ô]CommandButton[Ô], no entanto preciso apenas de algumas informações.
Até o momento consegui fazer esse código abaixo, no entanto ainda preciso que ele retorne apenas os dados das colunas e não o cabeçalho do arquivo Txt...preciso tbm nomear as colunas que vão receber esses dados.

Tem alguém que possa me auxiliar???

Segue o código:

Private Sub CommandButton1_Click()
Dim Campos As Variant
Dim Arquivo As String
Dim i As Long
Dim rg As Range
Set rg = Range([Ô]A2[Ô])

[ô]Contador de linhas
i = 2
[ô]abre um [Ô]mini[Ô] explorer de arquivos
Arquivo = Application.GetOpenFilename([Ô]Arquivos Texto(*.txt), *.txt[Ô])
[ô]abre o arquivo texto

Open Arquivo For Input As #1

Dim S As String
Do Until EOF(1)
Line Input #1, S

[ô] If Left(s, 9) Like [Ô]4[Ô] Then
rg.Offset(0, 0) = Mid(S, 9, 9)
rg.Offset(0, 1) = Mid(S, 21, 32)
rg.Offset(0, 2) = Mid(S, 63, 13)

Set rg = rg.Offset(1, 0)
[ô]End If
Loop

Close #1

Columns([Ô]c:c[Ô]).Select
Selection.TextToColumns Destination:=Range([Ô]c1[Ô]), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.Style = [Ô]Currency[Ô]

MsgBox [Ô]Extração realizada com sucesso[Ô]
End Sub