word e excelden veri çekme ?

Kodla Büyü
sertokus

sertokus

Süper Üye
Süper Üye
Mesajlar
2,350
Excel de düşey ara ile bir dizi formül oluşturdum. Böylece word e buradan bilgileri çekebiliyorum.
Bu excelden veri çekme işini basit bir yol kullanarak yaptım? Excelden kopyalayıp word e yapıştırırken BAĞLA
diyerek yapışıtrıyorum.

Sorum şu. Niçin bu dosyaların yerini başka bir klasöre taşıyınca çalışmıyor (ikisini de aynı klasöre taşıyorum word ve
excel belgelerini)
Çalışması için ne yapmam gerekir.

OTOMATİK GÜNCELLEŞTİRME YAPMIYOR

Office 2010 Kullanıyorum

Teşekkür ederim
 
Daha yeni farkettim. Word belgesini kapatıp açınca bağlantıyı kaybediyor.
Ne yapabilirim
 
"Niçin bu dosyaların yerini başka bir klasöre taşıyınca çalışmıyor?"
Hocam bağlantı yapılırken EXCEL belgesinin sabit diskteki yolunu kullanılıyor, doğal olarak Excel belgesini yer değiştirince Wordde sıkıntı çıkar. Ama Excel belgesi sürekli aynı yerde kalırsa, word belgesini istediğiniz yere taşıyın, düzgün çalışır.
Sizin istediğiniz şekilde ikisininde aynı klasörde olduğu ve taşınabildiği durumlar için şöyle bi kodu word içine makro olarak yazmanız gerekir.

http://www.mrexcel.com/forum/excel-ques ... -word.html
Kod: 
Sub OpenExcelFile()
    
    Dim oExcel As Excel.Application
    Dim oWB As Workbook
    Set oExcel = New Excel.Application
    Set oWB = oExcel.Workbooks.Open("C:\Documents and Settings\...\Import.xls")
    oExcel.Visible = True
    Set oWB = oExcel.Workbooks.Open(sPath)
    'Rest of code
    
End Sub

ayrıca bu sitedeki açık/kapalı dosyalara erişim konu başlıklarını da inceleybilirsiniz. pek çok örnek mevcut.
http://www.excel.web.tr/f117/
 
systran' Alıntı:
"Niçin bu dosyaların yerini başka bir klasöre taşıyınca çalışmıyor?"
Hocam bağlantı yapılırken EXCEL belgesinin sabit diskteki yolunu kullanılıyor, doğal olarak Excel belgesini yer değiştirince Wordde sıkıntı çıkar. Ama Excel belgesi sürekli aynı yerde kalırsa, word belgesini istediğiniz yere taşıyın, düzgün çalışır.
Sizin istediğiniz şekilde ikisininde aynı klasörde olduğu ve taşınabildiği durumlar için şöyle bi kodu word içine makro olarak yazmanız gerekir.

http://www.mrexcel.com/forum/excel-ques ... -word.html
Kod: 
Sub OpenExcelFile()
    
    Dim oExcel As Excel.Application
    Dim oWB As Workbook
    Set oExcel = New Excel.Application
    Set oWB = oExcel.Workbooks.Open("C:\Documents and Settings\...\Import.xls")
    oExcel.Visible = True
    Set oWB = oExcel.Workbooks.Open(sPath)
    'Rest of code
    
End Sub

ayrıca bu sitedeki açık/kapalı dosyalara erişim konu başlıklarınıda inceleybilirsiniz. pek çok örnek mevcut.
http://www.excel.web.tr/f117/
Genişletmek için tıkla ...

Çok profosyonelce bir yanıt oldu. :)
Hocam TEŞEKKÜR EDERİM
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst