[Resolvido]importar excel gerado com salto em linha

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

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

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

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.

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!

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

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!

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

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

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

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

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?

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?

rodei novamente e parou na seguinte linha

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

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

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!!

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.

segue obrigado!

a questão é importar do excel um arquivo que possui um salto na linha

foi mal segue o access

alguem poderia explicar a rotina?

alguém poderia explicar a rotina postada?

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

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

valeu!

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