ADO İle Kapalı Excel'den SQL Sorgusu Çekmek

SQL ve Excel Birleşimi

Açması 5 dakika süren dev arşiv dosyalarını açmak yerine ADO (ActiveX Data Objects) teknolojisi ile o dosyaya veritabanı muamelesi yapıp sorgu atabiliriz.

VBA Kodu:

Sub KapalidanCek()
    ' Gelişmiş ADO kodlamasıdır. Referans gerektirir.
    Dim baglanti As Object, kayit As Object
    Set baglanti = CreateObject("ADODB.Connection")
    baglanti.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Arsiv.xlsx;Extended Properties=""Excel 12.0;HDR=YES"";"
    Set kayit = baglanti.Execute("SELECT * FROM [Sayfa1$] WHERE Satis > 5000")
    Range("A1").CopyFromRecordset kayit
End Sub

Ne Göreceksiniz? Arsiv dosyası ekranda hiç görünmeden ve açılmadan, saniyenin onda biri hızında sadece satışı 5000'den büyük olan satırlar aktif sayfanıza listelenecektir. Bu otomasyonun zirvesidir.