[Resolvido] Exportar para Excel com formatação

Boa tarde.

Quero exportar uma consulta para Excel com formatação, achei um código aqui no fórum e adaptei, mas faltam algumas coisas.
No VBA do Access eu faço algumas coisas, mas no VBA do Excel não sei quase nada.

Está funcionando:
Exporta para Excel
Cor do preenchimento da primeira linha verde.
Cor da fonte da primeira linha branca.

Mas eu queria:
As bordas pintadas de preto
A largura das colunas ajustadas com o texto
A soma de alunos na última linha

Desde já agradeço.

Boa noite,
Utilize

Código:

    Dim ContaAlunos As Integer
'By JPaulo ® Maximo Access
Caminho = CurrentProject.Path & "\Alunos.xlsx"
Dim xls As Object
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Consulta_alunos", Caminho, True
  Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open (Caminho)
    xls.Visible = True
    xls.ActiveSheet.Range("A1").Select
    xls.ActiveSheet.Range("A1:D1").Interior.Colorindex = 10
    xls.ActiveSheet.Range("A1:D1").Font.Colorindex = 2
    xls.ActiveSheet.Range("A1:D1").Borders.Colorindex = 0
    xls.ActiveSheet.Range("A1:D1").columns.autofit
    ContaAlunos = DCount("*", "Consulta_Alunos")
    xls.ActiveSheet.cells(ContaAlunos + 2, 1) = "Total de alunos: " & ContaAlunos
   
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing


Nomeie os controlos de forma normalizada (Comando0 não diz nada mas CmdExportaAlunosExcel já diz)

Alexandre, muito obrigado pela ajuda, realmente tinha esquecido de renomear o botão.

Só mais alguns detalhes:

Gostaria que a primeira linha fosse mesclada, com um título, e a última linha com o total também fosse mesclada.
Em anexo estão o arquivo em access, e um exemplo do resultado final, como eu queria que ficasse a planilha.

Parece tratar-se de trabalho de escola.
Se sim, não colaboramos para a preguiça dos alunos e inflacionar as notas

Não é trabalho escolar, é apenas um exemplo simples para adptar em outros arquivos que eu preciso.

Boa noite,

Código:

Private Sub CmdExportaAlunosExcel_Click()
    'By JPaulo ® Maximo Access
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código adaptado com a colaboração por Alexandre Neves, do Fórum MaximoAccess                                                '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Dim ContaAlunos As Integer
    Caminho = CurrentProject.Path & "\Alunos.xlsx"
    Dim xls As Object
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Consulta_alunos", Caminho, True
    Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open (Caminho)
    xls.Visible = True
    xls.ActiveSheet.Range("A1").Select
    xls.ActiveSheet.Range("A1:D1").Borders.Colorindex = 0
    xls.ActiveSheet.Range("A1:D1").Columns.autofit
   
    xls.ActiveSheet.Range("A1").EntireRow.Insert
    xls.ActiveSheet.Range("A1") = "Notas finais"
    xls.ActiveSheet.Range("A1:D2").Font.Colorindex = 2
    xls.ActiveSheet.Range("A1:D2").Interior.Colorindex = 10
   
    xls.ActiveSheet.Range("A1:D1").merge
    xls.ActiveSheet.Range("A1").HorizontalAlignment = xlCenter
    ContaAlunos = DCount("*", "Consulta_Alunos")
    xls.ActiveSheet.Range(xls.ActiveSheet.Cells(ContaAlunos + 3, 1), xls.ActiveSheet.Cells(ContaAlunos + 3, 4)).merge
    xls.ActiveSheet.Cells(ContaAlunos + 3, 1).Font.Colorindex = 2
    xls.ActiveSheet.Cells(ContaAlunos + 3, 1).Interior.Colorindex = 10
    xls.ActiveSheet.Cells(ContaAlunos + 3, 1).Font.Colorindex = 2
    xls.ActiveSheet.Cells(ContaAlunos + 3, 1) = "Total de alunos: " & ContaAlunos
    xls.ActiveWorkbook.Save
    xls.Application.Quit
    Set xls = Nothing
End Sub

Boa noite Alexandre, mais uma vez obrigado pela ajuda.

Está quase funcionando, mas o título não fica centralizado.

Na linha de comando:

xls.ActiveSheet.Range("A1").HorizontalAlignment = xlCenter


Acontece o seguinte erro:

Erro em tempo de execução '1004'
Não é possível definir a propriedade HorizontalAlignment da classe Range

Bom dia,
Marque a referência do Microsoft Excel 15.0

Bom dia

Marquei no VBA  do Excel a referência Microsoft Office 15.0 Object Library, mas continua com o erro.
Quando coloco esse código diretamente no Excel, funciona, mas o mesmo comando no Access para o Excel, ocorre o erro.

Bom dia.

Resolvido, obrigado.

Como resolveste a msg "Marque a referência do Microsoft Excel 15.0"

Boa tarde e bem-vindo ao fórum
Não use o título para mensagem, mantenha-o para a sua finalidade: resumir o assunto

Sobre a marcação da referência
Abra um múdulo, vá à barra de ferramentas (faixa) Tools, escolha References...

Como a dúvida era a mesma...
Obrigado!

Sendo a dúvida a mesma, o título ficava o mesmo, certo?
Sobre a orientação que lhe dei, funcionou? dê sempre o retorno para outros colegas saber a solução