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

    Separar uma tabela com 6.300.000 registros em planilhas do Excel com 500.000 registro cada.

    Compartilhe

    Erik_Rezende
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 2
    Registrado : 03/08/2015

    Separar uma tabela com 6.300.000 registros em planilhas do Excel com 500.000 registro cada.

    Mensagem  Erik_Rezende em Seg 03 Ago 2015, 19:43

    Boa tarde Amigos!

    Tenho diversas tabelas imensas, e pretendo dividi-las automaticamente em diversas planilhas em Excel com cerca de 500.000 registro cada uma tabela.
    Para iniciar, tenho uma tabela de 6.300.000 registros e pretendo dividi-la em alguns arquivos excel com os 500.000 registros cada.

    iniciei um código, consegui abrir o excel no vba, mas não sei o que utilizar para montar os arquivos de 500.000 registros e ir retirando da tabela de 6.300.00.

    -------------------------------------------------------------------------------------------------
    Private Sub cmdGera_Click()
    On Error Resume Next

    Dim iCont As Integer
    Dim MeuXL As Object ' Variável para conter a referência ao Microsoft Excel.
    Dim ExcelNãoEstavaSendoExecutado As Boolean ' Sinalizador para liberação final.
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim x As Long
       
          DoCmd.Hourglass False
          DoCmd.SetWarnings False
         
           Set db = CurrentDb
                 
           Set MeuXL = GetObject(, "Excel.Application")
           If Err.Number <> 0 Then ExcelNãoEstavaSendoExecutado = True
           Err.Clear
               If Mid(CurrentDb.Name, 1, 1) = "C" Then
               Set MeuXL = GetObject("C:\Users\Erik\Desktop\Dados\ExcelMontado.xlsx")
               End If
           
           MeuXL.Application.Visible = True
           MeuXL.Parent.Windows(1).Visible = True
           
           Set xlSheet = MeuXL.Worksheets("PlanilhaTeste")

    ------------------------------------------------------------------------------------------------------------------------------------------

    Desde já agradeço.
    Muito Obrigado!

    Erik_Rezende

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 549
    Registrado : 02/10/2011

    Re: Separar uma tabela com 6.300.000 registros em planilhas do Excel com 500.000 registro cada.

    Mensagem  rubenscouto em Ter 18 Ago 2015, 00:33

    estes 6.300.000 registros tem um campo numero especifico para você identificar cada um individualmente?
    se tiver, pode fazer com que o código pegue do nº 1 ao 500.000, depois do 500.001 ao 1.000.000, etc. entendeu?

      Data/hora atual: Seg 05 Dez 2016, 04:25