MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Criar relatório em xls, com cores de cabeçalho

    avatar
    atteipos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 17/01/2014

    [Resolvido]Criar relatório em xls, com cores de cabeçalho Empty [Resolvido]Criar relatório em xls, com cores de cabeçalho

    Mensagem  atteipos em 8/8/2017, 16:32

    Pessoal!

    Procurei aqui e não encontrei nada parecido.

    Eu preciso formatar, o cabeçalho, pra uma cor específica, ao exportar uma query para excel. Atualmente, ela exporta em cinza. Tem como mudar isso?

    Já tentei criar um subformulário pra query e exportar, mesmo assim, ele me retornou tudo cinza. Alguma idéia?

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Criar relatório em xls, com cores de cabeçalho Empty Re: [Resolvido]Criar relatório em xls, com cores de cabeçalho

    Mensagem  JPaulo em 18/8/2017, 14:43

    Ola seja bem vindo ao forum;

    Código:
    Private Sub SeuBotao_Click()
    'By JPaulo ® Maximo Access
    Dim strLivro As String
    Dim xls As Object
      DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "SuaConsulta", CurrentProject.Path & "\" & "teste" & ".xlsx", True
      Set xls = CreateObject("Excel.Application")
        strLivro = CurrentProject.Path & "\" & "teste" & ".xlsx"
        xls.Workbooks.Open (strLivro)
        xls.Visible = True
        xls.ActiveSheet.Range("A1").Select
        xls.ActiveSheet.Range("A1:Z1").Interior.ColorIndex = 3 '3 é vermelho
    xls.ActiveWorkbook.Save
    xls.Application.Quit
    Set xls = Nothing
    End Sub


    Numeração das cores;
    msdn.microsoft.com/pt-br/library/office/ff840443.aspx


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar relatório em xls, com cores de cabeçalho Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar relatório em xls, com cores de cabeçalho Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar relatório em xls, com cores de cabeçalho Folder_announce_new Instruções SQL como utilizar...
    avatar
    atteipos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 17/01/2014

    [Resolvido]Criar relatório em xls, com cores de cabeçalho Empty Re: [Resolvido]Criar relatório em xls, com cores de cabeçalho

    Mensagem  atteipos em 18/8/2017, 21:52

    Obrigado JPaulo, pesquisando um pouco mais, eu consegui chegar na resposta! Consegui colar algumas informações como comentário, na célula do Excel. Ajudou bastante!
    avatar
    atteipos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 17/01/2014

    [Resolvido]Criar relatório em xls, com cores de cabeçalho Empty Re: [Resolvido]Criar relatório em xls, com cores de cabeçalho

    Mensagem  atteipos em 18/8/2017, 21:54

    Resolvido

      Data/hora atual: 25/5/2020, 16:27