Verileri Word'e Seçenekli Aktarma

16/02/2020, 16:47

prestij06

Merhaba arkadaşlar. Ekteki projemdeki Üst Yazı butonuna bastığımızda "Konusunu Gir" diye bir uyarı vermesini ve biz "gbt" veya "kan" yazıp tamam dediğimizde yine ekte bulunan konusunu yazdığımız "gbt veya "kan word belgelerine verileri aktarmasını istiyorum. Word belgelerine ben Yer İmlerini ekledim. Yardımcı olursanız çok sevinirim teşekkürler.
16/02/2020, 17:16

ozanakkaya

Dim GVeri, strTemplateLocation As String

GVeri = InputBox("", "Konusunu Gir", "")

If GVeri = "gbt" Then

strTemplateLocation = CurrentProject.Path & "\gbt.doc"

'word belgesini açtırma ve yer imlerine veri aktarma kodları


ElseIf GVeri = "kan" Then

strTemplateLocation = CurrentProject.Path & "\kan.doc"

'word belgesini açtırma ve yer imlerine veri aktarma kodları

End If

Şeklinde kod ekleyiniz. Butona tıkladığınızda input açılır gbt yazdığınızda gbt.doc açılır. Veri aktarma kodlarını eklemelisiniz.
16/02/2020, 19:01

prestij06

Hocam şu şekilde hata veriyor: ekte var


strTemplateLocation değişkenini bir kaç yerde tanımlamışsınız. değişkenler aynı olay bloğu içinde 1 defa tek tanımlanır
16/02/2020, 19:22

prestij06

tmmdır düzeldi tşk ediyorum.