Diğer Sayfadan Veri Çekme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]conn ve rs nesneleri, veritabanı bağlantısı ve sorgu sonuçları için kullanılır.
[*]connectionString, Excel dosyasına OLE DB aracılığıyla bağlanmak için kullanılan bağlantı dizesidir.
[*]sorgu değişkeni, SQL 'SELECT' sorgusunu içerir. Burada [Sheet2$] başka bir sayfadaki veri tablosunu temsil eder.
[*]rs.Open metodu, SQL sorgusunu çalıştırır ve sonuçları rs nesnesine yükler.
[*]Do While döngüsü, sorgu sonuçları üzerinde dolaşır ve her bir kaydı işler.
[*]Son olarak, rs ve conn nesneleri kapatılarak kaynaklar serbest bırakılır.
Bu kod, aynı Excel çalışma kitabının farklı bir sayfasından veri çekmek için kullanılabilir. Veri çekilecek sayfa adını ve sütun adlarını kendi ihtiyacınıza göre güncellemelisiniz.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub DigerSayfadanVeriCekme()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sorgu As String
Dim connectionString As String
' Bu Excel dosyasına bağlantı dizesi
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
' Bağlantı nesnesini oluştur
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open connectionString
' SQL sorgusu
' Örneğin, 'Sheet2' sayfasından veri çekme
sorgu = "SELECT * FROM [Sheet2$]"
' Sorguyu çalıştır ve sonuçları al
rs.Open sorgu, conn
' Sonuçları işle (Örnek olarak sonuçları hemen mesaj kutusunda gösteriyoruz)
Do While Not rs.EOF
MsgBox "Sutun1: " & rs.Fields("Sutun1").Value
rs.MoveNext
Loop
' Bağlantıyı kapat
rs.Close
conn.Close
End SubAçıklama
[*]conn ve rs nesneleri, veritabanı bağlantısı ve sorgu sonuçları için kullanılır.
[*]connectionString, Excel dosyasına OLE DB aracılığıyla bağlanmak için kullanılan bağlantı dizesidir.
[*]sorgu değişkeni, SQL 'SELECT' sorgusunu içerir. Burada [Sheet2$] başka bir sayfadaki veri tablosunu temsil eder.
[*]rs.Open metodu, SQL sorgusunu çalıştırır ve sonuçları rs nesnesine yükler.
[*]Do While döngüsü, sorgu sonuçları üzerinde dolaşır ve her bir kaydı işler.
[*]Son olarak, rs ve conn nesneleri kapatılarak kaynaklar serbest bırakılır.
Bu kod, aynı Excel çalışma kitabının farklı bir sayfasından veri çekmek için kullanılabilir. Veri çekilecek sayfa adını ve sütun adlarını kendi ihtiyacınıza göre güncellemelisiniz.
Faydalanılması temennisiyle
