VBA - Bir veritabanını (MDB) Excel'e bağlamak
Office'teki popüler SpreadSheet yazılımı olan Microsoft Excel, kullanıcıların Microsoft Access MDB veritabanına bağlanmasını sağlar. Makrolar kullanılarak Microsoft Access MDB veritabanının Excel'e bağlanması gerçekleştirilebilir. Biraz Excel ve makro bilgisi gerekli olabilir. Access veritabanını Excel Çalışma Sayfalarına bağlamak için bir Microsoft DAO nesne kitaplığı gerekir. Excel'de bir Access Veritabanı açmak ve veritabanındaki verilere erişmek mümkündür. Alanlardaki verilerin Excel Çalışma Sayfasındaki sütunlara kopyalanması ve diğer hesaplamalar gibi Microsoft Access veritabanının Excel'e bağlanması gibi çeşitli veri manipülasyonları yapılabilir.
- Referans ekle
- Microsoft DAO nesne kitaplığı XX
Genel bir modülde, (örneğin Modül1) aşağıdaki kodu yapıştırın
Alt CopyDBaccess () Dim BDexp, Veritabanı Dim Tablosu, Recordset Dim Tabları, TBDef Tablosu, Dim Dim Komiteleri, Lig Kadar Uzunluğu, Tamsayı Ch = "PAth & \ & NameofDB.MDB" Olarak Ayarlayın. (Ch) Tablo Ayarla = BDexp.OpenRecordset ("Ad Tablosu", dbOpenDynaset) 'Hata Ayıklama Tablosu. Baskı Tablosu.Ad Adı TbDef = BDexp.TableDefs ("Ad Tablosu") 'Başlıkları Sütuna Sütunlara Koymak ("Sayfa1") i = 0 için TbDef.Fields.Count - 1 için' Ligne toute toute lage '' Debug.Print TbDef.Fields (i). .Fields (i) .Ad .Cells (Lig, i + 3) = Ad (i) Next '1. Kayıt Tablodan Arayan.MoveFirst Lig = 4 Tablo Değilken.EOF i = 0 İçin TbDef.Fields.Count - 1 'Tüm satırlar için. Hücreler (Lig, i + 3) = Tablo (Ad (i)) Sonraki i Lig = Lig + 1 Tablo.MoveNext' Bir sonraki kayda git Wend Tablo ile Sona Dön. Kapat BDexp.Close Set BDexp = Hiçbir şey Tablo Ayarla = Hiçbirşey Son Alt