MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 16/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 Ter 8 Ago 2017 - 11: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    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 Sex 18 Ago 2017 - 9: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 16/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 Sex 18 Ago 2017 - 16: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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 16/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 Sex 18 Ago 2017 - 16:54

    Resolvido

      Data/hora atual: Seg 12 Abr 2021 - 19:04