A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Liste Kutusundan Word Belgeye Tablo Olarak Veri Almak
#1
Merhaba, Ek'teki örnekte formdaki seçilecek liste kutusundaki kayıtlardan seçime göre diğer liste kutusuna listeleme yapmak ve oluşturulan bu listeyi word belgesinde tablo yer imi olan yere tablo şeklinde aktarmak istiyorum.

https://www.access-sql.com/Konu-Access-s...a-aktarmak

Daha önce açtığım buna benzer bir konu yukarıdaki adreste var ancak mevcut duruma uyarlama yapamadım. Yardım eder misiniz?
Klasör içinde bulunan access dosyasının yanındaki word şablonundan word belgesi olarak farklı bir dosya oluşturmak ve bu işlemi şablonda değişiklik yapmadan gerçekleştirmem gerekli.


Eklenti Dosyaları
.rar   Örnek.rar (Boyut: 48,57 KB / İndirilme: 11)



  Alıntı
Bu mesajı beğenenler:
#2
sn hturkavci03;


dosya ektedir..
istediğiniz budur inşlh..
gerekli açıklamaları form ve vba da yazılmıştır kolay gelsin..


Eklenti Dosyaları
.rar   Örnek.rar (Boyut: 59,53 KB / İndirilme: 29)
imza; jon206
www.access-sql.com



  Alıntı
Bu mesajı beğenenler: Taruz
#3
Hocam teşekkür ederim.
Yöntem hızlı ancak ben liste kutusundan seçim yaptığım sıra ile aktarma yapmalıyım. Örneğin tek tek çift tıklama yaparak daha uygun olacaktır.
Worde sütun başlıkları olmadan aktarmam gerekli. GÖREVLİ LİSTESİ (BİTMİŞ HALİ) isimli .docx word dosyasındaki gibi sonda boş bir sütunda yapmalıyım.



  Alıntı
Bu mesajı beğenenler:
#4
sn. hturkavci03
dosyayı güncelledim..
inceleyiniz..
imza; jon206
www.access-sql.com



  Alıntı
Bu mesajı beğenenler:
#5
Hocam, yöntem çok güzel ve hızlı. Oluşan tabloyu gölgelendirme olmadan, sade stilde yapak mümkün mü?
Bir de açılan word belgesini aslında şablon. Doğrudan .docx uzantılı olarak farklı kaydetmek ve şablonda değişiklik yapmak istemiyorum.



  Alıntı
Bu mesajı beğenenler:
#6
(05-10-2019, 23:54)hturkavci03 demiş ki: Hocam, yöntem çok güzel ve hızlı. Oluşan tabloyu gölgelendirme olmadan, sade stilde yapak mümkün mü?
Bir de açılan word belgesini aslında şablon. Doğrudan .docx uzantılı olarak farklı kaydetmek ve şablonda değişiklik yapmak istemiyorum.

Visual Basic
  1. 'kolon geniþliklerini burdan ayarlayabilirsin..
  2. 'týrnaklarý kaldýrýrsan alttaki geniþlikleri uygular ilk iki kolon için yaptým..
  3. 'WordApp.ActiveDocument.Range.Tables(2).Columns(1).Width = 30
  4.  
  5. WordApp.ActiveDocument.Range.Tables(2).Columns(1).Width = 30
  6. WordApp.ActiveDocument.Range.Tables(2).Columns(2).Width = 100
  7. WordApp.ActiveDocument.Range.Tables(2).Columns(3).Width = 80
  8. WordApp.ActiveDocument.Range.Tables(2).Columns(4).Width = 100
  9.  
  10. WordApp.ActiveDocument.Range.Tables(2).PreferredWidth = 475
  11. WordApp.ActiveDocument.Range.Tables(2).Borders.InsideLineStyle = wdLineStyleSingle
  12. WordApp.ActiveDocument.Range.Tables(2).Shading.BackgroundPatternColor = wdColorWhite
  13. WordApp.ActiveDocument.ActiveDocument.SaveAs2 FileName:="Text.docx", FileFormat:=wdFormatDocumentDefault



Set WordApp = Nothing satir ustune yukarida ki satirlari tasiyabilirsiniz.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Formdaki Listeye Veri Almak m_demir 2 54 22-05-2020, 16:12
Son Mesaj: m_demir
  Sorgudaki Miktar Toplam Olarak Gelmesi yanginci34 10 160 29-04-2020, 14:17
Son Mesaj: dsezgin
  şartlı Metin Kutusundan Veri Almak m_demir 2 89 15-04-2020, 20:35
Son Mesaj: m_demir
  [RAPOR] Rapora Başka Tablodan Veri Almak omurozkan 4 93 12-04-2020, 11:49
Son Mesaj: omurozkan
  [SORGU] Birden Fazla Olan Verinin Ilk Olanını Almak footprinting 1 110 06-04-2020, 22:14
Son Mesaj: dsezgin
  [FORM] Word Belgesindeki Resmi Formdaki Ek Alanına Fare Ile Kopyala Yapıştır tersl 1 101 26-03-2020, 02:17
Son Mesaj: tersl
  [SORGU] Liste Kutusu Arama Filtresi - Ilişkili Tablolardan Veri Alma Sorunu mgunes 2 153 21-03-2020, 00:23
Son Mesaj: mgunes
  Liste Kutusundan Excel'e Kayıt Seçerek Gönderme VARLIK66 6 155 10-03-2020, 13:49
Son Mesaj: VARLIK66

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi