ListView den excelle aktarma

[1ndependent]

Arkadaşlar merhaba

Ekteki dosyada bu forumda bulduğum bir dosya vardı. ListView deki verilerimi excelle aktarmada bir sıkıntı yok fakat, genelde kullandığım 1/1 gibi numaralandırmaları aktarırken sorun yaşıyorum.

Bunları farklı tarihler olarak gönderiyor.

Buna bir çözüm bulabilir miyim?

Yardımlarınız için teşekkürler

Dim i As Long, k As Integer
Workbooks.Add
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Lstview" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xls"
For i = 2 To ListView1.ColumnHeaders.Count
    ActiveWorkbook.Sheets(1).Cells(1, i - 1).Value = ListView1.ColumnHeaders(i).Text
Next
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
    For k = 2 To ListView1.ColumnHeaders.Count
            ActiveWorkbook.Sheets(1).Cells(i + 1, k - 1).Value = ListView1.ListItems(i).SubItems(k - 1)

    Next k
Next i
ActiveWorkbook.Sheets(1).Range("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True

ActiveWorkbook.Close True
End Sub

 

[Orion1]

Buyurun.

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Lstview" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xls"
ActiveSheet.Range("C:C").NumberFormat = "@"
For i = 2 To ListView1.ColumnHeaders.Count
    ActiveWorkbook.Sheets(1).Cells(1, i - 1).Value = ListView1.ColumnHeaders(i).Text
Next

 

[1ndependent]

Çok teşekkürler. Sorunsuz çalıştı