MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]importar excel gerado com salto em linha

    Compartilhe

    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Qui 05 Set 2013, 20:27

    prezados,

    tenho a seguinte planilha que possui um salto em algumas linhas, o dado que salta pertence ao registro acima
    no excel tem como fazer no entanto gostaria de fazer no access

    exemplo
    o dado na celula b5 devera ficar na celula ab4
    o dado na celula b16 devera ficar na celula a15
    Anexos
    base.xls
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.1 Mb) Baixado 11 vez(es)

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  criquio em Qui 05 Set 2013, 20:49

    Não entendi muito bem não. Você quer importar essa planilha para uma tabela do Access, certo? E todas as linhas ficarão uma linha acima? Não seria o caso de apenas começar a importar à partir da segunda linha?

    No fórum tem alguns exemplos de importação do Excel para o Access aonde se passa o Range. Você pode tentar utilizar essa tática, passando linha - 1. Algo como:

    Código:
    For R = 2 To Fim
        CurrentDb.Execute "INSERT INTO NomeTabela(Campo1, Campo2, Campo3) VALUES(xl.Range("A" & R - 1), xl.Range("B" & R - 1), xl.Range("C" & R - 1)"
    Next


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Qui 05 Set 2013, 20:59

    a linha está assim
    1 W03 12403 20001 EMPREITA TOTAL 110700325 REFORMA E AMPLIAÇÃO NULL 72374 Ratificado pelo Assembleia P 2012-12-30 00:00:00.000 P 2018-12-30 00:00:00.000 2014-03-13 00:00:00.000 2018-12-30 00:00:00.000 Solicitado 10 2016 1 500 9883,68 62943 ENG E INFRA I N Reforma e ampliação do Complexo
    6951
    gostaria que ficasse assim

    1 W03 12403 20001 EMPREITA TOTAL 110700325 REFORMA E AMPLIAÇÃO NULL 72374 Ratificado pelo Assembleia P 2012-12-30 00:00:00.000 P 2018-12-30 00:00:00.000 2014-03-13 00:00:00.000 2018-12-30 00:00:00.000 Solicitado 10 2016 1 500 9883,68 62943 ENG E INFRA I N Reforma e ampliação do Complexo        6951

    a ideia é o seguinte de alguma forma que eu não sei o sistema exporta alguns registros corretamente, no entanto em alguns registros o ultimo campo sai em uma linha abaixo

    valeu pela força

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  criquio em Qui 05 Set 2013, 23:24

    Você deve estar importando via macro ou algo parecido em VBA, certo? Dê uma pesquisada por Excel no fórum que você encontra vários exemplos com outras formas de importação, através da criação de um objeto Excel, no qual você controla qual célula irá para qual campo da tabela.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Sex 06 Set 2013, 12:20

    a importação será via vba, andei pesquisando e de fato não sei manipular as colunas ou linhas na importação, teria como vc explicar o basico?
    obrigado!

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  criquio em Sex 06 Set 2013, 16:19

    Tente algo assim:

    Código:
    Dim oApp As Object, nCell As Double, R As Integer

    Set oApp = CreateObject("Excel.Application")

    oApp.workbooks.Open "Caminho do xls\Nome do xls.xls"
    oApp.Visible = False
    oApp.Worksheets("Plan1").Activate
    nCell = oApp.Worksheets("Plan1").Range("A" & Rows.Count).End(xlUp).Row

    For R = 1 To nCell
            oApp.ActiveSheet.Range("A" & R).Select
            CurrentDb.Execut "INSERT INTO NomeDaTabela(Campo1, Campo2, Campo3) VALUES('" & oApp.ActiveSheet.Range("A" & R) & "', '" & oApp.ActiveSheet.Range("B" & R) & "', '" & oApp.ActiveSheet.Range("C" & R) & "')"
    Next

    oApp.ActiveSheet.Range("A9").Select
    oApp.ActiveCell.Value = StrConv(rsCli!Endereço, 1) '& " " & rsCli!Número

    oApp.Application.Quit
    Set oApp = Nothing

    rs.Close
    Set rs = Nothing


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Sex 06 Set 2013, 18:12

    apresentou Erro em tempo de execução '424' o objeto é obrigatório

    após depurar o codigo parou na seguinte linha

    nCell = oApp.Worksheets("Plan1").Range("A" & Rows.Count).End(xlUp).Row

    segue bd, valeu!

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  criquio em Sex 06 Set 2013, 18:18

    Sempre que for fazer interação com outro aplicativo, deves marcar a referência à biblioteca desse outro aplicativo.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Sex 06 Set 2013, 18:41

    desculpe a ignorancia quais as bibliotecas tem que estar ativas? uso excel 2003

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  criquio em Sex 06 Set 2013, 18:45

    A biblioteca do Excel, Microsoft Excel x.x aonde x.x é a versão do seu Office.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Dom 08 Set 2013, 01:07

    teria como vc comentar a rotina? quanto a biblioteca qual seria o menu para ter acesso

    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Qua 11 Set 2013, 12:05

    ativei a biblioteca segue passos para registro

    visual Basic
    menu ferramentas
    opção Referências e ativei Microsoft Access 11.0 Object Library

    no entanto o codigo para na linha nCell = oApp.Worksheets("Plan1").Range("A" & Rows.Count).End(xlUp).Row


    alguém se habilita a explicar a rotina?


    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  criquio em Qua 11 Set 2013, 14:34

    Essa rotina captura a última linha com dados. Você disse que ativou a biblioteca do Access. É isso mesmo ou errou o nome do Excel, que seria a biblioteca correta nesse caso?


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Qua 11 Set 2013, 17:56

    rodei novamente e parou na seguinte linha

    oApp.ActiveCell.Value = StrConv(rsCli!Endereço, 1) '& " " & rsCli!Número

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  criquio em Qui 12 Set 2013, 13:00

    Você disse que ativou a biblioteca do Access. É isso mesmo ou errou o nome do Excel, que seria a biblioteca correta nesse caso?


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Seg 16 Set 2013, 17:49

    desculpe a demora em responder! fiz todo o processo e parou na seguinte linha oApp.ActiveCell.Value = StrConv(rsCli!Endereço, 1) '& " " & rsCli!Número é possivel vc comentar a rotina para que eu possas entender melhor?
    grato!!

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  criquio em Ter 17 Set 2013, 13:57

    Isso está meio estranho. Às vezes parece que transferir os dados do Excel para o Access, outras vezes parece que é o contrário. Se puder anexar uma cópia dos dois arquivos talvez ajude.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Ter 17 Set 2013, 17:59

    segue obrigado!

    a questão é importar do excel um arquivo que possui um salto na linha
    Anexos
    base.xls
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 3 vez(es)

    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Ter 17 Set 2013, 17:59

    foi mal segue o access

    alguem poderia explicar a rotina?
    Anexos
    Novo(a) Aplicativo Microsoft Office Access.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 9 vez(es)

    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Sab 21 Set 2013, 15:06

    alguém poderia explicar a rotina postada?

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  criquio em Sab 21 Set 2013, 17:11

    Você precisa passar o nome correto da planilha no lugar de Plan1, que no seu caso é Base0. E algumas linhas que você colocou não são necessárias. Veja com ficaria:

    Código:
    Dim oApp As Object, nCell As Double, R As Integer

    Set oApp = CreateObject("Excel.Application")
    oApp.workbooks.Open CurrentProject.Path & "\base.xls"

    oApp.Visible = False
    oApp.Worksheets("Base0").Activate
    nCell = oApp.Worksheets("Base0").Range("A" & Rows.Count).End(xlUp).Row

        For R = 1 To nCell
            CurrentDb.Execute "INSERT INTO Plan1(Campo1, Campo2, Campo3) VALUES('" & oApp.ActiveSheet.Range("A" & R) & "', '" & oApp.ActiveSheet.Range("B" & R) & "', '" & oApp.ActiveSheet.Range("C" & R) & "')"
        Next

        Msgbox "Dados importados com sucesso"

    oApp.Application.Quit
    Set oApp = Nothing
    Observei que algumas linhas tem células em branco. Se a ideia é evitar que essas linhas sejam importadas, poderá criar uma condição If para pular quando for célula vazia. Vamos supor que você queira importar só quando a célula da coluna A contiver algo:

    Código:
        For R = 1 To nCell
            If oApp.ActiveSheet.Range("A" & R) <> "" Then
                CurrentDb.Execute "INSERT INTO Plan1(Campo1, Campo2, Campo3) VALUES('" & oApp.ActiveSheet.Range("A" & R) & "', '" & oApp.ActiveSheet.Range("B" & R) & "', '" & oApp.ActiveSheet.Range("C" & R) & "')"
            End If
        Next


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    giba_
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 120
    Registrado : 01/02/2011

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  giba_ em Sab 21 Set 2013, 21:12

    obrigado pelo retorno! estou estudando a rotina e em breve retorno

    valeu!

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]importar excel gerado com salto em linha

    Mensagem  criquio em Ter 28 Jan 2014, 19:20

    Estou passando o tópico a RESOLVIDO. Caso necessário, reabra-o.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: Qua 07 Dez 2016, 08:36