kapalı excel dosyasından veri almak

[barisist]

merhabalar
kapalı bir excel dosyam var. ismi kapalı olsun mesela. C:\kapalı.xls adresinde kayıtlı.
bir tane de excel dosyam var başka önümde açık, onun adı da acık.xls olsun mesela. bu acık.xls dosyasında bir tuşun arkasına ne yazmam gerekir ki kapalı dosyanın Sayfa1'nin A1 hücresindeki değeri acık isimli dosyanın Sayfa1'nin A1'ine getirsin.

Örnek eklemedim ama konu icabı örnek olarak ekleyecek bişi bulamadım. Tabi ki yapmak istediğim sadece bu değil ama bu kadarını anlatırsınız gerisini çözebileceğimi düşünüyorum...

Teşekkürler

 

[HD1975]

Aşağıdaki makroları bir modül içine ekleyin ve sayfa isimlerini kendi sayfanıza göre değiştirin,kitap1 olan yere kapalı olan dosyanızın ismini yazın.


Öncelikle ,Microsoft Activex Data Objects 2.8 library yüklü olması gerek.

Bu arada,bu vesile ile kodu yazan arkadaşa tekrar teşekkür ediyorum.

Public con As Object, rs As Object
Sub Baglan()
Set con = CreateObject("adodb.connection")
If con.State = 1 Then con.Close
con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _
"\kitap1.xls;extended properties=""excel 8.0;hdr=yes"""
End Sub


Dim Baglan As New ADODB.Connection
Dim Kayit As New ADODB.Recordset
Sub al()
Set Baglan = New ADODB.Connection
Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\KiTAP1.xls;" & "Extended Properties=""Excel 8.0;HDR=Yes"""
Set Kayit = New ADODB.Recordset
Kayit.Open "SELECT * FROM [Sayfa1$]", Baglan, adOpenDynamic, adLockOptimistic
Sayfa3.Range("A2").CopyFromRecordset Kayit
Kayit.Close
Baglan.Close
Set Kayit = Nothing
Set Baglan = Nothing
End Sub



Saygılar

 

[Orion1]

2 dosyanında ayni klasör içinde olması lazım.

Range("A1").Value = Application.ExecuteExcel4Macro("'" & _
ThisWorkbook.Path & "\[Kapalı.xls]Sayfa1'!R1C1")

 

[barisist]

öncelikle ilginiz için çok teşekkür ederin.

Microsoft Activex Data Objects 2.8 library nereden yüklenebilir ? google da bi sürü link çıkıyo ama reklam filan olanlar var, yanlış bişi yüklemeyeyim. güvenilir bir link verebilir misiniz ??

 

[a_kürşat]

Private Sub CommandButton1_Click()

i = 1
ActiveSheet.Range("A1").Formula = _
"='C:\[kapali.xls]Sayfa1'!a" & i

End Sub

dosyalar farklı klasörlerde olabilir.makro ayarlarında güvenliği düşürün.a1 hücresine formülle veri çekiyor.hiçbirşey yüklemenize gerek yok. denemek için bir buton oluşturun ve bu kodu yerleştirin yeter.benim işime yaradı, umarım sizinde yarar.

 

[Orion1]

öncelikle ilginiz için çok teşekkür ederin.

Microsoft Activex Data Objects 2.8 library nereden yüklenebilir ? google da bi sürü link çıkıyo ama reklam filan olanlar var, yanlış bişi yüklemeyeyim. güvenilir bir link verebilir misiniz ??

Benim 3 numaralı mesajımı inceledinizmi.
Activex object yüklemenize gerek yok.

 

[HD1975]

Vba Kod sayfasında Tools/References bölümünde resimdeki işaretli olanı seçmeniz yeterli olacaktır.

Saygılar

 

[barisist]

1 hücreyi alıp getirmek bu şekilde mümkün oldu ama kapalı dosyadan i. satırı kopyalayıp açık dosyanın j. satırına yapıştırmayı başarmadım. kapalı dosyanın da işlem sırasında açık olması gerekiyor. kapalı dosyayı hiç açmadan, satır kopyalama işini yapabilir miyim ??

tüm ilgilenen arkadaşlara sonsuz teşekkürler...

 

[Orion1]

1 hücreyi alıp getirmek bu şekilde mümkün oldu ama kapalı dosyadan i. satırı kopyalayıp açık dosyanın j. satırına yapıştırmayı başarmadım. kapalı dosyanın da işlem sırasında açık olması gerekiyor. kapalı dosyayı hiç açmadan, satır kopyalama işini yapabilir miyim ??

tüm ilgilenen arkadaşlara sonsuz teşekkürler...

Yapabilirsiniz tabi benim verdiğim kodları döngüye girip kullanırsanız istediğiniz alırsınız.
R satırı ifade ediyor C ise Kolunu ifade ediyor.Döngüde istediğiniz gibi kullanın.

 

[Orion1]

A1:A10Aralındaki verielri a sütununa a1 :a10 aralığın aa yazar.

For i = 1 To 10
    Cells(i, "A").Value = Application.ExecuteExcel4Macro("'" & _
    ThisWorkbook.Path & "\[Kapalı.xls]Sayfa1'!R" & i & "C1")
    
Next