Excelden Word e Veri Aktarma

[qwertylion]

Biraz araştırdım excelden word e veri aktaran bir çok kod buldum ama hiç birisi benim ihtiyacımı karşılamıyor. Bulduğum kodlar ya komple excelden worde kopyalıyor yada resim olarak. Ben ise Ekteki excel dosyasındaki tabloları word de ilgili tablo kısmına yazdırmak istiyorum. Yani exceldeki her tablonun word de ilgili tabloya yapışmasını istiyorum. Bu mümkün müdür?

 

[omerceri]

Exceldeki tabablonun bulunduğu hücreleri seçip, kopyalayıp, worde Özel yapıştır ile bağ yapıştırı denedinizmi, Eğer bu yöntem işinizi görmezse kod ile yapmayı deneyebilirim.

 

[hwoarangxc]

excel den değil de access den worde aktarım oluyor. wordde adres mektup birleştirme diye bir araç çubuğu var.

 

[qwertylion]

konuyu açmamda ki sebep çalıştığım işyerinde exceldeki verileri formüllerle , makrolarla düzenleyip 81 il için rapor yazıyoruz. Hazılanan excel dosyasında veri doğrulama ile ili seçtiğimizde o ile ait veriler gelmekte bizde bunları o ile ait word dosyasına kopyalamaktayız. Bağ yapıştır bu anlamda çok işimi görmüyor maalesef ama adres mektup birleştirme olayını bilmiyordum bir bakalım dermanımıza çare olacakmı.

 

[omerceri]

Sn qwertylion
Dosyalar aynı klasörde olduğu varsayarak Exceldeki ilk tablonun ilk hücresinden, Worddeki ilk tablonun ilk kücresine veri aktaran kod aşağıda.
Set ex = CreateObject("Excel.Application")
ex.Workbooks.Open ThisDocument.Path & "/excel.web tr 1 .xls"
ActiveDocument.Tables(1).Cell(1, 1).Range.Text = ex.Range("c4")
ex.Application.Quit
Set ex = Nothing
Not bu kod Word de kullanılacak.

 

[omerceri]

Tamamının aktarım kodları
Set ex = CreateObject("Excel.Application")
ex.Workbooks.Open ThisDocument.Path & "/j.xls"

say = ActiveDocument.Tables(1).Range.Cells.Count
For i = 1 To say
ActiveDocument.Tables(1).Range.Cells(i).Range.Text = ex.Range("c4:G7")(i)

Next
ex.Application.Quit
Set ex = Nothing

 

[qwertylion]

Tamamının aktarım kodları
Set ex = CreateObject("Excel.Application")
ex.Workbooks.Open ThisDocument.Path & "/j.xls"

say = ActiveDocument.Tables(1).Range.Cells.Count
For i = 1 To say
ActiveDocument.Tables(1).Range.Cells(i).Range.Text = ex.Range("c4:G7")(i)

Next
ex.Application.Quit
Set ex = Nothing

benim için inanılmaz kodu 3 tablo içinde uyguladım sorunsuz çalışıyor, çoook eşekkür ederim.

 

[qwertylion]

Hocam sizden bir isteğim daha var; aktarırken 3 sıfırdan sonra noktasız şekilde aktarıyor. ne yaptımsa noktalı şekilde aktaramadım. yardımcı olursanız sevinirim.

 

[omerceri]

Kodu aşağıdaki gibi değiştirirseniz.
ActiveDocument.Tables(1).Range.Cells(i).Range.Text = Format(ex.Range("c4:G7")(i), "##,##0")

 

[qwertylion]

teşekkür ederim

 

[serhatcoban]

işleminiz biraz zor gibi. bulursanız bende faydalanırım sayın qwertylion...

 

[qwertylion]

işleminiz biraz zor gibi. bulursanız bende faydalanırım sayın qwertylion...

Şöyle bir çıkmazdayım. kodu ....format(....,"###,##0.00")formülü kullanırsam 3 sıfır atmadan oran gözükür şekilde, ....format(....,"###,##,") şeklinde kullanırsam 3 sıfır atılmış ancak bu seferde yüzde oranları virgülden sonraki kısımları gözükmemekte.

Her hücreye kodu tek tek girmeyi denemedim bile orjinal dosyamda yaklaşık 300 formül girmem lazım oda hem mümkün.

Üstatlardan yardım isteyeceğiz...

 

[omerceri]

Excel hücrelerinede kullanacağınız sayı biçimlerinizden örnekler verirseniz, bir çözüm bulunabilinir.

 

[omerceri]

Kodları birde aşağıdaki gibi deneyin
ActiveDocument.Tables(1).Range.Cells(i).Range.Text = Format(ex.Range("c4:G7")(i), ex.Range("c4:G7")(i).NumberFormat)

 

[qwertylion]

İşe yaradı çok teşekkür ederim.

 

[murderer43]

merhaba

Bu yaptığınız işlemlerin bir benzerini yapmaya çalışıyorum ama bir noktada takıldım bana yardımcı olabilir misiniz?
Sorumu bu linkden bulabilirsiniz
http://www.excel.web.tr/f48/excelden-makro-ile-worde-grafik-kopyalama-t129571.html#post704837

 

[ayeskici]

dedikleriniz hepsini aynen yaptım şahane çalışıyor
tşk
fakat bir excel dosyası içerisindeki farklı sayfalardan nasıl yapılır
sayfaA, SayfaB, SayfaC şeklinde 3 sayfamız varsa bu formul ilk sayfadaki(Sayfaa) verileri veriyor
ben sayfaC den almak istersem ne yapacağım
ilğileniseniz şimdiden tşk...

 

[ayeskici]

excel içerisinde 40 yakın çalışma sayfam var bunlardan verileri worde aktaracağım
tablo şeklinde genelde
yukarıda anlatılanlar sadece 1. çalışma sayfası için yapıyor
burada çalışma sayfasını seçemezmiyim
yardımcı olacak yokmu?
tşk

 

[msa73]

Arkadaşlar benimde bir ödevim var excel tablosundaki sütunların her birini ayrı word dosyası olmak üzere kaydetmem lazım yaklaşık 400 sütun var ve 400 tane word belgesi oluşturmam lazım acaba nasıl yapabilirim blgisi olan yazabilirmi