[Resolvido]Eliminando cabeçalho

Boa Tarde pessoal tudo bom?!

Eu tenho uma dúvida, eu estou subindo arquivos txt's no meu Access porém este arquivo tem um cabeçalho que eu preciso eliminar, a 1ª linha... Como eu faço pra ele ignorar a primeira linha!?

Olá! Dê uma pesquisada por "importar txt" no forum. Tem exemplo de importação mais eficaz do que o padrão de importar pelo Access. Ou, coloque aqui um exemplo de texto de importação para vermos se dá para excluir a linha no campo da tabela após a importação.

Oi Criquio... bom, segue meu código...

Dim wsp As Workspace, vLinha As String, vArquivo As String, vNomeArquivo As String, pos As Integer
Dim db As Object, rs As Object

vNomeArquivo = varq
pos = InStr(vNomeArquivo, "\")
Do While pos <> 0
vNomeArquivo = Mid(vNomeArquivo, pos + 1)
pos = InStr(vNomeArquivo, "\")
Loop

DoCmd.SetWarnings False
Set wsp = DBEngine.Workspaces(0)
wsp.BeginTrans

On Error GoTo errado:

Open varq For Input As #1 ' Abre o arquivo a ser importado
DoCmd.SetWarnings False
'DoCmd.RepaintObject acForm, "Mensagem"

If EOF(1) Then GoTo errado 'Indica que o arquivo esta vazio
Do While Not EOF(1) ' Check for end of file.
Line Input #1, vLinha ' Lê uma linha do arquivo texto
If Mid(vLinha, 1, 3) = "***" Then GoTo errado
If Left(vLinha, 1) = "ID" Then GoTo continua

If Mid(vLinha, 151, 15) <> "" Then
DoCmd.RunSQL "INSERT INTO Tabela( ID, A, B, Nome_Arquivo ) VALUES('" & Mid(vLinha, 1, 6) & "','" & Mid(vLinha, 9, 4) & "','" & Mid(vLinha, 16, 5) & "','" & Mid(vLinha, 24, 26) & "');"
End If
continua:
Loop

DoCmd.SetWarnings False

FIM:

Close #1 ' Close file.
wsp.CommitTrans
DoCmd.SetWarnings True

Exit Sub

errado:

wsp.Rollback
Close #1 ' Close file.
DoCmd.SetWarnings True
MsgBox "Os Dados não foram importados com sucesso, tente novamente" & Chr(13) & Chr(13) & "O Arquivo pode estar vazio", vbInformation, "Atenção"
End Sub



Se puder implementar alguma coisa neste código....

Poste um exemplo de texto importado para vermos a linha que quer excluir.

Será sempre a primeira linha, independente do que estiver escrito....

Alguém pode me ajudar?!

Ola Cibele;

O que nós temos por habito de fazer, para ignorar o Header, é colocar a instrução Line Input antes do Do

Line Input #1, vLinha ' aqui vai começar na primeira linha que será ignorada no Loop

Ou seja, no seu código fica assim;



Dim wsp As Workspace, vLinha As String, vArquivo As String, vNomeArquivo As String, pos As Integer
Dim db As Object, rs As Object

vNomeArquivo = varq
pos = InStr(vNomeArquivo, "\")
Do While pos <> 0
vNomeArquivo = Mid(vNomeArquivo, pos + 1)
pos = InStr(vNomeArquivo, "\")
Loop

DoCmd.SetWarnings False
Set wsp = DBEngine.Workspaces(0)
wsp.BeginTrans

On Error GoTo errado:

Open varq For Input As #1 ' Abre o arquivo a ser importado
DoCmd.SetWarnings False
'DoCmd.RepaintObject acForm, "Mensagem"

Line Input #1, vLinha ' aqui vai começar na primeira linha que será ignorada no Loop

If EOF(1) Then GoTo errado 'Indica que o arquivo esta vazio
Do While Not EOF(1) ' Check for end of file.
Line Input #1, vLinha ' Lê a partir da 2ª linha
If Mid(vLinha, 1, 3) = "***" Then GoTo errado
If Left(vLinha, 1) = "ID" Then GoTo continua

If Mid(vLinha, 151, 15) <> "" Then
DoCmd.RunSQL "INSERT INTO Tabela( ID, A, B, Nome_Arquivo ) VALUES('" & Mid(vLinha, 1, 6) & "','" & Mid(vLinha, 9, 4) & "','" & Mid(vLinha, 16, 5) & "','" & Mid(vLinha, 24, 26) & "');"
End If
continua:
Loop

DoCmd.SetWarnings False

FIM:

Close #1 ' Close file.
wsp.CommitTrans
DoCmd.SetWarnings True

Exit Sub

errado:

wsp.Rollback
Close #1 ' Close file.
DoCmd.SetWarnings True
MsgBox "Os Dados não foram importados com sucesso, tente novamente" & Chr(13) & Chr(13) & "O Arquivo pode estar vazio", vbInformation, "Atenção"

E ae, funfou ?

Funfou sim JPaulo... mto obrigada mais uma vez!

Obrigada pelo retorno o forum agradece.

Desculpem-me em reabrir o tópico, mas como eu faço para eliminar um a cabeçalho com mais de 3 linhas? E como faço para eliminar os "------------" no final do arquivo?

Olá Cibele

Temos por padrão solucionar uma dúvida por tópico.
Fazemos isso para que outros possam encontrar mais facilmente
a resposta pelo Busca do fórum.
Como tua dúvida deste está resolvida, vou definir como resolvido.
Para a outra dúvida, por favor, abra um novo tópico.
Espero que entenda.

Grande abraço