MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    [Resolvido]Ignorar primeira linha ao importar TXT

    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 7/3/2013, 20:00

    Amigos,

    Ja revirei todos os códigos que achei aqui mas nao consegui adaptar nenhum, alguem consegue me dar uma luz?
    Preciso importar um artuivo txt ignorando a primeira linha.

    O arquivo ta em anexo, pois não consegui explicar melhor o que preciso.
    Preciso criar uma rotinha que busque em uma pasta determinada qualquer arquivo txt (pois todos os dias o banco envia um arquivo com nome diferente), e faca essa importacao ignorando a primeira linha...
    Depois da importação pode dar um "kill"...

    Obrigado
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1310
    Registrado : 21/01/2012

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  Cláudio Más 8/3/2013, 13:34

    Não, o arquivo não está em anexo...
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  chsestrem 8/3/2013, 14:21

    Bom dia,

    Com permissão do amigo Cláudio,

    Veja este Link Aqui

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 8/3/2013, 14:55



    chsestrem, muito obrigado pela dica, vou dar uma fuçada nos códigos para tentar adaptar,
    contudo estou enviando o txt em anexo para o caso de alguem ter uma luz.

    Desculpe, é que sou muito amador ainda com esse assunto!!!

    Valeu
    Anexos
    [Resolvido]Ignorar primeira linha ao importar TXT AttachmentC130206A.TXT
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 42 vez(es)
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  chsestrem 8/3/2013, 16:14

    Amigo, seu txt pelo que eu vi é

    de tamanho fixo.

    Após retirar a primeira linha você pode importar os campos

    pelo assistente ou fazer a rotina de importação usando a

    função Mid().

    Abaixo tem a função pra retirar a primeira linha

    Cole esta função em um módulo.

    Vai retirar a primeira linha do seu arquivo

    e salvar com o nome saída.

    Coloque nos argumentos o caminho de Origem e de destino

    Código:

    Option Compare Database
    Option Explicit

    Public Function LimpaTexto(CaminhoOrigem As String, CaminhoDestino As String)
    Dim Linha As String

    'Caminho Origem para Teste
    '  "C:\Documents and Settings\Usuario\Desktop\C130206A.TXT"
    '
    'Caminho Destino para Teste
    '  "C:\Documents and Settings\Usuario\Desktop\SAIDA.TXT"

    Open CaminhoOrigem For Input As #1

    Do While Not EOF(1)

        Line Input #1, Linha
            If Len(Linha) > 0 Then ' Se existir linhas
            If Left(Linha, 1) <> "" Then 'Linhas em branco
            If Left(Linha, 9) <> "01REMESSA" Then 'Critério da primeira linha
                Open CaminhoDestino For Append As #2
                Print #2, Linha
                Close #2
            End If
            End If
            End If
    Loop
    Close #1

    End Function

    'Para usar a função

    'Call LimpaTexto("C:\Documents and Settings\Usuario\Desktop\C130206A.TXT", _
    "C:\Documents and Settings\Usuario\Desktop\SAIDA.TXT")


    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  JPaulo 8/3/2013, 16:39

    Vejam este tópico e a mensagem Nº 5, onde eu digo:

    "Utilizamos o Line Input #1, LinhaDoTexto para saltar a primeira linha"

    http://maximoaccess.forumeiros.com/t9538-retirar-aspas-na-importacao-txt-e-ler-linha-unica



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Instruções SQL como utilizar...
    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 11/3/2013, 21:24

    Amigos,

    Muito obrigado pela dica e desculpe a demora no retorno, fiquei fora fds e não consegui fazer os devidos testes.

    Agora, vamos lá!

    Perfeito, muito bom mesmo!

    Funcionou, só gostaria que me ajudassem com algo.

    O Nome do arquivo que eu importo muda todos os dias, tem como eu inserir no código pra ele tratar "Qualquer" arquivo txt que estiver dentro da pasta, e depois de tratar excluir o arquivo original?

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  JPaulo 11/3/2013, 22:23

    Utilize o Dir e o Kill

    Dir("C:\suapasta\*.txt")


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Instruções SQL como utilizar...
    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 11/3/2013, 23:35

    Desculpem o meu amadorismo mas não estou chegando a um resultado esperado, msa estou "quase la", alguem pode me apontar onde está o erro?


    Penso em, como o JPaulo citou, usar "Dir: C:\*.txt e depois o Kill:, mas não rolou.

    Vou explicar o que eu fiz com o código chsestrem, e está dando um erro.

    Criei um Módulo com esse código.


    Public Function LimpaTexto(CaminhoOrigem As String, CaminhoDestino As String)
    Dim Linha As String

    Open CaminhoOrigem For Input As #1

    Do While Not EOF(1)

    Line Input #1, Linha
    If Len(Linha) > 0 Then ' Se existir linhas
    If Left(Linha, 1) <> "" Then 'Linhas em branco
    If Left(Linha, 9) <> "01REMESSA" Then 'Critério da primeira linha
    Open CaminhoDestino For Append As #2
    Print #2, Linha
    Close #2
    End If
    End If
    End If
    Loop
    Close #1

    End Function



    Depois disso crie um botao com evento "ao clicar" e colei isso.

    Private Sub Comando0_Click()

    'Call LimpaTexto("C:\Users\Thiago\Drive Google\Google Drive\Sistema\Arquivos Banco\Remessa\C130206A.TXT", _
    '"S:\My SugarSync\SAIDA.TXT")

    end Sub


    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 11/3/2013, 23:37

    JPaulo,

    Eu usei (Ja havia usado) aquele código que vc citou em outro artigo do forum, mas esta dando o erro que printei no arquivo em anexo.

    Acho que é isso aqui...

    SQLError:
    MsgBox "Erro na execusão do SQL '" & _
    InstrucaoSQL & "'"
    Close fnum
    DB.Close
    Anexos
    [Resolvido]Ignorar primeira linha ao importar TXT Attachmenterro sql.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (150 Kb) Baixado 9 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  JPaulo 12/3/2013, 09:52

    Mantenha o código do Amigo "chsestrem", no modulo e não altere nada, deixe como está;

    No evento ao pressionar do seu botão, cole este código e altere apenas a origem e o destino;


    Private Sub SeuBotao_Click()
    'By JPaulo ® Maximo Access
    Dim strOrigem As String
    Dim strDestino As String
    Dim strFicheiros As String
    Dim strCaminho As String
    Dim strCaminhoCopia As String

    strOrigem = "C:\SuaPastaOrigem\" 'aqui define a pasta onde se encontram os ficheiros .txt de origem
    strDestino = "C:\SuaPastaDestino\" 'aqui define a pasta onde se encontram os ficheiros .txt de destino
    strFicheiros = dir$(strOrigem & "*.txt") 'Extrai o nome dos ficherios na pasta
    strCaminho = strOrigem & strFicheiros 'Concaneta o caminho de origem com o nome do ficheiro
    strCaminhoCopia = strDestino & strFicheiros 'Concaneta o caminho de destino com o nome do ficheiro

    'Chama a função
    Call LimpaTexto(strCaminho, strCaminhoCopia)
    'Deleta o .txt de origem
    Call Kill(strCaminho)
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Instruções SQL como utilizar...
    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 12/3/2013, 14:06

    Perfeito Mestres JPaulo e Chsestrem!!!

    Funcionou perfeitamente o tratamento do arquivo!!!

    Muito Obrigado Mesmo!

    Agora, sem querer abusar, mas já abusando, quero criar uma rotina para importar esse arquivo tratado para uma tabela.

    Eu posso importar e salvar as etapas de importação, mas, no cliente não será assim.

    Alguém me sugere um código que faça essa importação? Vou Colocar num evento "Ao carregar", pois quero que esse processo aconteça sem intervenção do usuário.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  JPaulo 12/3/2013, 14:08

    Do Professor OsmarJr;

    Anexos
    [Resolvido]Ignorar primeira linha ao importar TXT AttachmentImportando Arquivos Texto Via VBA.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (150 Kb) Baixado 101 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Instruções SQL como utilizar...
    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 12/3/2013, 14:14

    Uau!

    Excelente arquivo!

    Vou estudar e ja posto a resposta aqui...

    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 12/3/2013, 16:25

    Excelente!!!

    Perfeito!

    Baseado no arquivo que você me mandou do Professor Osmar Junior, fiz algumas adaptações aqui e deu certinho!

    Só esta havendo um erro no modúlo.
    Quando não tem arquivo na pasta ele da um erro.

    Como faço para caso a pasta esteja vazia não fazer nenhum procedimento?

    Tentei o On error, mas bati cabeça aqui!

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  JPaulo 12/3/2013, 16:57

    Acrescentado um IF para validar a existencia do ficheiro;

    Private Sub SeuBotao_Click()
    'By JPaulo ® Maximo Access
    Dim strOrigem As String
    Dim strDestino As String
    Dim strFicheiros As String
    Dim strCaminho As String
    Dim strCaminhoCopia As String
    strOrigem = "C:\SuaPastaOrigem\" 'aqui define a pasta onde se encontram os ficheiros .txt de origem
    strDestino = "C:\SuaPastaDestino\" 'aqui define a pasta onde se encontram os ficheiros .txt de destino
    strFicheiros = dir$(strOrigem & "*.txt") 'Extrai o nome dos ficherios na pasta
    strCaminho = strOrigem & strFicheiros 'Concaneta o caminho de origem com o nome do ficheiro
    strCaminhoCopia = strDestino & strFicheiros 'Concaneta o caminho de destino com o nome do ficheiro

    If IsNull(strFicheiros) Or strFicheiros = "" Then
    'se não existir ficheiro, o código morre aqui
    Exit Sub
    'se existir passa para a função
    Else
    'Chama a função
    Call LimpaTexto(strCaminho, strCaminhoCopia)
    'Deleta o .txt de origem
    Call Kill(strCaminho)
    End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Instruções SQL como utilizar...
    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 13/3/2013, 00:24

    Maravilha!!!

    Grandes mestres!!!

    Tudo perfeito!!!

    Coloquei esses códigos no "ao carregar" do meu formulário "Menu".
    Sendo assim, toda vez que o usuário abrir o sistema ele faz a verificação se existe aquivo no diretório. Sem intervenção do usuário!!!

    Perfeito!!

    Muito Obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  JPaulo 13/3/2013, 08:53

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Instruções SQL como utilizar...
    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 13/3/2013, 12:47

    Voltei... rsrs

    Mestres!

    Seguinte, entendi a lógica do processo e estou "me divertindo" aqui, mas surgiu outra necessidade.
    Esse arquivo que tratamos aqui, é um arquivo remessa gerado pelo banco e está ok, contudo arqruivo retorno vem num formato *.ret.

    Fiz todo o processo de criando um novo módulo, deu certo, contudo na hora de importar o Acess não traz esse arquivo, preciso mudar a extrensão desse arquivo para txt.

    Fiz isso e não deu certo, ele continua salvando formato ret, alguem consegue me dar uma luz?

    strOrigem = "C:\Itau\Retorno\" 'aqui define a pasta onde se encontram os ficheiros .txt de origem
    strDestino = "C:\Itau\Retorno\Tratado\" 'aqui define a pasta onde se encontram os ficheiros .txt de destino
    strFicheiros = Dir$(strOrigem & "*.ret") 'Extrai o nome dos ficheiros na pasta
    StrImport = Dir$(strDestino & "*.txt")
    strCaminho = strOrigem & strFicheiros 'Concaneta o caminho de origem com o nome do ficheiro
    strCaminhoCopia = strDestino & strFicheiros 'Concaneta o caminho de destino com o nome do ficheiro
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  JPaulo 13/3/2013, 17:14

    Faça o teste com o FileCopy para ver se funfa, se funfar adapta-se ao seu codigo;


    FileCopy "C:\SeuFicheiro.ret","C:\SeuFicheiro.txt"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Instruções SQL como utilizar...
    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 13/3/2013, 17:17

    Jpaulo

    Eu ja fiz um teste com o FIlecopy assim, mas não funfou, countinou com extensão .ret.
    Sabe me dizer se tem algum erro nesse comando que eu fiz?

    strOrigem = "C:\Itau\Retorno\" 'aqui define a pasta onde se encontram os ficheiros .txt de origem
    strDestino = "C:\Itau\Retorno\Tratado\" 'aqui define a pasta onde se encontram os ficheiros .txt de destino
    strFicheiros = Dir$(strOrigem & "*.ret") 'Extrai o nome dos ficheiros na pasta
    StrImport = Dir$(strDestino & "*.txt")
    strCaminho = strOrigem & strFicheiros 'Concaneta o caminho de origem com o nome do ficheiro
    strCaminhoCopia = strDestino & strFicheiros 'Concaneta o caminho de destino com o nome do ficheiro
    StrBackupCaminho = "C:\Itau\Retorno\Backup\"
    StrBackup = StrBackupCaminho & strFicheiros


    FileCopy strCaminho, StrBackup
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  JPaulo 13/3/2013, 17:36

    Eu gostaria de despistar erros, então gostaria que o amigo corre-se somente esta instrução;

    FileCopy "C:\SeuFicheiro.ret","C:\SeuFicheiro.txt"



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  JPaulo 13/3/2013, 17:42

    Teste assim;

    FileCopy strCaminho, Replace(StrBackup, ".ret", ".txt")



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Instruções SQL como utilizar...
    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 13/3/2013, 17:51

    É JPaulo, você tem razão!!

    Testei assim e deu certo!!!

    Mas, agora eu fiquei com uma pulga atras da orelha.

    Tenho que tratar esses arquivos e importar para o Access, e cada dia um arquivo novo, com nome diferente.

    Como faço pra renomear esses arquivos em massa e independente do nome?

    Acho que to abusando, já, né?
    tiagofeitosa
    tiagofeitosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  tiagofeitosa 13/3/2013, 18:13

    Perfeito!!!

    Usei o
    FileCopy strCaminho, Replace(StrBackup, ".ret", ".txt")
    E Deu certinho!!!

    Muito Obrigado mesmo!!

    Acho que não volto mais, pelo menos nesse tópico não... rsrsr

    Obrigado, obrigado, muito obrigado!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Ignorar primeira linha ao importar TXT Empty Re: [Resolvido]Ignorar primeira linha ao importar TXT

    Mensagem  JPaulo 13/3/2013, 22:17

    Obrigado pelo retorno, o forum agradece.

    Volte sempre.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ignorar primeira linha ao importar TXT Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 27/1/2023, 05:20