Amigos, estou exportando dados para Excel a partir do Access 97.

E gostaria de saber como alterar a formatação da coluna Data de (20-out-05) para (dd/mm/aaaa). Como fazer isto via vba?

Eu cheguei até aqui!

DoCmd.OutputTo acOutputQuery, "Ch_Temp", acFormatXLS, strPlanilha, 0

Set objExcel = CreateObject("Excel.application")

objExcel.Visible = True

With objExcel
.workbooks.Open (strPlanilha)
.selection.currentregion.select
'.selection.autofilter
.range("A1").select
'alterando o nome do campo da coluna
.range("A1") = "Dt agendada"
.range("B1") = "Controle Visitas"
.range("C1") = "Nº do chamado"
.range("D1") = "Agencia"
.range("E1") = "Username"
.range("F1") = "Empresa/Cliente"
.range("G1") = "Endereço"
.range("H1") = "Bairro"
.range("I1") = "Contato"
.range("J1") = "Telefone"
.range("K1") = "Produto"
.range("L1") = "Periodo"
.range("M1") = "Tipo Emp"
.range("N1") = "Nome do Operador"
.range("O1") = "polo"
.range("P1") = "cidade"
.range("Q1") = "estado"
.range("R1") = "cnpj"
.workbooks(1).Close savechanges:=True
.Quit
End With
Set objExcel = Nothing

.range("A1").NumberFormat = "dd/mm/yyyy"

Rogeiro obrigado!

Olhe, como eu formato a coluna inteira?

.Columns("A").NumberFormat = "dd/mm/yyyy"

t+

quote:

66

Deu certo! Valeu Paulo!