Excelden Word veri çekme

[mlcevik]

Merhaba arkadaşlar. Excelden word "posta gönderileri" birleştirme alanı ekle ile veri çekiyorum. Ancak excel ve hazır şablon olan word dosyalrının olduğu klasörü başka bir yere taşıdığımda word deki veriler gelmiyor. Çözümü var mı? Word için makro ile halledilebilir mi?

 

[muhasebeciyiz]

Word’de Posta Gönderileri (Mail Merge) özelliği kullanırken Excel dosyasını veri kaynağı olarak bağladığında, Word aslında dosyanın tam yolunu (C:\Users\...\Dosya.xlsx gibi) kaydediyor. Sen klasörü taşıdığında bu yol bozuluyor ve Word dosyayı bulamıyor, bu yüzden veriler gelmiyor.

En pratik yöntem: Word şablonun ve Excel dosyanı aynı klasörde tutmak, sonra Word’de veri kaynağını yeniden bağlamak. Bundan sonra klasörü taşısan bile sadece klasör içindeki dosya adları değişmediği sürece sorun çıkmaz.

Örneğin Word belgesine şu kodu ekleyebilirsin:

Sub BaglantiYenile()
    Dim doc As Document
    Dim veriKaynak As String
    
    Set doc = ActiveDocument   
    
    veriKaynak = doc.Path & "\Harcamalar.xlsx"   
    
    doc.MailMerge.OpenDataSource _
        Name:=veriKaynak, _
        ConfirmConversions:=False, _
        ReadOnly:=False, _
        LinkToSource:=True, _
        AddToRecentFiles:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Excel 12.0", _
        SQLStatement:="SELECT * FROM [Sayfa1$]"
End Sub

Word varsayılan olarak tam yol kaydeder → klasör taşıyınca bozulur.
Çözüm: Dosyaları aynı klasörde tutmak veya VBA makrosu ile dinamik yol kullanmak.
Makro sayesinde Word her açıldığında bulunduğu klasördeki Excel’i otomatik bağlar.

 

[mlcevik]

Hocam teşekkür ederim cevabınız için . Formülde hata yapmak istemiyorum dosya yolarına göre kodu yenileyebilrimiyiz size zahmet.
excel yolu "C:\Users\mlcevik lenovo2\Desktop\Yeni klasör\2026 ceza listesi.xlsm"
word yolu "C:\Users\mlcevik lenovo2\Desktop\Yeni klasör\ipc_taksit_sablon.docx"

 

[muhasebeciyiz]

Sub BaglantiYenile()
    Dim doc As Document
    Dim veriKaynak As String
    Dim wordDosya As String   
    
    wordDosya = "C:\Users\mlcevik lenovo2\Desktop\Yeni klasör\ipc_taksit_sablon.docx"   
    
    veriKaynak = "C:\Users\mlcevik lenovo2\Desktop\Yeni klasör\2026 ceza listesi.xlsm"   
    
    Set doc = Documents.Open(wordDosya)   
    
    doc.MailMerge.OpenDataSource _
        Name:=veriKaynak, _
        ConfirmConversions:=False, _
        ReadOnly:=False, _
        LinkToSource:=True, _
        AddToRecentFiles:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Excel 12.0", _
        SQLStatement:="SELECT * FROM [Sayfa1$]"
End Sub

NOT: Excel dosyasında kullandığın sayfa adı gerçekten Sayfa1 olmalı. Eğer farklıysa (Sheet1, CezaListesi vb.), SQLStatement kısmını ona göre değiştir.
Word dosyası zaten açıksa, Documents.Open yerine Set doc = ActiveDocument kullanabilirsin.

 

[mlcevik]

çok teşekkür ederim hocam emeğinize sağlık ..

 

[muhasebeciyiz]

Sub BaglantiYenile()
    Dim doc As Document
    Dim veriKaynak As String   
    
    Set doc = ActiveDocument   
    
    veriKaynak = "C:\Users\mlcevik lenovo2\Desktop\Yeni klasör\2026 ceza listesi.xlsm"   
    
    doc.MailMerge.OpenDataSource _
        Name:=veriKaynak, _
        ConfirmConversions:=False, _
        ReadOnly:=False, _
        LinkToSource:=True, _
        AddToRecentFiles:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Excel 12.0", _
        SQLStatement:="SELECT * FROM [Sayfa1$]"
