![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Evet berduş hocam o kodlar zaten mevcut lakin accessman hocamızın gönlü olsun yinede
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
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(16/02/2020, 16:40)berduş yazdı: iyi de orada zaten kullanılmış
önce dosya var mı diye kontrol ediyor sonrada varsa siliyor. sizin yapmanız gereken silmek yerine kendi istediğiniz kodu yazmak.If Not IsNull(DLookup("Name", "MSysObjects", "Name='TmpTablo'")) Then DoCmd.DeleteObject acTable, "TmpTablo"