Arkadaşlar bu konuda bayağı araştırma yaptım ama örneklerin hepsi çok farklı idi, benim sorunuma hitap etmiyordu. Aşağıda yer alan sorguda 'from'dan sonra gelen sayfa değişkeni, adını hücreden alsın istiyorum, bir çok deneme yaptım bildiklerim doğrultusunda, ama hep hata verdi. bir de şunu öğrenmek istiyorum, ado ile arama yapacağım kapalı kitaptaki sayfa ismini, kitabı açmadan nasıl alıp bir değişkene atabilirim? şimdiden teşekkürler.
"select [CALISILAN_HAFTA ICI_MESAI_GUN] from [sayfa$] where not isnull([CALISILAN_HAFTA ICI_MESAI_GUN]) and [TC_KIMLIK] ='" & .Cells(i, 2).Value & "'", con, 1, 3
Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma
aşağıdaki kod işinize yarayabilir
yol="c:\......\hedef.xls"
kitap(yol) yazarsanız ilgili kitaptaki sayfaları listeler
yol="c:\......\hedef.xls"
kitap(yol) yazarsanız ilgili kitaptaki sayfaları listeler
Sub Ktp(fn As String) ' As String
Dim conn As Object, db As Object
Dim tbl As Object
Set conn = CreateObject("DAO.DBEngine.120")
Set db = conn.OpenDatabase(fn, False, True, "Excel 12.0 Xml;HDR=Yes;")
For Each tbl In db.TableDefs
Debug.Print tbl.Name
Next
Set db = Nothing
Set conn = Nothing
End Sub
Bu cok iyi, gayet sade, anlaşılır bir kod bloku , cok teşekkür ederim berduş hocam sagolun.
Rica ederim
İyi çalışmalar
İyi çalışmalar
Sorun çözüldüyse cevaplanmışlara taşıyalım mı?
Halil hocam üstadın aslında demek istediği alttaki gibiydi.
Başka konudada yanlış yazmıştı buraya yazmamı istemişti.
Birde sizin sayfa bulma kodları paratik ama bazı dosyalarda sayfanın önüne ve arkasınsa tek tırnak yada print arene vb... gibi sayfalarda çıkartıyordu kendisinden.
Bende arşivimdeki sayfa bulma dosyasını ekledim.
Başka konudada yanlış yazmıştı buraya yazmamı istemişti.
Birde sizin sayfa bulma kodları paratik ama bazı dosyalarda sayfanın önüne ve arkasınsa tek tırnak yada print arene vb... gibi sayfalarda çıkartıyordu kendisinden.
Bende arşivimdeki sayfa bulma dosyasını ekledim.
[" & range("A1").value & "$]
Konuyu Okuyanlar: 1 Ziyaretçi