Başka bir dosyaya veri göndermek

[udentr2002]

Bu konuyu formun word sayfasında sordum ama aslında hem excel hemde word ile ilgili olduğu için burda da sorayım dedim.

excelde Genel adlı userformda bulunan bir buton yardımı ile word belgesini açıyorum. Kod aşağıdadır.

CreateObject("Shell.Application").Open ThisWorkbook.Path & "\etiket.docx"

Bu etiket adlı word dosyasınya yer işareti ile (bookmarks) alanlar belirledim. ve bu dosya açıldıktan sonra yapmak istediğim şey tam olarak şu

excel dosyamdaki Genel adlı userformdaki combobox1 deki veriyi etiket adlı word dosyasında yer işareti ile belirlediğim Adi_1 adlı alana aşağıdaki kodla göndermeye çalışıyorum.

With ActiveDocument
    .Bookmarks("Adi_2").Range.Text = Genel.ComboBox1.Value
    
    End With

yanlız hata veriyor.

Kısacası excell den açık olan bir word sayfasındaki yer işareti ile belirlenmiş alana veri göndermek

Yardımcı olursanız çok sevinirim

 

[hamitcan]

a = Genel.ComboBox1.Value
CreateObject("Shell.Application").Open ThisWorkbook.Path & "\etiket.docx"
With ActiveDocument
    .Bookmarks("Adi_2").Range.Text = a
End With

bu şekide dener misiniz ?

 

[udentr2002]

Hocam

runtime error 424 hatasını veriyor
object required

ve aşağıdaki satırı sarı işaretli yapıyor

 .Bookmarks("Adi_2").Range.Text = a

 

[hamitcan]

Kodu, Excel içinden mi çalıştırıyor sunuz ?

 

[udentr2002]

Evet hocam

 

[hamitcan]

Dosyanızı ekleyin.

 

[hsayar]

Adi_1 e göndermeye çalışıyorum diyorsunuz ancak kodlarda adi_2 yazıyor.

 

[udentr2002]

Hocam;

Hem Ad_1 hemde Ad_2 tanımlı alan her ikisinide denedim.

Excelde bir buton yardımı ile word dosyası açılıyor. Ve o excelde word dosyasını açan kodların devamında excel de çalışan userform üzerindeki textboxdaki veriyi word dosyasında Ad_1 diye tanımladığım alana göndermek istiyorum.

Tekrar ilgilenirseniz sevinirim hocam

 

[udentr2002]

Hocam dosyamı ekliyorum.

Formu açtığınızda Genel yazan butona tıklayın açılan userformda comboboxa veri girdiğinizde listview e süzecek listview üzerine tıkladığınızda ilgili bilgileri textboxlara alacak textboxlara alınan bilgileri etikete yazdırmak isitiyorum. Bunun için formun üstündeki etiket adlı butona tıkladığınızda etiked adlı word dosyası açılacak. Bu word sayfasında yer işareti ile tanımladığım alanlar var exceldeki userform üzerindeki textboxlardaki verileri o word dosyasındaki tanımlı alanlara aktarmak isitiyorum.
Etiket adlı butona tıkladığınızda textbox1 de yazan veri etiket adlı word dosyası açıldığında ilk etiketin en başındaki yeşil renkli alana yazılması lazım

Not: Excel ile word dosyası aynı dosya içinde olmalı.

İnşallah anlatabilmişimdir. Yardımcı olursanız çok sevineceğim. Şimdiden hakkınız helal edin teşekkürler.

 

[udentr2002]

Yardımcı olabilecek bir arkadaşım varmı acaba.

 

[hamitcan]

Referanslardan Microsoft Word XX.Object... referansı seçmeyi unutmayın.

Private Sub CommandButton2_Click()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open(ThisWorkbook.Path & "\etiket.docx")
    With wrdDoc
     .Bookmarks("Metin1").Range = "aaa"'İsmi kendinize göre değiştirin.
    End With
End Sub

 

[udentr2002]

Hamit hocam.

Çok ama çok teşekkür ederim. Ellerinize ve bilginize sağlık.
Şimdi kendi dosyama uyarlamaya çalışacağım.
Allah razı olsun