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


2 participantes

    [Resolvido]Exportando mais de 65000 linhas de excel para access

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Exportando mais de 65000 linhas de excel para access Empty [Resolvido]Exportando mais de 65000 linhas de excel para access

    Mensagem  Robert_2012 30/7/2013, 15:35

    Tenho o código abaixo onde insiro registros da planilha excel para a tabela access

    Ele rodava normalmente no excel 2003 com 65000 linhas

    Agora tenho quase 1000000 de registros e tentei utilizar o excel 2007

    Alguém saberia me dizer onde devo alterar para que o código rode com mais de 65000 linhas.


    segue código

    Sub Button14_Click()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim r As Long
    Dim LastRow As Variant

    strCon = "Provider=Microsoft.ACE.OLEDB.12.0; " & _
    "Data Source=C:\HLEE\Planeja.mdb"

    Set cn = CreateObject("ADODB.Connection")

    cn.Open strCon

    LastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row

    scn = "[Excel 12.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "]"
    strSQL = "INSERT INTO Tabela10 " _
    & "SELECT * FROM " & scn & ".[Sheet1$A1:F" & LastRow & "]"

    cn.Execute strSQL
    cn.Close
    Set rs = Nothing
    Set cn = Nothing

    End Sub
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Exportando mais de 65000 linhas de excel para access Empty Re: [Resolvido]Exportando mais de 65000 linhas de excel para access

    Mensagem  Dilson 2/8/2013, 17:21

    http://answers.microsoft.com/pt-br/office/forum/office_2010-access/não-consigo-exportar-consulta-com-resultado/04f7d946-30a5-449e-b152-14eb6462796a
    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Exportando mais de 65000 linhas de excel para access Empty Exportando mais de 65000 linhas de excel para access

    Mensagem  Robert_2012 25/7/2014, 18:36

    Obrigado pela dica.

    Conteúdo patrocinado


    [Resolvido]Exportando mais de 65000 linhas de excel para access Empty Re: [Resolvido]Exportando mais de 65000 linhas de excel para access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:10