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 com cabeçalho

    Compartilhe

    edycarlo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 06/03/2014

    [Resolvido]exportar para excel com cabeçalho

    Mensagem  edycarlo em Qua 07 Out 2015, 03:04

    Boa noite

    Tenho um relatório com cabeçalho composto por texto e campos qdo exporto via código VB para excel, exporta somente os campos contidos na seção detalhe.

    Preciso que exporte para excel com a formatação do relatório, em especial o cabeçalho

    Obs: o cabeçalho ocupa 3 linhas no excel.

    Alguem pode me ajudar?

    Obrigado.


    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    exportar para excel com cabeçalho

    Mensagem  daniloreiis em Qui 03 Dez 2015, 11:16

    Bom dia Amigo!

    poste o projeto para melhor ajuda-lo!


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    le_lo28
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 13/07/2011

    Re: [Resolvido]exportar para excel com cabeçalho

    Mensagem  le_lo28 em Qui 24 Mar 2016, 14:24

    Fala galera tudo bem?

    Resolvi aproveitar este tópico para pedir ajuda aos universitários.

    Com base no tópico [Você precisa estar registrado e conectado para ver este link.] do meu amigo JPAULO preciso exportar os dados mas manter o nome dos campo nas abas que foram criadas.

    Fiz um alteração no módulo mas não consegui chegar no resultado esperado.

    E o campo data não está indo no formato dd/mm/yyyy.

    Segue o arquivo em anexo com uma pequena alteração que fiz, mas ele está criando uma aba com os dados do cabeçalho

    Agradeço a ajuda antecipadamente.
    Anexos
    ExportaParaExcel.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 18 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]
    M@rcelo

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]exportar para excel com cabeçalho

    Mensagem  JPaulo em Ter 29 Mar 2016, 14:39

    Ola amigão, confesso que tenho saudades do tempo do ExpertAccess rsrsrssr

    Vamos lá;

    Primeiramente na sua consulta "qryExcelBDI", formate o campo data desta forma;

    Código:
    DATA_EMISSAO: Format([tblTempBdiDetalhe]![DATA_EMISSAO];"dd-mm-yyyy")


    No modulo "modExporta"

    Declare uma nova variavel

    Código:
    Dim cnt2 As Integer

    Neste trecho da função "ExportaParaExcel", altere para assim;

     
    Código:
    Const colWithSheetNames As Integer = 11
        
        Dim wksDest As Excel.Worksheet
        Dim actName As String, firstAvailableRow As Integer
        For idxRow = 1 To 4001
            actName = wks.Cells(idxRow, colWithSheetNames)
            If Not actName = "" Then
                Set wksDest = getDestWorkSheet(wbk, actName)
                firstAvailableRow = getFirstAvailableRow(wksDest, colWithSheetNames)
                        cnt2 = 1
                        For Each fld In rst.Fields
                            wksDest.Cells(1, cnt2).Value = fld.Name
                            cnt2 = cnt2 + 1
                        Next fld
                wks.Rows(idxRow).Copy
                wksDest.Rows(firstAvailableRow).PasteSpecial Paste:=xlPasteValues
                wksDest.Rows(firstAvailableRow).Activate
            Else
                'recordset vazio, termina
                Exit For
            End If
        Next

    Na função "getFirstAvailableRow", altere o idxRow = 1, para idxRow = 2

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

    Teste e retorne;
    No aguardo.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

    le_lo28
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 13/07/2011

    Re: [Resolvido]exportar para excel com cabeçalho

    Mensagem  le_lo28 em Ter 29 Mar 2016, 16:02

    Fala grande JPaulo blz?

    Cara eu também sinto uma saudade enorme daquela sala!

    Obrigado pela ajuda!

    Deu certo, mas ele continua criando a aba "ORIGEM" com duas linhas de cabeçalho dentro. Eu tentei mexer na linha que apaga as abas mas não consegui! (confesso que sempre levei uma surra do vba no excel) kkkkkkkkk

    Aproveitando será que existe a possibilidade de somar a coluna de valor e colocar o resultado no final da coluna? Vou tentar fazer isso, ai fica show hein!

    Muito obrigado!

    No aguardo.

    Abraços,


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]
    M@rcelo

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]exportar para excel com cabeçalho

    Mensagem  JPaulo em Ter 29 Mar 2016, 17:57

    Opa, claro que dá para fazer a soma e a aba ORIGEM foi-se;

    Teste e retorne por favor;

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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]exportar para excel com cabeçalho

    Mensagem  JPaulo em Qua 30 Mar 2016, 14:03

    E ae, funfou ?


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

    le_lo28
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 13/07/2011

    Re: [Resolvido]exportar para excel com cabeçalho

    Mensagem  le_lo28 em Qui 31 Mar 2016, 18:02

    Fala meu amigo!

    Desculpa a demora em responder! Só hoje tive tempo de entrar no fórum!

    Cara ficou um espetáculo!

    Eu mexo muito pouco com vba excel e apanho muito, mas vc é mestre!

    Valeu,


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]
    M@rcelo

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]exportar para excel com cabeçalho

    Mensagem  JPaulo em Sex 01 Abr 2016, 08:56

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

      Data/hora atual: Qua 07 Dez 2016, 18:19