1 sayfadan 1. sayfa

ListView'den Excel'e Veri Aktarma

İletiTarih: 01 Kas 2017 15:24
PROF1
Merhabalar 2 sütunluk ListView de bulunan verileri toplu olarak excele aktarmak istiyorum. Kodu nasıl olmalı.

Cevap: ListView'den Excel'e Veri Aktarma

İletiTarih: 01 Kas 2017 15:32
Ali ÖZ
Deneyin.

Kod: Tümünü seç
son = range("a65536").End(3).Row + 1
If ListView1.ListItems.Count = 0 Then Exit Sub
for i = 0 to listview1.ListItems.Count - 1
Cells(son, 1) = ListView1.ListItems(i).ListSubItems(1)
Cells(son, 2) = ListView1.ListItems(i).ListSubItems(2)
son = son + 1
next

Cevap: ListView'den Excel'e Veri Aktarma

İletiTarih: 01 Kas 2017 15:35
PROF1
"Index out of bounds" hatası ile karşılaştım.

Cevap: Cevap: ListView'den Excel'e Veri Aktarma

İletiTarih: 01 Kas 2017 16:06
PROF1
Ali ÖZ yazdı:Deneyin.

Kod: Tümünü seç
son = range("a65536").End(3).Row + 1
If ListView1.ListItems.Count = 0 Then Exit Sub
for i = 0 to listview1.ListItems.Count - 1
Cells(son, 1) = ListView1.ListItems(i).ListSubItems(1)
Cells(son, 2) = ListView1.ListItems(i).ListSubItems(2)
son = son + 1
next


Hata alıyorum ama sayfaya aktarıyor. Sebebi ne olabilir. "On Error Resume Next" ile sorunsuz çalışıyor

Cevap: ListView'den Excel'e Veri Aktarma

İletiTarih: 01 Kas 2017 16:27
Ali ÖZ
Çalışıyorsa sorun yok demektir :)

Cevap: ListView'den Excel'e Veri Aktarma

İletiTarih: 03 Kas 2017 22:12
Tarkan VURAL
İki sütunluk ListView nesnelerinde subitems bir tane döner. Diğeri yani ilk sütun ListView nesnesinin ListItems nesnesinin kendidir. ;)
Bir de kodlar eksik yazılıyor. VBA belki buna bir şey demez ama yine de kötü alışkanlık. :)

son = range("a65536").End(3).Row + 1
If ListView1.ListItems.Count = 0 Then Exit Sub
for i = 0 to listview1.ListItems.Count - 1
Cells(son, 1).value = ListView1.ListItems(i).Text
Cells(son, 2).value = ListView1.ListItems(i).ListSubItems(1).text
son = son + 1
next

Cevap: ListView'den Excel'e Veri Aktarma

İletiTarih: 20 Kas 2017 17:04
PROF1
Sorun Çözülmüştür. İlginizden dolayı teşekkürler

Cevap: ListView'den Excel'e Veri Aktarma

İletiTarih: 23 Kas 2017 18:20
Ali ÖZ
Rica ederiz.