Kapalı Word dosyasına veri aktarma.

[leumruk]

Sheets("Sayfa1").OLEObjects("Dosya").Verb (xlVerbPrimary)
Sheets("Sayfa2").Select
Sheets("Sayfa2").Range("L1:M403").Select
Set WDApp = GetObject(, "Word.Application")
Set WDDoc = WDApp.ActiveDocument
Selection.Copy
WDApp.Selection.WholeStory
WDApp.Selection.PasteSpecial Link:=False, DataType:=10, _
Placement:=wdInLine, DisplayAsIcon:=False
Set WDDoc = Nothing
Set WDApp = Nothing

Değerli arkadaşlar,
Yukarıdaki makro excel içindeki word nesnesine veri kopyalamaya yarıyor. Fakat kopyalama esnasında word dosyası açılıyor.
Ben kopyalamanın dosya açılmadan yapılmasını istiyorum. Bunun için kodlarda nasıl bir değişiklik yapmam gerekiyor?
Saygılar...

 

[Haluk]

Aşağıdaki kırmızı satırı ilave edip, deneyin....

Set WDApp = GetObject(, "Word.Application")
wdapp.visible = false
....
...

 

[leumruk]

Syn. Haluk hocam,
Dosyayı açıyor işlemi yapıyor ve kapatıyor. Ben hiç açmadan aktarma yapmasını istiyorum. Aşağıdaki kod dosyanın açılmasını sağlıyor. Bu kod yerine dosyayı açmadan dosyayı seçebilecek bir kod var mı?
Sheets("Sayfa1").OLEObjects("Dosya").Verb (xlVerbPrimary)

 

[Haluk]

Gömülü dosyalar için, yok.

.