+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma (/konu-ado-sorgusunda-from-dan-sonra-gelen-sayfa-adini-hucreden-aldirma.html)
Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma - tarkanaykın - 12/08/2022
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
RE: Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma - berduş - 12/08/2022
aşağıdaki kod işinize yarayabilir
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 SubRE: Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma - tarkanaykın - 12/08/2022
Bu cok iyi, gayet sade, anlaşılır bir kod bloku , cok teşekkür ederim berduş hocam sagolun.
RE: Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma - berduş - 12/08/2022
Rica ederim
İyi çalışmalar
RE: Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma - berduş - 13/08/2022
Sorun çözüldüyse cevaplanmışlara taşıyalım mı?
RE: Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma - feraz - 13/08/2022
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.
[" & range("A1").value & "$]