Tabloların alt tarafındaki alana sağ tıklayın...
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.
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
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.
Sorunuz "Excel Soruları ve Cevapları" bölümüne taşınmıştır