ADO Kapalı Dosyadan veri alma

[vimpir]

Arkadaşlar merhaba,Kapalı dosyadan veri almada bir sorum var bir tane örnek yaptım. lütfen yardımcı olun. ADO-DAO-Kapalı Dosya Uygulamalarına konu açamadığım için buraya açıyorum... Şimdiden teşekkür ederim...

 

[Korhan Ayhan]

Merhaba,

Forumda ExecuteExcel4Macro ifadesi ile arama yapın. Uygulamasını yapabileceğiniz örnekler var.

 

[vimpir]

Merhaba,

Forumda ExecuteExcel4Macro ifadesi ile arama yapın. Uygulamasını yapabileceğiniz örnekler var.

Hocam Örnekler var haklısınız ama ya sayfanın tamamını yada bir bölümünü alıyor 3 günden beri ugraşıyorum. editleyemedim bir örnek gösterirseniz çalışmam üzerinde çalışmamdaki öteki eksiklikleri getirip tamamlayacağım lütfen yardım edin...

 

[tahsinanarat]

Böyle işinizi görürmü

Bağlantı kurmak yolu ile işinizi görürmü, özet adlı dosya açılışında güncelleyi seçerseniz kapalı olan dosyadaki verileri çekecektir.

 

[vimpir]

Bağlantı kurmak yolu ile işinizi görürmü, özet adlı dosya açılışında güncelleyi seçerseniz kapalı olan dosyadaki verileri çekecektir.

yardımlarınız için teşekkür ederim.
denedim ama sıkıntı çok fazla sayıda excelin olması güncelleme olayı excel sayfasını çok fazla kasmasına sebep oluyor... kapalı dosyadan veri çekme makrolarla daha fazla işime yarayacaktır diye düşünüyorum sadece bir satır örnek verebilirseniz çok çok iyi olacak bana lütfen yardım...

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim Dosya As String, Yol As String
 
    Yol = ThisWorkbook.Path & Application.PathSeparator
    Dosya = "[orhanli_ocak2012.xls]Sayfa'!"
 
    Range("A31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C3")
    Range("B31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C2")
    Range("D31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("E31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10")
    Range("F31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10")
    Range("G31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C4")
    Range("H31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C5")
    Range("I31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C9")
    Range("Q31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C6")
    Range("R31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C22")
    Range("S31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C16")
    Range("T31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C12")
    Range("U31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C17") + ExecuteExcel4Macro("'" & Yol & Dosya & "R36C18")
    Range("V31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C19")
    Range("W31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C20")
 
    MsgBox "Veriler güncellenmiştir.", vbInformation
End Sub

 

[vimpir]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim Dosya As String, Yol As String
 
    Yol = ThisWorkbook.Path & Application.PathSeparator
    Dosya = "[orhanli_ocak2012.xls]Sayfa'!"
 
    Range("A31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C3")
    Range("B31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C2")
    Range("D31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("E31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10")
    Range("F31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10")
    Range("G31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C4")
    Range("H31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C5")
    Range("I31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C9")
    Range("Q31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C6")
    Range("R31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C22")
    Range("S31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C16")
    Range("T31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C12")
    Range("U31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C17") + ExecuteExcel4Macro("'" & Yol & Dosya & "R36C18")
    Range("V31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C19")
    Range("W31") = ExecuteExcel4Macro("'" & Yol & Dosya & "R36C20")
 
    MsgBox "Veriler güncellenmiştir.", vbInformation
End Sub

Çok Teşekkür ederim...