Excel'e seçerek veri gönderme

Selam sevgili forum üyeleri,

Bir acces tablosundaki verilerimi seçerek Excele göndermek istiyorum. Bu konuyla ilgili forumda yalnızca bir örnek görebildim. Fakat o dosyada ispanyolca çıktı. Dolayısıyla arkasındaki vb kodlarını çözemedim. Dolayısıyla da kendi veritabanıma uygulayamadım. Sorunumu daha da açabilirim, belki faydası olur.
Benim birçok sütundan oluşan bir veritabanım var. Fakat ben excele veri gönderirken bunların o anda işime yarayacak olan sütunlarını göndermek istiyorum. Bunu da bir ara form vasıtasıyla yapmak istiyorum. Yani önce bir seçim formu açılacak ben oradan istediğim verileri işaretleyeceğim ve yalnızca seçmiş olduğum sütunları içeren bir Excel dosyası yaratacak. Bu konuda yardımcı olursanız memnun olurum.

Bu konuda forumunuzdaki bulduğum örnek de şudur. Belki bu örnek ne demek istediğimi daha kolay anlatır. Ama dediğim gibi ben bunu çözemedim.

https://accesstr.net/accessten-excele-se...t-866.html

Saygılar,
Kadir

Sayın Seruz abimizin bu konudaki örneğini inceleyin lütfen.

https://accesstr.net/carpraz-sorgudan-ra...ml#pid6577

Sevgili Alpeki99,

Vermiş olduğun linki inceledim. Sn. Seruz'un örneğini verdiği konu kendi kategorisinde çok güzel bir örnek fakat benim istediğim bu değil. Ben sorumu müsaadenle biraz daha açayım.

Benim Tablom şu şekilde Alan Adları içeriyor olsun:
[no] [tcno] [adı] [soyadı] [dogumtar] [dogumyeri] [adres]

daha fazla alan adı var ama uzatmamak çin kısa tutuyorum.(zaten amacım da bu uzun listeyi her seferinde excele göndermemek)
Ben şöyle bir ara form yaratayım



resim burada

ve orada sadece istediğim alan adlarını seçeyim ve onları excele göndersin. Aslında eminim çok basittir ama bendeniz acemi olduğumdan yapamadım. Yardımlarınızı bekliyorum.

Saygılarımla,
Kadir

O zaman istediğiniz şey bu adreste :

https://accesstr.net/secime-gore-yazdira...ml#pid1042

Sevgili bilgisayarcı hocamızın eklediği kullanışlı bir Excel örneği. Tüm sütunları listeler ve istediklerinizi excele gönderir.

Sevgili alpeki99,

İlgin için teşekkür ederim, aradığım tam olarak buydu, sağolasın.

Lakin bu uygulamayı aldım kendi veritabanıma uyarladım, fakat kodlarda hatayla karşılaştım. Önce kodu yazayım;

Alıntı: Private Sub ListeyiYukle(KaynakAdi As String)
Dim s As String
Dim i As Integer
Dim SutunSay As Integer
Dim lstItem As ListItem
If Len(KaynakAdi & "xx") <= 2 Then Exit Sub
TabloAdi = KaynakAdi
s = "Select * from " & KaynakAdi
If Not AdoAc1(s) Then
MsgBox "Tablo/Sorgu açılamadı", vbInformation
Exit Sub
End If

With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.Checkboxes = True
.ColumnHeaders.Add , , "Alan", .Width - 200
End With
SutunSayisi = Rs1.Fields.Count - 1
For i = 0 To SutunSayisi
Set lstItem = ListView1.ListItems.Add()
lstItem.Text = Nz(Rs1.Fields(i).Name, "-")
Next
AdoKapa 1
End Sub

Ben açılan kutudan ilgili tablo adını seçtiğimde "Dim lstItem As ListItem" satırında compile error: user-defined type not defined hatası veriyor.
Bu konuda sanırım bu kodların sahibi Bilgisayarcı bana yardımcı olacak.

Saygılarımla,
Kadir

kodda hata yok, aldığınız hatanın olası sebebi

Referanslarında eksik var

Microsoft Windows Common Controls 6.0 (SP6)
system32 içerisindeki MSCOMCTL.OCX