Kapalı excel dosyasından veri çekmek

[sakoz]

Üstadlar Merhaba ,

Epey bir araştırma yaptım fakat kendime uyarlayamadığım için yardımlarınızı rica edecektim.

Şimdi ; DUZENLENMIS_SIRKULER.xlsx dosyasından SIRKULER_BINEK ve SIRKULER_H.TICARI sayfalarındaki F,G,H,I,J,K,L sütunlarını alıp Ekspertiz Formu Orjinal.xlsm dosyasında SIRKULER sayfasına her defasında manuel olarak kopyalıyoruz.

Bunu otomatik olarak yapabilme konusunda yardımcı olurmusunuz lütfen...
Örnek dosyalar ektedir.

Dosyalar genelde aynı yerde oluyor. Ama başka bir yerde olma ihtimalinide düşünmek gerekiyor.

http://www.dosya.tc/server9/rm9h6v/dosyalar.rar.html

 

[sakoz]

Herkese günaydınlar ,

Yardımcı olabilirseniz çok seviniriz...
Teşekkürler.

 

[sakoz]

Arkadaşlar yardımlarınızı bekliyoruz

 

[sakoz]

Arkadaşlar konu günceldir. Yardımcı olabilir misiniz ?
Teşekkürler.

 

[askm]

Aşağıdaki kodları kullanabilirsiniz sanırım.

Sub ASKM_Veri_Aktar()
Dim Con As Object, Rs As Object, Fso As Object
Dim Sorgu As String, Dosya As String
Set Con = CreateObject("AdoDb.Connection")
Set Rs = CreateObject("AdoDb.RecordSet")
Dosya = "DUZENLENMIS_SIRKULER"
Range("A2:G1048576").ClearContents

Con.Open "provider=Microsoft.Ace.OleDb.12.0;Data Source=" & ThisWorkbook.Path & "\" & Dosya & ".xlsx" & _
";Extended Properties=""Excel 12.0;HDR=YES"""
Sorgu = "Select [STOK KODU] , [PARÇA SIRA], [ADI], [TAVSIYE EDILEN PERAKENDE SATIS FIYATI (KDV HARIC)], [KDV ORANI], [TAVSIYE EDILEN PERAKENDE SATIS FIYATI (KDV DAHIL)], [GENEL INDIRIM ORANI] FROM [SIRKULER_BINEK$]"
Rs.Open Sorgu, Con, 1, 3
Range("A" & Range("A1048576").End(3).Row + 1).CopyFromRecordset Rs
Rs.Close
Sorgu = "Select [STOK KODU] , [PARÇA SIRA], [ADI], [TAVSIYE EDILEN PERAKENDE SATIS FIYATI (KDV HARIC)], [KDV ORANI], [TAVSIYE EDILEN PERAKENDE SATIS FIYATI (KDV DAHIL)], [GENEL INDIRIM ORANI] FROM [SIRKULER_H.TICARI$]"
Rs.Open Sorgu, Con, 1, 3
Range("A" & Range("A1048576").End(3).Row + 1).CopyFromRecordset Rs
Rs.Close: Con.Close
Set Con = Nothing: Set Rs = Nothing
MsgBox "Aktarma işlem tamamdır" & vbLf & "KOLAY GELSİN", vbOKOnly + vbInformation, "ASKM"
End Sub

 

[sakoz]

Elinize sağlık sayın askm, teşekkür ederim...

 

[askm]

Rica ederim.