Skip to main content

AccessTr.neT


Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma

tarkanaykın
tarkanaykın
5
265

Ado Sorgusunda "from" Dan Sonra Gelen Sayfa Adını Hücreden Aldırma

Çözüldü #1
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
Cevapla
#2
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 Sub
Cevapla
#3
Bu cok iyi, gayet sade, anlaşılır bir kod bloku , cok teşekkür ederim berduş hocam sagolun.
Cevapla
#4
Rica ederim
İyi çalışmalar
Cevapla
#5
Sorun çözüldüyse cevaplanmışlara taşıyalım mı?
Cevapla
#6
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 & "$]
.rar Kapalı excelden sayfa isimleri bulma(ADO) sayfaya aktar.rar (Dosya Boyutu: 18,55 KB | İndirme Sayısı: 5)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da