Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Docmd.transferspreadsheet Fonksiyon Olarak Çağırma

accessman
accessman
Access Cevaplanmış Soruları
73
6924

Docmd.transferspreadsheet Fonksiyon Olarak Çağırma

#19
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 48
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Evet berduş hocam o kodlar zaten mevcut lakin accessman hocamızın gönlü olsun yinede Img-grin
Cevapla
#20
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,07:16
Yorumları: 8.551
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
konu çözümüne kavuştuysa taşıyalım mı cevaplanmışlara?
Cevapla
#21
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
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
Cevapla
#22
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,07:16
Yorumları: 8.551
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
🔍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
Cevapla
#23
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
teşekkürler inceleyeceğim
Cevapla
#24
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 48
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
(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'")
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task