Evet berduş hocam o kodlar zaten mevcut lakin accessman hocamızın gönlü olsun yinede
konu çözümüne kavuştuysa taşıyalım mı cevaplanmışlara?
eklediğim kodda
Excel sayfa isimlerini buluyormuş galiba
mesela birden fazla sayfayı ayrı ayrı tablolara alacak şekilde yapılabilir mi
5 sayfa varsa 5 ayrı tabloya nasıl aldırırız bakacak kaç sayfa varsa o kadar tablo yapacak
https://accesstr.net/konu-excelden-veri-...tarma.html
bağlantısını incelerseniz orada belli bir dosyada yer alan tüm sayfaları alan bir kod var işinize yarayabilir
Set db = OpenDatabase(txtDosyaAdres, True, True, "Excel 5.0")
Me.LstExcelSyf.RowSource = ""
For Each tbl In db.TableDefs
tblAdi = CStr(Replace(tbl.Name, "'", ""))
If Len(tblAdi) = InStr(tblAdi, "$") Then Tur = "Sayfa" Else Tur = "Alan"
Me.LstExcelSyf.AddItem Tur & ";" & tblAdi & ";" & Replace(tblAdi, "$", "")
Next
orada dosya seçme penceresinden ilgili dosya seçilip tüm sayfa ve alanlar liste kutusuna aktarılır
siz sadece sayfa türünde olanları liste kutusuna yada diziye aktararak yapabilirsiniz
teşekkürler inceleyeceğim
(16/02/2020, 16:40)berduş yazdı: iyi de orada zaten kullanılmış
If Not IsNull(DLookup("Name", "MSysObjects", "Name='TmpTablo'")) Then DoCmd.DeleteObject acTable, "TmpTablo"
önce dosya var mı diye kontrol ediyor sonrada varsa siliyor. sizin yapmanız gereken silmek yerine kendi istediğiniz kodu yazmak.
Alttaki kod koşullu tablo adı buluyor anladığım.
Çok ilginçmiş.Standart olarak böyle arayabiliriz değil mi ?
DLookup("Name", "MSysObjects", "Name='TmpTablo'")