Dosyayı Excele Aktarma

[Utekiner]

Merhaba,

Kapalı bir dosyayı açık olan excele aktarmak için destek olabilir misiniz.

-İlk adım Klasör seçeneğinin açılması,
-Seçilen excelin açık olan sayfaya tüm haliyle aktarması (Başlık,Satır,Sütun)

Teşekkürler.

 

[ÖmerFaruk]

Forumda KAPALI DOSYA diye aratın. ADO ile olan en basit çözümü uygulayabilirisn.

Bu konuda @Erdem Akdemir beyin eğitici dosyaları ve youtube videoları var.
https://www.excel.web.tr/threads/excel-ado-kapali-dosyalarla-calisma-egitimi-uecretsiz-youtubeda.190769/#post-1098511

 

[Utekiner]

@ÖmerFaruk Bey çok az makro konusunda bilgiye sahibim. O yüzden UDEMY sistesinden sıfırdan makro eğitimi alıyorum. Bugün başladım. Yönledirme için teşekkürler.

Önce sitelerde araştırma yapıyorum. Bulamadığım durumda konu açıyorum. Bir çok örnek buldum ama sadece talebimdeki konu bulamamıyorum.
Henüz nesneleri öğreniyorum. Vaktiniz olursa örnek gösterir misiniz. Konu hakkında. Aslında yapmak isteğin bir kaç veriyi birleştirmek ama öğrenmek acısından sadece merak ettiğim durumlar için konu açarak ilerlemeye çalışıyorum.

 

[ÖmerFaruk]

Verdiğim linkte Erdem beyin yotube videoları var.
Orada ilk konu zaten direkt sorunuzun cevabı.
Kapalı Excel dosyasındaki tüm satır sütunları açık olan çalışma sayfanıza alıyor.

 

[Utekiner]

Ömer Faruk Bey
Evet ama benim talebim de " önce klasör seçme seçeneğinin gelmesi, Daha sonrasında excel bilgilerinin aktarılması...
Direk bilgilerini aktaran bir çok örnek dosya mevcut.

 

[İdris SERDAR]

.

Buradaki dosya işinize yarayabilir.

DOSYA VE SAYFALARININ TEK SAYFADA BİRLEŞTİRİLMESİ – Excel Gurusu

.

 

[Utekiner]

@İdris SERDAR Bey teşekkür ederim.

 

[Utekiner]

@İdris SERDAR Bey,
Birleştirme yapmadan sadece sizin örnek dosyanızda ki veri gibi önce klasör seçme seçeneği ardından aktarma işlemi için hangi kodları dikkate almam gerekir.

 

[İdris SERDAR]

.

Dosyanın girişinde açıklamada yazıyor.

.

 

[Utekiner]

Pardon İdris Bey makro konusunda yeni olduğum için çözmeye çalışıyorum.

 

[Utekiner]

Hocam sizin dosyayı denedim. hocam kendi excel dosyama uyarlayamadım. Hocam destek olabilir misiniz.

 

[gicimi]

Merhaba,
Aşağıdaki kodu kendi çalışmanız için kullanabilirsiniz, kod içinde ilgili yerleri değiştiriniz.
İdris Bey'in paylaştığı kodları inceleyip birleştirme yapabilirsiniz.

Sub ornek()
Application.ScreenUpdating = False
Sayfa1.Range("A2:B100").Select 'Seçmek istediğiniz Sayfa ismi ve hücre aralığı
Selection.Copy
Workbooks.Open Filename:="Dosyanızın bulunduğu klasör\dosya adı.xlsx" 'Klasördeki dosyayı açma
Sheets("Sayfa1").Select ' Açılan Dosyadaki Sayfa ismi
Sheets("Sayfa1").Range("A65535").End(xlUp).Offset(1, 0).Select ' Seçilecek Alan
Sheets("Sayfa1").Activate
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Selection.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Workbooks("Dosya adı.xlsx").Close True ' Açılan dosyanın kapatılması
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

 

[Utekiner]

Hocam malesef makro bilgim iyi değil. Uyarlayamadım. Lütfen destek olabilir misiniz.

 

[1mak1mak]

Merhaba
Araya girdim ama aşağıdaki Kod da başka bir kitap'dan Örnek Sayfa1 den Sorgu olmadan bir Hücreden
Örnek [M2] hücresinden değeri almak için ne gibi bir değişiklik gerekiyor. Verilen Örnek Aynı Kitap dan Farklı 3-4 Hücre de olabilir

Sub Ado_Kapali()
    Dim Con As Object, Rs As Object, Sorgu As String
    Set Con = CreateObject("AdoDB.Connection")
    Set Rs = CreateObject("AdoDB.RecordSet")
    Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\Gürmen Yatırım.xlsx" & ";Extended Properties=""Excel 12.0;Hdr=yes"""
    Sorgu = "Select TİPİ, [ALIM TARİHİ], BANKA From [Sayfa1$]"
    Rs.Open Sorgu, Con, 1, 1
    Range("A2").CopyFromRecordset Rs  >> Gene Tercihen Farklı Hücrelere Yazılacak şekilde.
    Rs.Close: Con.Close
    Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing
End Sub

 

[ÖmerFaruk]

Sorgu olmadan....ADO yöntemiyle değil de başka bir yöntem mi istiyorsunuz?

 

[Korhan Ayhan]

@1mak1mak,

Aşağıdaki gibi yapabilirsiniz.

Sub Ado_Kapali()
    Dim Con As Object, Rs As Object, Sorgu As String
    Set Con = CreateObject("AdoDB.Connection")
    Set Rs = CreateObject("AdoDB.RecordSet")
    Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\Gürmen Yatırım.xlsx" & ";Extended Properties=""Excel 12.0;Hdr=no"""
    Sorgu = "Select * From [Sayfa1$M2:M2]"
    Rs.Open Sorgu, Con, 1, 1
    Range("A2").CopyFromRecordset Rs  >> Gene Tercihen Farklı Hücrelere Yazılacak şekilde.
    Rs.Close: Con.Close
    Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing
End Sub

 

[Utekiner]

@Korhan Ayhan Bey bana da destek olabilir misin.

 

[Korhan Ayhan]

Diğer arkadaşlar bolca çözüm sundular. İstediğiniz sonuca ulaşamadınız mı?

 

[Utekiner]

Diğer arkadaşlar bolca çözüm sundular. İstediğiniz sonuca ulaşamadınız mı?

Hocam arkadaşların sundukları tam talebi mi karşılamadı. Uyarlamaya çalıştım ama yapamadım. #1 mesajımdaki belirttiğim durum için destek olur musunuz.

 

[Korhan Ayhan]

Siz klasör mü seçmek istiyorsunuz yoksa tek bir dosya mı?