Çözüldü VBA İle Excel’den Word'e Tablo Aktarma

[ErdalÖzdemir]

Merhaba arkadaşlar.

Yapmak istediğim işlem; Excel tablolarını Word'e aktarmak. Bu işlemi yapmaya çalıştığımda bazı noktalarda işin içinden çıkamadım. Tablaları aktardığımda sayfaya sığdıramıyorum. Bunun için satır yüksekliğini ayarlama kodunu çözemedim. Yer imlerinin sayfadaki yerini sabitleyebilir miyim, yine hücre içindeki verileri hücre içinde nasıl ortalayabilirim, 1. sütundaki verileri sola, diğer sütündeki verileri sağa yaslamayı nasıl yapabilirim. Word VBA konusunda bilgisi olan arkadaşların ve bu konuda uzman arkadaşların yardımlarını bekliyorum.
Üzerinde çalışma yaptığım örnek dosyaları ekledim.

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

 

[tukayf]

Merhabalar Tablolarınızın satır ve sütunları sabit mi acaba?

 

[ErdalÖzdemir]

Hocam her tablonun satır ve sütun sayıları farklı. Her tablonun karşılığı bir yer imi var. Bu yer imlerine göre tabloları Word'e aktarıyorum

 

[tukayf]

Bağ yapıştır ile olabilecek sanki dosyanız.

 

[ErdalÖzdemir]

Hocam kod ile bu işi yapmak istiyorum.

 

[ErdalÖzdemir]

Arkadaşlar, bu konuda yardımcı olabilecek hiç kimse yok mu

 

[Korhan Ayhan]

Forumda arama yapmayı deneyebilirsiniz.

 

[ErdalÖzdemir]

Ben bu konuyu aynı başlık altında üç gündür tekrar tekrar açıyorum. hiç bir şekilde cevap alamadım. Formda gerekli aramalı yapmadan burada konu açmam. Ayrıca bu ve benzeri konularda yardım alabilmek için buradayız. Eğer cevap vermek istemiyorsanız konuyu kendiniz kapatabilirsiniz.

 

[Korhan Ayhan]

Tekrar tekrar forumda aynı konuyu açmak forum kirliliğine sebebiyet verir. Bu duruma dikkat etmenizde fayda var. Açtığınız konu üzerinden cevap alana kadar mesaj yazabilirsiniz.

Ek olarak üyelerimize arama yapın önerisinde bulununca nedense bir gerginlik sezinliyorum. Sakin olmakta fayda görüyorum.

Forumun arşivinde 1 milyonun üzerinde mesaj paylaşılmış. 180 binin üzerinde konu açılmış. Bu sebeple arama yapılmasını tavsiye ediyoruz. Yoksa sürekli benzer konular açılıp benzer cevaplar paylaşılıyor.

Linkteki konuları inceleyebilirsiniz.

Sorgu için arama sonuçları: word.application

www.excel.web.tr

Yetersiz gelirse linkteki konularıda inceleyebilirsiniz.

Arama Sonuçları

 

[mustafa1205]

Worde aktarmanızın bir sebebi varmı. Raporlamayı bu şekilde excelde veya PDF e çevirerek te çok rahatlıkla alabilirsiniz.

 

[aypp12]

merhaba arkadaşlar bina yönetimi için basit bir program yaptım ama bir yerde vba yazdım çalıştıra bastığımda çalışıyor ama hücrede değişiklik göstermiyor yardımcı olsanız sevinirim.

Sub Düğme1_Tıkla()
Dim i As Integer
For i = 2 To 16
If Cells(i, 1) >= Range("A18") Then
Cells(i, 1) = Cells(i, 1)

ElseIf Cells(i, 1) < Range("A18") Then
Cells(i, 2) = Cells(i, 3) - Range("A18")

End If
Next i

 

[dEdE]

Merhaba,
Foruma hoş geldiniz.
Sorunuzun bu başlıkla ilgisi yok. Yeni (farklı)konu için yeni başlık açmalısınız.

 

[necati]

Merhaba arkadaşlar.
Tablaları aktardığımda sayfaya sığdıramıyorum. Bunun için satır yüksekliğini ayarlama kodunu çözemedim.

Bir tablo eklendikten sonra ekleme kodlarının altına yazılacak ayar kodları:
Mesela ismi "Tablom" olarak set edilen tablo olsun:

Tablom.AutoFitBehavior wdAutoFitWindow    'tabloyu sayfaya sığdırır
Tablom.Range.ParagraphFormat.SpaceBefore = 3      'Paragraf öncesi boşluk
Tablom.Range.ParagraphFormat.SpaceAfter = 3         'Paragraf sonrası boşluk

 

[RBozkurt]

Konu çözümlenmemiştir.
Yardım alamadığım için #çözüldü" olarak işaretlenmiştir.

Belki iş görebilir.

Soru - VBA Word Doldurma Hatası Hakkında

Paylaşmış olduğum kodu revize ettim. Tekrar deneyiniz.

www.excel.web.tr

 

[ErdalÖzdemir]

Merhaba arkadaşlar.

Yapmak istediğim işlem; Excel tablolarını Word'e aktarma işlemini belirli bir noktaya getirdim. Takıldığım bir nokta kaldı; Tabloların bazılarında tablonun tümünü değil de belirli bir aralığını seçip (başlıksız olarak) Word'e aktarmam gerektiğinde sorun çıkıyor. İlk işlemden (her çalıştırıldığında var olan tablo silinip yenisi yapıştırılıyor) sora aynı işlemi tekrarladığımda yer imini siliyor. Çok araştırdım bir çözüm bulamadım. En azından/hiç olmazsa bu konuda yardımcı olacak bulunur mu

Örnek dosyayı ekledim.

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

 

[necati]

Eki paylaşım sitesine de ekler misiniz.

 

[necati]

Burada değil, burada zaten var, paylaşım sitelerinden birine.

 

[necati]

Zipi indirdim fakat içindeki TABLALAR.xlsm dosyası açılamıyor. Sebebini anlayamadım. Açılışta otomatik çalışan bir şeyler mi vardı. Bir türlü açılamadı.

 

[necati]

Link

 

[ErdalÖzdemir]

Microsoft OneDrive