Sütun başlıksız excelden D sütununu almak

[Orion1]

Merahaba arkadaşlar.
Sütun başlığı olmayan bir excelde D sütununu comboboxa almak istiyorum.
Aşağıdaki kodları yazdım ama gerekli 1 veya 1 den fazla için girilen değe yok diye hata verdi.Sütun Başlıksız bir sütunu alamıyormuyuz?

conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\Test.xls;extended properties=""excel 8.0;hdr=no"""
rs.Open "Select D from [Sayfa1$];", conn, 1, 3
ComboBox1.Column = rs.CopyFromRecordset

 

[peleryn]

Hocam pek haddim değil artı dediğimi hadi sen dene deseniz yapamam da ama başvuruyu makroda R1C1 stilinde verseniz olur mu diye takıldı aklıma..Umarım çok anlamsız birşey söylemiyorumdur

 

[Orion1]

Hocam pek haddim değil artı dediğimi hadi sen dene deseniz yapamam da ama başvuruyu makroda R1C1 stilinde verseniz olur mu diye takıldı aklıma..Umarım çok anlamsız birşey söylemiyorumdur

Maalesef olmadı.

 

[Zeki Gürsoy]

Şunu deneyin,

rs.open "select * from [sayfa1$]", conn , 1, 3
do until rs.eof
   combobox1.additem rs(3).value
  rs.movenext
loop

 

[Orion1]

Zeki hocam dediğiniz kodlardan yola çıkarak aradaki kolonlarda boşluk olacağını kabul ederek aşağıdaki kodları yazdım oldu.
Ama benim amacım döngüye girmeden daha hzılı bir yöntem olan ComboBox1.Column = rs.CopyFromRecordset bu kodu kullanabilmekti.
Yazdığım kodlar aşağıdadır.
Yazdığım kodlar aşağıdadır.

rs.Open "Select * from [Sayfa1$];", conn, 1, 3
rs.movefirst
If rs.fields.Count > 4 Then
    k = 3
    Else
    k = rs.fields.Count - 1
End If
Do While Not rs.EOF
    ComboBox1.AddItem rs(k)
    rs.movenext
Loop

 

[Zeki Gürsoy]

Belki işinize yarayabilir...

[COLOR=DarkGreen]'4. sütundaki  tüm kayıtlar[/COLOR]
combobox1.column = rs.getrows(3)
[COLOR=DarkGreen]'4. sütundan 10 kayıt alma..
'combobox1.column = rs.getrows(3, 10)[/COLOR]

 

[Orion1]

Üstadım Aşağıdaki kod alandan sadece 3 kayıt alıyor.

ComboBox1.Column = rs.getrows(3)

 

[Orion1]

Aşağıdaki kodlar oldu.
Not:A-B-C sütunları boştur.

rs.Open "Select * from [Sayfa1$];", conn, 1, 3
rs.movefirst

ComboBox1.Column = rs.getrows