Çözüldü Ado Bağlantı ile ilgili sekmeden istediğim sütundan veri çekmek hk

[Faulkner]

Merhaba,

aşağıdaki ado bağlantısında tek tuşla, ilgili excel dosyasından direk sekmedeki sayfadan veriyi çekiyor. Ben ilgili sekmeden F:BD Sütunların dan veri çekmesini istiyorum.
Bu konuda aşağıdaki kod'a ekleme yapar mısınız.

Saygılarımla.

Private Sub CommandButton1_Click()

Range("F2:CC999999").ClearContents

Dim baglanti As New ADODB.Connection
Dim rs As New ADODB.Recordset

yol = "C:\Users\........................................\Genel Durum İzlenmesi\9.Sipariş Genel Durum.xlsb"

baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select * from [Sipariş$]"
rs.Open sorgu, baglanti, adOpenKeyset, adLockPessimistic

a = 1
For Each baslik In rs.Fields
Cells(1, a) = baslik.Name
a = a + 1
Next baslik
Range("I2").CopyFromRecordset rs

End Sub

 

[muhasebeciyiz]

Private Sub CommandButton1_Click()

Range("F:CC").ClearContents

Dim baglanti As New ADODB.Connection
Dim rs As New ADODB.Recordset

Dim yol As String
yol = "C:\Users\........................................\Genel Durum İzlenmesi\9.Sipariş Genel Durum.xlsb"

baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

Dim sorgu As String
sorgu = "SELECT F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z, AA, AB, AC, AD, AE, AF, AG, AH, AI, AJ, AK, AL, AM, AN, AO, AP, AQ, AR, AS, AT, AU, AV, AW, AX, AY, AZ, BA, BB, BC, BD FROM [Sipariş$]"
rs.Open sorgu, baglanti, adOpenKeyset, adLockPessimistic

Dim a As Integer
a = 1
For Each baslik In rs.Fields
Cells(1, a) = baslik.Name
a = a + 1
Next baslik

Range("F2").CopyFromRecordset rs

rs.Close
baglanti.Close

End Sub

 

[Faulkner]

Private Sub CommandButton1_Click()

Dim colRange As String
colRange = "F:BD"

Range(colRange & "2:" & colRange & "999999").ClearContents

Dim baglanti As New ADODB.Connection
Dim rs As New ADODB.Recordset

sorgu = "select " & colRange & " from [Sipariş$]"
rs.Open sorgu, baglanti, adOpenKeyset, adLockPessimistic

a = 7
End Sub

Deneyiniz

RUN-TİME 1004
method Range of object=worksheet failed

Range(colRange & "2:" & colRange & "999999").ClearContents

kod'da uyarı verdi

 

[Faulkner]

2.mesaja tekrar deneyiniz

run time error 2147217900 (80040e14)
'F:BD' sorgu ifadesi içindeki Sözdimi hatası (eksik işleç)

hatası verdi

rs.Open sorgu, baglanti, adOpenKeyset, adLockPessimistic

bu kodda durdu

 

[Faulkner]

deneyiniz

run time error 2147217900 (80040e14)
Gerekli bir veya daha fazla parametre için girilen değer yok
hatası verdi

rs.Open sorgu, baglanti, adOpenKeyset, adLockPessimistic

kod da durdu

 

[muhasebeciyiz]

deneyiniz özel mesajdan konuşunuz

 

[Faulkner]

Konuyla ilgili sorum devam ediyor. yardımlarınızı bekliyorum. saygılarımla

 

[halit3]

Merhaba,

aşağıdaki ado bağlantısında tek tuşla, ilgili excel dosyasından direk sekmedeki sayfadan veriyi çekiyor. Ben ilgili sekmeden F:BD Sütunların dan veri çekmesini istiyorum.
Bu konuda aşağıdaki kod'a ekleme yapar mısınız.

Saygılarımla.

Private Sub CommandButton1_Click()

Range("F2:CC999999").ClearContents

Dim baglanti As New ADODB.Connection
Dim rs As New ADODB.Recordset

yol = "C:\Users\........................................\Genel Durum İzlenmesi\9.Sipariş Genel Durum.xlsb"

baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select * from [Sipariş$]"
rs.Open sorgu, baglanti, adOpenKeyset, adLockPessimistic

a = 1
For Each baslik In rs.Fields
Cells(1, a) = baslik.Name
a = a + 1
Next baslik
Range("I2").CopyFromRecordset rs

End Sub

1 nolu mesajınızdaki kod çalışıyorsa

sorgu = "select * from [Sipariş$]"

yukarıdaki bölümü silin aşağıdaki bölümü ekleyiniz.

sorgu = "select * from [Sipariş$F:BD]"

 

[Faulkner]

1 nolu mesajınızdaki kod çalışıyorsa

sorgu = "select * from [Sipariş$]"

yukarıdaki bölümü silin aşağıdaki bölümü ekleyiniz.

sorgu = "select * from [Sipariş$F:BD]"

teşekkürler