• DİKKAT !

    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 Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü VBA ile Word Veri Doldurma / Gönderme / Hazırlatma Vb.

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.
RBozkurt

RBozkurt

Yeni Üye
Katılım
25 Ara 2021
Mesajlar
322
Çözümler
36
Aldığı beğeni
205
Excel V
Office 2021 TR
Konu Sahibi
Merhaba ustalarım.
Excelde bulunan veriyi VBA ile word şablonuna doldurtmak istiyorum.
Biraz araştırdım, hazırlamaya çalıştım olmadı. Dosya açarken word kitlendi vb. hatada veriyor. İşin içinden çıkamadım.
Yardımlarınıza ihtiyacım var 🙏

Word dosyasına tüm bookmark'ları ekledim.
Bu bookmarklara uygun çağrılacak satırladıda ekledim.

Excel dosyasının bulunduğu klasöre \Tutanak\Uzlasma\ şeklinde klasör açıp içine kaydedilsin istiyorum.
Uzlasma.SaveAs2 Kaydet1 & R1.Cells(i, "B") & " - " & R1.Cells(i, "S") & ".docx"


HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Merhaba.
Next i satırını üstüne altaki kodu ekleyin.
Birde excelin oluğu yere Tutanak adında klasör ekleyin ve bu klasörün içinede Uzlasma adında klasör ekleyin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Merhaba.
Next i satırını üstüne altaki kodu ekleyin.
Birde excelin oluğu yere Tutanak adında klasör ekleyin ve bu klasörün içinede Uzlasma adında klasör ekleyin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...

Teşekkürler sayın Refaz
Kısmen toparladım. Klasörü alttaki makro ile açtırdım, ilk sefer açtı ama klasör varsa eğer makro hata veriyor. İptal ettim. Manuel devam ederim muhtemelen.

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Resimdeki hatayı alıyorum. Problem şablonda mıdır? Makro içerisinde mi eksiklik vardır?

Adsız.png

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Resimdeki gibi ekleyin abey alttaki kodu.
iç içe klasör olduğu için bir kod daha eklemek zorunda kladım varsa bir yolu daha eklerim.
Salt okunur olaursa görev yöneticisinden word leri kapatın.


Screenshot 2022-02-20 193859.png

HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Ayrıca wordler görev yöneticisinden gitmiyor tek tek temizlemek gerekiyor.Bunun için bir araştırıp koda eklerim.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Ayrıca wordler görev yöneticisinden gitmiyor tek tek temizlemek gerekiyor.Bunun için bir araştırıp koda eklerim.
Genişletmek için tıkla...

Sayın Refaz teşekkür ederim. Şuan oluşturuyor bu şekilde.
Youtubeden de baktım oluşturanlarda problem gözükmüyor. Şablonda salt okunur değil.

Word kapanırsa eğer çalışıyor yoksa salt okunurda kalıyor, donuyor ekran.
 
Olumlu oy 0 Negatif oyla
Rica ederim, görev yöneticisinden word kapatma kodunuda ekledim garanti olsun diye.
Belki diğer açık wordleride kapatabilir ama denemedim.


HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Konu Sahibi
Set Uzlasma = msword.Documents.Open(Sablon, , False)

Bu satırda hata veriyor malesef. Klasör açmayıda iptal ettim. El ile açtım sonuçlandırmadı.


HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Moderatör tarafında düzenlendi:
Olumlu oy 0 Negatif oyla
For i = 2 To sonsatir
Yukardaki kodun altına alttakini ekledim önceki mesaja abey.Unutmuşum onu.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Pardon abey tüm karıştı son halini eklerim şimdi.Normalde çalışıyordu bende
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sayın Refaz winword görev yöneticinde açık ise kitliyor.

Alttaki kod
Klasör açmaz manuel açık klasör ve word kapalı. Kendisi kapatmaz. Normal çalışıyor.
1,2 kelimeyi değiştirdim güncelledim.

Sizin en son eklediğinizi deneyip dönüş yaparım.

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sayın Refaz teşekkür ederim 🙏

Şuan veriler oluşuyor.
Word uygulamasını kapatmıyor. Kaç veri varsa o kadar word açık kalıyor felaket kasıyor :D O konuda hata devam ediyor.

Tüm wordleri manuel kapatıp çalıştırırsam hata vermiyor.
En son kodlar aşağıdadır.

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sayın Refaz
Yardımlarınız için teşekkürler. Sayenizde sonuçlandırdım 🙏 🙏

Word kapatma makrosu
Uzlasma.Close satırından sonra attaki gibi değiştirip;

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.


Yeni modüle alttakini ekledim. Şuan tüm winword.exe kapatılıyor.

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Çalışan son kodlar
HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Rica ederim abey,bende kaç kere denemiştim hepsinde kapatmıştı yolladığım dosyadaki gibi.
 
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst