Skip to main content

AccessTr.neT


Excele Accessteki Tablo Adları Getirme

Excele Accessteki Tablo Adları Getirme

Çözüldü #1
Merhaba.

Excele kapalı accessden tablo adı getiiriyorum.
Fakat resimdede görüldüğü gibi gizli olanlarda geliyor.

[Resim: do.php?thmb=9096]

Gizli olanların gelmemesi için ne yapmak gerek?

Teşekkürler.
.rar Kapali Access sayfa adi(Tablo) bulma Ado.rar (Dosya Boyutu: 50,31 KB | İndirme Sayısı: 4)
Cevapla
#2
Tabloların alt tarafındaki alana sağ tıklayın...
"Dünyayı fazla düşünme."
Cevapla
#3
Konuyu yanlış yazmışım.
Tabloları ben görünür yaptım ayarlardan.

Excele gelecek tablo adı resimdeki gizli olanlar gelmeyecek.
Kodlar Excel içinde.
Cevapla
#4
Sub sayfaisimlerinial(ByRef DosyaUzunismi As String, ByRef Sayfaisimlerilistesi() As String)

    Dim objBaglanti As Object
    Dim adoverisi As Object
    Dim sayfaindis As Long
    Dim adobaglanti As String
    Dim sayfaisimleri As String
    
    Erase Sayfaisimlerilistesi()
    
    adobaglanti = "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DosyaUzunismi
    
    Set objBaglanti = CreateObject("ADODB.Connection")
    objBaglanti.Open adobaglanti
    Set adoverisi = objBaglanti.openschema(20)
    
    Do While Not adoverisi.EOF
        If LCase(Left(adoverisi.Fields("TABLE_NAME").Value, 4)) <> "msys" Then
            sayfaisimleri = adoverisi.Fields("TABLE_NAME").Value
            sayfaisimleri = Replace(adoverisi.Fields("TABLE_NAME").Value, "''", "'")
            ReDim Preserve Sayfaisimlerilistesi(0 To sayfaindis)
            Sayfaisimlerilistesi(sayfaindis) = sayfaisimleri
            sayfaindis = sayfaindis + 1
        End If
        adoverisi.movenext
    Loop
    
    adoverisi.Close
    Set adoverisi = Nothing
    objBaglanti.Close
    Set objBaglanti = Nothing


End Sub
"Dünyayı fazla düşünme."
Cevapla
#5
Mobilden kodun inceledim.Pasif yaptığım if kodlarını aktif yapmışsınız.
Ben extra pasip yapmıştım baş yoldan çözüm için.
Cevapla
#6
Sorunuz "Excel Soruları ve Cevapları" bölümüne taşınmıştır
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task