- Katılım
- 11 Mart 2005
- Mesajlar
- 3,053
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Aşağıdaki kod ile kapalı başka bir excel dosyasından Left Join operatörü kullanabiliyoruz,
Burada kaynak dosya olan WB2 Excel dosyası yerine Access veritabanı olursa kodlar üzerinde nasıl bir düzzenleme yapmak gerekecektir?
"db2.accdb"
teşekkürler,
iyi Çalışmalar.
Aşağıdaki kod ile kapalı başka bir excel dosyasından Left Join operatörü kullanabiliyoruz,
Burada kaynak dosya olan WB2 Excel dosyası yerine Access veritabanı olursa kodlar üzerinde nasıl bir düzzenleme yapmak gerekecektir?
"db2.accdb"
Kod:
Sub demememe()
Set con = VBA.CreateObject("adodb.Connection")
WB1 = ActiveWorkbook.FullName
WB2 = "kaynak dosya"
strConnection = _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"User ID=Admin;" & _
"Data Source='" & ActiveWorkbook.FullName & "';" & _
"Extended Properties=""Excel 12.0;hdr=yes"""
sorgu = _
"Select t2.[şehir] from [" & WB1 & "].[hedef$] as t1 " & _
"left join " & _
"[" & WB2 & "].[Plakalar$] as t2 " & _
"on t1.[plaka] = t2.[plaka]"
con.Open strConnection
Set rs = con.Execute(sorgu)
Range("B2").CopyFromRecordset rs
End Sub
iyi Çalışmalar.