End Sub

Bu sürümde Word belgesini ayrıca açtırmıyoruz, zaten açık olan ipc_taksit_sablon.docx üzerinde çalışıyor. Böylece Word dosyasını ayrıca açmana gerek kalmaz, zaten açık olan belgeye veri kaynağını bağlamış olursun

 

[muhasebeciyiz]

Sub BaglantiYenile()
    Dim doc As Document
    Dim veriKaynak As String
    Dim wordDosya As String   
    
    wordDosya = "C:\Users\mlcevik lenovo2\Desktop\Yeni klasör\ipc_taksit_sablon.docx"   
    
    veriKaynak = "C:\Users\mlcevik lenovo2\Desktop\Yeni klasör\2026 ceza listesi.xlsm"   
    
    Set doc = Documents.Open(wordDosya)   
    
    doc.MailMerge.OpenDataSource _
        Name:=veriKaynak, _
        ConfirmConversions:=False, _
        ReadOnly:=False, _
        LinkToSource:=True, _
        AddToRecentFiles:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Excel 12.0", _
        SQLStatement:="SELECT * FROM [Sayfa1$]"
End Sub

Bu sürümde Word belgesini açtırıyoruz, sonra Excel dosyasını veri kaynağı olarak bağlıyoruz:

Aktif belge üzerinden bağlayan (ilk verdiğim)
Word dosyasını açarak bağlayan (şimdi verdiğim)

 

[mlcevik]

Hocam şöyle bir sorun oldu. yukarıdaki dosyayı D ye kopyaladığımda D de bulunan klasörde değil de eski klasörün içindeki excelden veri almaya çalışıyor.

 

[muhasebeciyiz]

Bu yaşadığınız sorun aslında Word’ün MailMerge bağlantısını dosyanın içine gömülü olarak saklamasından kaynaklanıyor. Yani siz Word dosyasını D:\ sürücüsüne kopyalasanız bile, Word belgesinin içinde hâlâ eski Excel dosyasının yolu kayıtlı kalıyor. VBA kodu çalıştığında Word, önce belgedeki eski bağlantıyı hatırlıyor ve oraya yöneliyor.

Siz zaten veriKaynak değişkenini D:\ sürücüsüne göre değiştirmelisiniz. Örneğin:
wordDosya = "D:\Yeni klasör\ipc_taksit_sablon.docx"
veriKaynak = "D:\Yeni klasör\2026 ceza listesi.xlsm"

veya Belgedeki bağlantıyı elle kaldırın
Word dosyasını açın
Mailings → Select Recipients → Use Existing List menüsünden gidin
Eski Excel dosyasını kaldırın ve yeni Excel dosyasını seçin
Sonra dosyayı kaydedin
Böylece Word belgesinin içinde artık D:\ sürücüsündeki Excel yolu kayıtlı olur.

Alternatif Kod

Aşağıdaki kodu kullanırsanız Word belgesini açtığınızda önce eski bağlantıyı temizler, sonra sizin belirttiğiniz Excel dosyasını yeniden bağlar. Böylece dosyayı D:\ sürücüsüne kopyaladığınızda artık eski klasöre gitmeye çalışmaz:

Sub BaglantiYenile()
    Dim doc As Document
    Dim veriKaynak As String
    Dim wordDosya As String
    
    wordDosya = "D:\Yeni klasör\ipc_taksit_sablon.docx"
    veriKaynak = "D:\Yeni klasör\2026 ceza listesi.xlsm"   
    
    Set doc = Documents.Open(wordDosya)   
    
    With doc.MailMerge
        .MainDocumentType = wdFormLetters
        .DataSource.Close
    End With   
    
    doc.MailMerge.OpenDataSource _
        Name:=veriKaynak, _
        ConfirmConversions:=False, _
        ReadOnly:=False, _
        LinkToSource:=True, _
        AddToRecentFiles:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Excel 12.0", _
        SQLStatement:="SELECT * FROM [Sayfa1$]"
End Sub