Sitede emeği geçen herkese tekrar teşekkürler.
Aşağıda belirttiğim kodlarla bağlandığım excel sayfasında bulunan kodlar ile DATA2.xls sayfasında ad tanımlama yaparak oluşturduğum tabloya bağlanarak GUNLER isimli bu tablodan GEMI isimli sutundaki bilgileri çekmek istiyorum fakat 'GUNLER.GEMI*' sorgu ifadesiiçindeki sözdizimi hatası ( eksik işleç ) hatası alıyorum. [GUNLER.GEMI] olarakta denedim ama aynı sonucu verdi. Yardımcı olabilirseniz sevinirim Şimdiden teşekkürler. bulunduğum yerdeki sistem izin vermediğinden dosya ekleyemiyorum.
Sub deneme()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rng As Range
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rng = ThisWorkbook.Sheets("sayfa1").Range("a1")
conn.Open "provider=microsoft.jet.oledb.4.0;data source = " & _
ThisWorkbook.Path & "\dosyam.xls" & ";extended properties=""excel 8.0;hdr=yes"""
rs.Open "SELECT GUNLER.GEMI * FROM GUNLER", conn, 1, 1
rng.CopyFromRecordset rs
Set rs = Nothing
Set con = Nothing
End Sub
Aşağıda belirttiğim kodlarla bağlandığım excel sayfasında bulunan kodlar ile DATA2.xls sayfasında ad tanımlama yaparak oluşturduğum tabloya bağlanarak GUNLER isimli bu tablodan GEMI isimli sutundaki bilgileri çekmek istiyorum fakat 'GUNLER.GEMI*' sorgu ifadesiiçindeki sözdizimi hatası ( eksik işleç ) hatası alıyorum. [GUNLER.GEMI] olarakta denedim ama aynı sonucu verdi. Yardımcı olabilirseniz sevinirim Şimdiden teşekkürler. bulunduğum yerdeki sistem izin vermediğinden dosya ekleyemiyorum.
Sub deneme()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rng As Range
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rng = ThisWorkbook.Sheets("sayfa1").Range("a1")
conn.Open "provider=microsoft.jet.oledb.4.0;data source = " & _
ThisWorkbook.Path & "\dosyam.xls" & ";extended properties=""excel 8.0;hdr=yes"""
rs.Open "SELECT GUNLER.GEMI * FROM GUNLER", conn, 1, 1
rng.CopyFromRecordset rs
Set rs = Nothing
Set con = Nothing
End Sub