Pessoal, preciso de ajuda!!! Eu tenho uma ListView chamada LV

Fiz um código para exportar as colunas e linhas da minha ListView para o EXECEL. Ele exporta tudo direitinho, só tem um problema. Na hora que esta exportando o campo DATA.

 

Todas as datas que são ex: "26/10/2007" reparem... 26 não há possibilidade de ser o número de um mês. Então poderá somente ser o dia. 10 representa o mês e 2007 o ano. Datas assim exporta corretamente.

 

Porém as datas assim ex: "12/08/2007" ou "07/05/2006" esta sendo exportada errado. Pq ele confunde, pq o numero 12, pode ser representado tanto para dia, como para o mês de dezembro.

 

Alguem sabe me dizer o porque esta acontecendo isso?!

Segue abaixo o código que estou usando.

 

Function Excel()
If lv.ListItems.Count = 0 Then
MsgBox "Não existem dados para serem exportado.", vbInformation, "AVISO"
Else
Dim oExcl As Object
Dim oWrkb As Object
Dim oWrks As Object
'Dim oChrt As Object
Dim Linha As Integer
Dim Coluna As Integer

Set oExcl = CreateObject("Excel.Application")
Set oWrks = CreateObject("Excel.Sheet")
'Set oChrt = CreateObject("Excel.Chart")

Set oWrkb = oExcl.Workbooks.Add
Set oWrks = oWrkb.Worksheets(1)

oWrks.Rows(1).Font.Bold = True
For Coluna = 1 To lv.ColumnHeaders.Count
    oWrks.Rows(1).Cells(, Coluna).Value = lv.ColumnHeaders(Coluna).Text
Next Coluna

For Linha = 1 To lv.ListItems.Count
    oWrks.Cells(Linha + 1, 1).Value = lv.ListItems(Linha).Text
    For Coluna = 2 To lv.ColumnHeaders.Count
        oWrks.Cells(Linha + 1, Coluna).Value = lv.ListItems(Linha).SubItems(Coluna - 1)
    Next Coluna
Next Linha

oExcl.Visible = True
oExcl.UserControl = True

Set oExcl = Nothing
Set oWrks = Nothing
'Set oChrt = Nothing
End If
End Function

Donkey,

 

Eu tentei formartar o campo mas não estou conseguindo. Teria um exemplo melhor?!

Juliana, posso até falar besteira, mas você poderia tentar ao passar o valor da data para a célula do Excel, colocar um apóstrofo (') antes da data.

Pode ser que dê certo.

Você pode tentar também alterar as configurações do Windows da máquina para o formato de data brasileiro "dd/mm/yyyy".

Porque eu fiz um teste aqui utilizando o seu código e uma listview de um projeto meu que tem campo data e comigo deu certo, foi inserido as datas corretamente.

Qualquer coisa posta novamente.

Valeu?

Eu tentei usar assim....

 

oWrks.rows("c1:c20").Format = "dd/mm/yyyy"

 

mas não vai nem a pau... Pra falar a verdade já tentei de todos os jeitos...