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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

ERDAL

Yeni Üye
Kullanıcı Bilgileri
Katılım
3 Nis 2021
Mesajlar
170
Çözümler
1
Aldığı beğeni
31
Excel Versiyonu
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 SATIR 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
K
Ö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
asax

asax

Destek Ekibi
Kullanıcı Bilgileri
Katılım
2 Ara 2021
Mesajlar
246
Çözümler
22
Aldığı beğeni
114
Excel Versiyonu
Office 2019 TR
Merhaba, çok heyecanlısın, kodlar senin olsun Sayfanı yükle bakalım çözüm var mı.
 
Olumlu oy 0 Negatif oyla
Ahmet

Ahmet

Destek Ekibi
Kullanıcı Bilgileri
Katılım
9 Mar 2021
Mesajlar
340
Çözümler
70
Aldığı beğeni
408
Excel Versiyonu
Office 2016 TR
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
K

Kuşdili

Excel Dostu
Kullanıcı Bilgileri
Katılım
7 Eyl 2022
Mesajlar
191
Çözümler
60
Aldığı beğeni
195
Excel Versiyonu
Office 2007 TR
Ö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
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Üst