Public Function aktarxls(listview As listview, baslik As String)
Dim toplamkayit As Long
Dim alansayisi As Integer
Dim x1 As Object
Dim sheet As Object
Dim alanlar As Long
MsgBox "beta test written by UmiTas" & vbCrLf & "Iletisim: [email protected]"
toplamkayit = listview.ListItems.count
alansayisi = listview.ColumnHeaders.count
Set x1 = CreateObject("Excel.Application")
x1.Workbooks.Add
Set sheet = x1.ActiveWorkbook.Sheets(1)
x1.Visible = False
sheet.Cells(1, 1).Value = baslik
For i = 1 To alansayisi
sheet.Cells(2, i).Value = listview.ColumnHeaders(i).Text
Next i

For i = 2 To toplamkayit + 1
sheet.Cells(i + 1, 1).Value = listview.ListItems(i - 1).Text
For alanlar = 2 To alansayisi
sheet.Cells(i + 1, alanlar).Value = listview.ListItems(i - 1).ListSubItems(alanlar - 1)
Next
Next
MsgBox "Kayit Tamamlandi!", vbInformation, "UmiTas"
x1.Visible = True
End Function


bu fonksiyonu bir adet module acin ve onun icine kopyalayin ondan sonra listviewden excele veri transferi yapabilirsiniz
__________________