• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ADO kapalı dosyadaki bir sayfadan veri almak

Katılım
29 Mart 2007
Mesajlar
89
Excel Vers. ve Dili
excel 2007 türkçe
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
 

Ekli dosyalar

Dosyanız ektedir.:cool:
Kod:
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
 

Ekli dosyalar

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
 
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.:cool:
 
Evren Bey
çok çok teşekkür ediyorum
elinize, emeğinize sağlık
saygılarımı sunuyorum
iyi akşamlar
 
Evren Bey
çok çok teşekkür ediyorum
elinize, emeğinize sağlık
saygılarımı sunuyorum
iyi akşamlar
Rica ederim.
Bilmukabele
 
Geri
Üst