[Çözüldü]  ListView'den Excel'e Veri Aktarma

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

ListView'den Excel'e Veri Aktarma

İleti#1)  PROF1 » 01 Kas 2017 15:24

Merhabalar 2 sütunluk ListView de bulunan verileri toplu olarak excele aktarmak istiyorum. Kodu nasıl olmalı.
Kullanıcı avatarı
PROF1
Yeni Başlamış
 
Kayıt: 08 Arl 2016 14:55
Meslek: Öğretmen
Yaş: 27
İleti: 76
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇANKIRI

Cevap: ListView'den Excel'e Veri Aktarma

İleti#2)  Ali ÖZ » 01 Kas 2017 15:32

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
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9242
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ListView'den Excel'e Veri Aktarma

İleti#3)  PROF1 » 01 Kas 2017 15:35

"Index out of bounds" hatası ile karşılaştım.
Kullanıcı avatarı
PROF1
Yeni Başlamış
 
Kayıt: 08 Arl 2016 14:55
Meslek: Öğretmen
Yaş: 27
İleti: 76
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇANKIRI

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

İleti#4)  PROF1 » 01 Kas 2017 16:06

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
Kullanıcı avatarı
PROF1
Yeni Başlamış
 
Kayıt: 08 Arl 2016 14:55
Meslek: Öğretmen
Yaş: 27
İleti: 76
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇANKIRI

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: ListView'den Excel'e Veri Aktarma

İleti#5)  Ali ÖZ » 01 Kas 2017 16:27

Çalışıyorsa sorun yok demektir :)
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9242
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ListView'den Excel'e Veri Aktarma

İleti#6)  Tarkan VURAL » 03 Kas 2017 22:12

İ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
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26676
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: ListView'den Excel'e Veri Aktarma

İleti#7)  PROF1 » 20 Kas 2017 17:04

Sorun Çözülmüştür. İlginizden dolayı teşekkürler
Kullanıcı avatarı
PROF1
Yeni Başlamış
 
Kayıt: 08 Arl 2016 14:55
Meslek: Öğretmen
Yaş: 27
İleti: 76
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇANKIRI

Cevap: ListView'den Excel'e Veri Aktarma

İleti#8)  Ali ÖZ » 23 Kas 2017 18:20

Rica ederiz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9242
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe