ADO kapalı dosyadaki bir sayfadan veri almak

[1903bjk]

Merhaba Üstadlar,
Ekte "Data" ve "Mizan" isimli iki dosya mevcuttur.Yapmak istediğim "Data" isimli dosyanın "Güncel Mizan" isimli sayfasındaki verileri command button yardımıyla
"Mizan" isimli dosyanın "Güncel Mizan" sayfasına aynı formatta yapıştımak.
Yardımlarınız için şimdiden teşekkürler
Saygılarımla

 

[Orion1]

Dosyanız ektedir.

Sub mizan_al_59()
Dim conn As ADODB.Connection, rs As ADODB.Recordset
Application.ScreenUpdating = False
Range("A5:E" & 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 & "\data.xlsm;extended properties=""excel 12.0;hdr=no;imex=1"";"

rs.Open "select F1,F2,F3,F4,F5 from [Güncel Mizan$A6:E1040000];", conn, adOpenKeyset, adLockReadOnly
Range("A5").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

 

[1903bjk]

Evren Bey
Çok teşekkür ederim.
Ben kodu kendi dosyama uyarlamaya çalıştığımda "user defined type not defined" uyarısı alıyorum.Araştırdım ama bulamadım nedenini ?
Neden kaynaklanıyor olabilir acaba ?
Teşekkürler

 

[Orion1]

Evren Bey
Çok teşekkür ederim.
Ben kodu kendi dosyama uyarlamaya çalıştığımda "user defined type not defined" uyarısı alıyorum.Araştırdım ama bulamadım nedenini ?
Neden kaynaklanıyor olabilir acaba ?
Teşekkürler

VBE 'de
Tools==>Refernces te
Microsoft ActiveX Data Objects 2.x Library tikini seçmelisiniz.

 

[1903bjk]

Evren Bey
çok çok teşekkür ediyorum
elinize, emeğinize sağlık
saygılarımı sunuyorum
iyi akşamlar

 

[Orion1]

Evren Bey
çok çok teşekkür ediyorum
elinize, emeğinize sağlık
saygılarımı sunuyorum
iyi akşamlar

Rica ederim.
Bilmukabele