[Resolvido]Exportar para Excel mantendo a formatação

Boa tarde a todos!

Mais uma vez preciso da vossa ajuda.

Exporto os dados do access 2003 para excel com o seguinte código:

Código:

Private Sub Comando73_Click()
On Error Resume Next

Dim Diretorio As String

 Diretorio = Environ$("USERPROFILE") & "\Ambiente de trabalho\Dados_Exportados.xls"
    
 DoCmd.TransferSpreadsheet acExport, 8, "cst_Teste", Diretorio, False, "A1:H1"

End Sub

Sempre funciona direito.

Atualmente tenho uma tabela com 3 colunas com formato de hora (hh:mm): Início, Fim e Duração (diferença).

Quando exporto para excel, estas 3 colunas apresentam os dados "00-01-1900", e para aparecerem corretamente tem sempre que se formatar as colunas após exportar.

O que pretendo é formatar as colunas após exportar via código, algo do tipo:

Código:

Dim mysheet As Object
  
    Set objExcel = CreateObject("Excel.Application")
    Set mysheet = excelobj.Workbooks.Open(Path)
        With mysheet
            .Activate
            .Sheets(1).Select
            .Sheets(1).Columns("B:B").NumberFormat = "hh:mm"
            .Save
        End With

Alguma ideia?

Obrigado

Boa tarde.

Nomeie de forma normalizada (CmdExportaParaExcel em vez de Comando73)
Integre os 2 códigos

Private Sub Comando73_Click()
On Error Resume Next

Dim Diretorio As String
Dim mysheet As Object


Diretorio = Environ$("USERPROFILE") & "\Ambiente de trabalho\Dados_Exportados.xls"
    
 DoCmd.TransferSpreadsheet acExport, 8, "cst_Teste", Diretorio, False, "A1:H1"
  
    Set objExcel = CreateObject("Excel.Application")
    Set mysheet = excelobj.Workbooks.Open(Diretorio)
        With mysheet
            .Activate
            .Sheets(1).Select
            .Sheets(1).Columns("B:B").NumberFormat = "hh:mm"
            .Save
        End With
End Sub

Bom dia!

Obrigado pela dica Alexandre.

Com uma pequena adaptação já funciona.

Fica aqui o código final para quem precisar algo parecido.

Código:

Private Sub Comando73_Click()
On Error Resume Next

Dim Diretorio As String
Dim mysheet As Object

Diretorio = Environ$("USERPROFILE") & "\Ambiente de trabalho\Dados_Exportados.xls"
    
DoCmd.TransferSpreadsheet acExport, 8, "cst_Teste", Diretorio, False, "A1:H1"
   
    Set objExcel = CreateObject("Excel.Application")
    Set mysheet = objExcel.Workbooks.Open(Diretorio)
        With mysheet
            .Activate
            .Sheets(1).Select
            .Sheets(1).Columns("B:B").NumberFormat = "hh:mm"
            .Sheets(1).Columns("I:I").NumberFormat = "hh:mm"
            .Sheets(1).Columns("J:J").NumberFormat = "hh:mm"
            .Save
        End With
    objExcel.Quit
    Set mysheet = Nothing
    Set objExcel = Nothing
    End Sub

Obrigado