- Katılım
- 1 Ağustos 2019
- Mesajlar
- 839
- Excel Vers. ve Dili
-
Türkçe excel 2016
İngilizce excel 2016
- Altın Üyelik Bitiş Tarihi
- 19-10-2021
Kod:
Sub Veri_Aktar()
Sheets("Takip_Listesi").Select
Range("A5:Y65000").ClearContents
Set con = CreateObject("Adodb.Connection"): Set rs = CreateObject("Adodb.RecordSet")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
"C:\PERSONEL1\deneme.xlsx" & ";extended properties=""excel 12.0;hdr=no;imex=1"""
ilktarih = CLng(CDate(Range("G3").Value))
sontarih = CLng(CDate(Range("H3").Value))
sorgu = "Select f1,f2,f3,f7 from [GRUPLAR$A2:Y65536] WHERE CLng(CDate(f9)) BETWEEN '" & ilktarih & "' and '" & sontarih & "' and NOT isnull(f9)"
'f1 demek 1.sütundaki veri demek
rs.Open sorgu, con, 1, 1
Range("a5").CopyFromRecordset rs
rs.Close: con.Close
Set con = Nothing: Set rs = Nothing: sorgu = Empty
Range("b3").Select
End Sub