Veri Çekme

[kesikbey]

ArkaDAŞLAR EKTEKİ DOSYADA MİZAN ÇALIŞMA KİTABINA BAŞKA BİR DOSYADAN VERİ ÇEKİYORUM FAKAT, RAKAMLAR METİN OLARAK GELİYOR.BİRDE MÜMKÜNSE VERİYİ BENİM SEÇTİĞİM, İKİ TARİH ARALIĞINDA ALMAK İSTİYORUM,MÜMKÜNMÜ ACABA?
ŞİMDİDEN TEŞEKKÜRLER...

 

[Orion1]

Dosyanız ektedir.

Sub mizan_al_59_V2()
Dim conn As ADODB.Connection, rs As ADODB.Recordset
Application.ScreenUpdating = False
Range("B2:W" & Rows.Count).ClearContents
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.Path & "\GÖZDE.xlsm;extended properties=""excel 12.0;hdr=no;imex=1"";"

rs.Open "select F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,F17,F18,F19,F20,F21,F22 from [AKTARILAN$B2:W1040000];", conn, adOpenKeyset, adLockReadOnly
Range("B2").CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation

End Sub

 

[kesikbey]

Orion1 kardeşim çok teşekkürler, işimi görür.