Excel'e seçerek veri gönderme

1 2
31/01/2009, 18:35

kdurmaz

Yani,
bunun için ne yapmalıyım, daha açıklayıcı olur musunuz rica etsem? system32 nin altına baktım MSCOMCTL.OCX dosyası var.
31/01/2009, 18:49

ozanakkaya

vb penceresini aç, Vba penceresindeki Tools-References'i aç, "Browse..." yi tıkla ve system32 klasöründeki MSCOMCTL.OCX'i seç ve Aç butonunu tıkla.
bu şekilde Microsoft Windows Common Controls 6.0 (SP6) referanslara eklenir.
31/01/2009, 19:06

kdurmaz

sevgili sledgeab,

Adım adım sonuca ulaşıyoruz galiba, ama hala tamamlanmış değil. Söylediğin yöntem o sorunu çözdü fakat bu kez LBExcel modülünde bir hata oluştu.
Şöyleki: Açılan kutudan ilgili tablo adını seçtik, alan adları aşağıda listelendi. "Ver Excele" dediğimizde
------------------------------
Option Compare Database
Option Explicit

Dim ExC As Excel.Application
Dim ExW As Workbook
Dim ExS As Worksheet
-----------------------------

"Dim ExC As Excel.Application" satırında aynı compile error verdi. Eklemem gereken başka bir referans mı var acaba.

saygılar,
sevgili sledgeab,

Bu sorunu da çözdüm, sana bir önceki yanıtı yazarken aklıma acaba Microsoft Office Excel'i de referanslara eklersem sorun hallolur mu dedim ve ekledim, sorun çözüldü.
Şimdi benim tablomdaki alan isimlerinden ikisinde excele gönderirken sorun yaratıyor onu anlamaya çalışıyorum, çözebilirsem ne ala, çözemezsem tekrar yardımını isteyeceğim.

saygılar,
Sevgili sledgeab,

Bahsettiğim problemi de giderdim. Konu benim için çözümlenmiştir. Yardımların için teşekkürler.
Ayrıca sn. alpeki99 ve sn.Bilgisayarcıya da yardımlarından dolayı teşekkür ederim. Bu site benim hayatımı kolaylaştırıyor, hepinize sevgi ve saygılarımı sunuyorum.

Saygılarımla,

07/03/2013, 17:39

osman06

mrb bende de aşağıdaki gibi bir hata mesajı veriyor. sıkıntı nedir acaba

complite erros
sub or function not defined

ve aşağıdaki kodda işaretli yeri açıyor
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
1 2