[Resolvido]Exportar dados para o Excel

Pessoal,

Estou tentando exportar dados do access para o Excel, usando o código abaixo, tudo funciona perfeitamente, porém ele só esta colando os dados o cabeçalho não vem, o que devo fazer para que o cabeçalho também seja exportado?

Public Function Export_Excel1()
'By JPaulo Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, strConexão As String, xls As Object
Set xls = CreateObject("Excel.Application")

strLivro = CurrentProject.Path & "\" & (Format(Now(), "dd") & "." & Format(Now(), "mm")) & " - " & "RELATÓRIO EXPORTADO" & ".xlsx"
strConexão = "Data Source=" & strLivro & ";" & _
"HDR = yes;Format = xlsx"
xls.Workbooks.Add
'xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Plan1").Activate
strSQL = "SELECT * FROM TBL_EXPORT_EXCEL;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.saveAs FileName:=strLivro
xls.Application.Quit
Set xls = Nothing
End Function

Boa noite,

Código:

Public Function Export_Excel1()
'By JPaulo ️ Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, strConexão As String, xls As Object
dim Col as integer
Set xls = CreateObject("Excel.Application")

strLivro = CurrentProject.Path & "\" & (Format(Now(), "dd") & "." & Format(Now(), "mm")) & " - " & "RELATÓRIO EXPORTADO" & ".xlsx"
strConexão = "Data Source=" & strLivro & ";" & _
"HDR = yes;Format = xlsx"
xls.Workbooks.Add
'xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Plan1").Activate
strSQL = "SELECT * FROM TBL_EXPORT_EXCEL;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'alterado por Alexandre Neves (MaximoAccess) incluir títulos de colunas
For Col = 0 to rst.Fields.Count - 1
 xls.Worksheets("Plan1").Cells(1, Col + 1).Value = rst.Fields(Col).Name
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
xls.ActiveSheet.Range("A2").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.saveAs FileName:=strLivro
xls.Application.Quit
Set xls = Nothing
End Function

Alexandre,
Show funcionou perfeitamente, obrigado.