Arşiv Access'den Excel'e Dış Veri Al ile veri alınırken SQL metni kullanmak.

Direkt Access'ten bir kere veriler tablo olarak alındığında, kodların koyu şekilde belirtilmiş Kısımına gerek yok.
Kodların silinecek kısmını, klasör indirildiğinde Access dosyasının yolu değişeceğinden ekledim..
Not: Aynı şekilde SQL serverden veri alınırken de kullanılabilinir.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$1" Then
With Range("A1").ListObject.QueryTable
.Connection = Array( _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & ThisWorkbook.Path & "\db.accdb;Mode=Share Deny Write;E" _
, _
"xtended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Jet OLEDBatabase Locking" _
, _
" Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Cr" _
, _
"eate System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Witho" _
, _
"ut Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet " _
, "OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False" _
)
.CommandType = xlCmdSql
.CommandText = "SELECT * FROM Sayfa1 WHERE gun='" & Range("K1") & "'"
.Refresh BackgroundQuery:=False
End With
End If
End Sub