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]Exportar para excel em varias abas

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    [Resolvido]Exportar para excel em varias abas

    Mensagem  ilvecchio em Seg 24 Nov 2014, 16:01

    Buenas!

    Preciso exportar uma tabela para uma planilha excel e lá separar em abas.

    1) uso o código do JPaulo para exportar a tabela para uma planilha com cabeçalho e logo, na aba "Todas", ordenada pela coluna UF.

    2) preciso, então, já na planilha, de um código para criar, a partir da aba "Todas", uma aba para cada UF que aparece em "Todas" e colar nelas as linhas correspondentes à UF.

    3) cada UF pode ter várias linhas.

    Imagino um Loop que compara a celula atual da UF com a da linha anterior. Sendo diferente, cria a aba como o nome da UF e copia a linha para linha 4 dessa aba. Senão, copia a linha para a linha seguinte (5, 6, 7 ...) dessa última aba criada.

    O JP tem um exemplo "exportar para excel e criar uma folha por estado", mas não consegui baixar.



    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Exportar para excel em varias abas

    Mensagem  criquio em Seg 24 Nov 2014, 16:15

    Poste o link do exemplo para vermos o que podemos fazer. A lógica deve ser a mesma.


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


    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    Re: [Resolvido]Exportar para excel em varias abas

    Mensagem  ilvecchio em Seg 24 Nov 2014, 16:37

    Na página deste post é o item 5 da lista logo acima. O caminho é este:

    [Você precisa estar registrado e conectado para ver este link.]



    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Exportar para excel em varias abas

    Mensagem  criquio em Seg 24 Nov 2014, 16:43

    Aqui o link de download está funcionando. Tente novamente. Talvez utilizando outro browser, se possível.


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


    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    Re: [Resolvido]Exportar para excel em varias abas

    Mensagem  ilvecchio em Ter 25 Nov 2014, 07:13

    A empresa não permite acesso ao endereço.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Exportar para excel em varias abas

    Mensagem  criquio em Ter 25 Nov 2014, 07:18

    Anexei o exemplo ↓aqui↓. Veja se consegue baixá-lo:
    Anexos
    ExportaParaExcel.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 34 vez(es)


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


    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    Re: [Resolvido]Exportar para excel em varias abas

    Mensagem  ilvecchio em Ter 25 Nov 2014, 10:05

    Buenas, Criquio!

    Baixei o exemplo. Confesso que achei complexo prá mim. Então, prefiro usar o codigo para exportar a planilha "Todas" da forma usual (codigo do JPaulo).
    Aí, com VBA, já no excel, separo "Todas" por um critério qualquer. Neste exemplo estou separando por data, aproveitando um código que peguei na internet.

    Assim, já que se dispôs a me ajudar, e agradeço, estou com um problema:
    o exemplo copia a linha do cabeçalho para todas as planilhas criadas. Mas a minha planilha "Todas" tem três linhas de cabeçalho a serem replicadas nas demais planilhas. Expondo minha ignorância, confesso que não detectei no código onde alterar para copiá-las.  

    Eis o código:

    'Divide a planilha em diversas a partir do critério do mês
    Sub lsSeparaPlanilha()
    'Definição das Variáveis
    Dim iTotalLinhas As Integer
    Dim rngAux As Range
    Dim iAnoMes As String
    Dim lRow As Long
    Dim iTotalLinhasAux As Long
    Dim lCel As Long
    'Identifica a última linha da planilha
    iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row
    'Seleciona os dados das colunas
    'Columns("A:F").Select
    'Realiza a ordenação dos dados pela data
    'ActiveWorkbook.Worksheets("Plan1?).Sort.SortFields.Clear
    'ActiveWorkbook.Worksheets("Plan1?).Sort.SortFields.Add Key:=Range("F2:F" & iTotalLinhas) _
    ', SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    'With ActiveWorkbook.Worksheets("Plan1?).Sort
    '.SetRange Range("A1:F" & iTotalLinhas)
    '.Header = xlYes
    '.MatchCase = False
    '.Orientation = xlTopToBottom
    '.SortMethod = xlPinYin
    '.Apply
    'End With

    'Analisa as linhas e as separa criando para isso novas planilhas
    For lCel = 2 To iTotalLinhas
    'Ativa a planilha da base de dados
    ActiveWorkbook.Worksheets("Todas").Activate

    Set rngAux = Range("F" & lCel)

    'Cria uma nova planilha

    If "Dia_" & Format(Day(rngAux.Value), "00") & Format(rngAux.Value, "mmm") & Year(rngAux.Value) <> iAnoMes Then

    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Dia_" & Format(Day(rngAux.Value), "00") & Format(rngAux.Value, "mmm") & Year(rngAux.Value)

    iAnoMes = "Dia_" & Format(Day(rngAux.Value), "00") & Format(rngAux.Value, "mmm") & Year(rngAux.Value)

    ActiveWorkbook.Worksheets("Todas").Activate
    Range("A1").EntireRow.Select
    Application.CutCopyMode = False
    Selection.Copy

    Sheets(iAnoMes).Select

    Range("A1").Select
    ActiveSheet.Paste
    End If

    'Realiza a cópia dos dados

    ActiveWorkbook.Worksheets("Todas").Activate
    rngAux.EntireRow.Select
    Application.CutCopyMode = False
    Selection.Copy

    Sheets(iAnoMes).Select
    iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

    Range("A" & iTotalLinhas).Select

    ActiveSheet.Paste
    Next lCel

    'Avisa o usuário o término do processo
    MsgBox "Planilha Separada", vbInformation
    End Sub

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    Re: [Resolvido]Exportar para excel em varias abas

    Mensagem  ilvecchio em Ter 25 Nov 2014, 17:28

    Resolvido, vejam a linha destacada:

    'Realiza a cópia dos dados

    ActiveWorkbook.Worksheets("Todas").Activate
    rngAux.EntireRow.Select
    Application.CutCopyMode = False
    Selection.Copy

    Sheets(iAnoMes).Select
    [A3].select
    iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

    Range("A" & iTotalLinhas).Select

    ActiveSheet.Paste
    Next lCel

    'Avisa o usuário o término do processo
    MsgBox "Planilha Separada", vbInformation
    End Sub

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Exportar para excel em varias abas

    Mensagem  criquio em Ter 25 Nov 2014, 19:38

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    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: Seg 05 Dez 2016, 13:30