• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Excel Tablolarını VBA İle Word Belgesine Aktarmak

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

ERDAL

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
3 Nis 2021
Mesajlar
262
Çözümler
1
Aldığı beğeni
44
Excel V
Office 2013 TR
Konuyu Başlatan
Merhaba arkadaşlar.

Excel tablolarını Word VBA kullanarak, Yaklaşık 150 sayfalık Word Belgesine aktarıyorum.
Her kodu ayrı ayrı çalıştırarak aktardığımda sorun yok. Tablolar istediğim boyutta sayfalara tam sığmış bir şekelde aktarılıyor. Fakat kodları Call ile hepsini bir çalıştırdığımda tablolar sayfaya sığmıyor ve satır genişlikleri de farklı farklı geliyor.

Çok uğraştım fakat bir çözüm bulamadım.
Bu konuda uzman hocalarımızın yardımlarını bekliyorum.

Yardımlarınız için şimdiden teşekkür ederim.

Kullandığım Kod;

C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Çözüm
Kuşdili
Örnek word ve excel dosyalarınızı birlikte görmek daha iyi olurdu.
Mesela Dosya = "" yazılı yerde bir word dosyası yolunun olması gerek.
Bununla birlikte örnekler gelinceye kadar kullandığınız kodda bazı iyileştirmeler yapmak mümkün.
4 makroyu birleştirmek istiyorsunuz. Her makro aynı işlemleri yaptığı için "Word.Application"
ve buna bağlı açma ve kapatma komutlarının sadece bir sefer kullanılmasını sağlayabilirsiniz.
Tabloları wordde hücre hücre biçimlendirmek yerine bunları excelde biçimlendirebilirsiniz.
Kopyala yapıştır yapınca aynı biçimler otomatikman worde gelecek.
Dolayısıyla biçimlendirme satırlarının tamamını silebilirsiniz.

Şunlar sadece ilk makroda olmalı, 2. 3. 4. lerde gerek yok:
Set wordApp =...
Tarihe göre sırala Oylara göre sırala
Merhaba, çok heyecanlısın, kodlar senin olsun Sayfanı yükle bakalım çözüm var mı.
 
Olumlu oy 0 Negatif oyla
Selam

Sorununuzu gösterecek şekilde örnek dosya paylaşınız.

Burası Matrix değil, kodlara bakarak zihnimizde görsel oluşturamıyoruz.
 
Olumlu oy 0 Negatif oyla
Örnek word ve excel dosyalarınızı birlikte görmek daha iyi olurdu.
Mesela Dosya = "" yazılı yerde bir word dosyası yolunun olması gerek.
Bununla birlikte örnekler gelinceye kadar kullandığınız kodda bazı iyileştirmeler yapmak mümkün.
4 makroyu birleştirmek istiyorsunuz. Her makro aynı işlemleri yaptığı için "Word.Application"
ve buna bağlı açma ve kapatma komutlarının sadece bir sefer kullanılmasını sağlayabilirsiniz.
Tabloları wordde hücre hücre biçimlendirmek yerine bunları excelde biçimlendirebilirsiniz.
Kopyala yapıştır yapınca aynı biçimler otomatikman worde gelecek.
Dolayısıyla biçimlendirme satırlarının tamamını silebilirsiniz.

Şunlar sadece ilk makroda olmalı, 2. 3. 4. lerde gerek yok:
Set wordApp = CreateObject("Word.Application")

Dosya = ""
Set WdDOC = wordApp.Documents.Open(Filename:=Dosya, ReadOnly:=False)
wordApp.Visible = False
wordApp.Activate
...
...
Şunlar da sadece son makroda olmalı, 1. 2. 3. lerde gerek yok:
wordApp.ActiveDocument.Close SaveChanges:=True
wordApp.Quit
Set wordApp = Nothing: Set WdDOC = Nothing
 
Olumlu oy 1 Negatif oyla
Çözüm
Sayın Kuşdili; Teşekkür ederim.
elinize emeğinize sağlık.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst