[Resolvido]exportar para excel com cabeçalho

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.

Bom dia Amigo!

poste o projeto para melhor ajuda-lo!

Fala galera tudo bem?

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

Com base no tópico Exportar para o excel com abas 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.

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

http://dl.dropboxusercontent.com/u/771097/ExportaParaExcel_OLD.zip

Teste e retorne;
No aguardo.

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,

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

Teste e retorne por favor;

http://dl.dropboxusercontent.com/u/771097/ExportaParaExcel_OLD_II.zip

E ae, funfou ?

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,

Fico feliz.

Obrigado pelo retorno o forum agradece.