Excel'den word'e veri aktarma

[halit3]

Son kez soru soracağım eklediğim dosyaları bir klasöre çıkartıp
Katipler sayfasındaki (Word dosyası oluştur) komut düğmesine basıyorsunuz değilmi.
eğer eklediğim dosyalardan (Katip3.docx) word dosyası, kodun çalıştığı dosyanın yanında yani aynı klasörün içinde olacak yoksa kod hata verir.

 

[YUSUF44]

Aynen belirttiğiniz gibi yapıyorum. Zip dosyasının içindeki üç dosyayı oluşturduğum Halit isimli klasöre çıkartıyorum ve ordan çalıştırıyorum.

 

[Haluk]

@halit3 Bey içiniz rahat etsin, sizin kodlar bende çalışıyor. (Win7 Home 64 Bit, Excel-2010 32 Bit)

Bu arada, siz niye istediniz bilmiyorum ama; "VBA projesi nesne erişimine güven" seçeneğini etkinleştirmeye gerek kalmadan çalışıyor kodlarınız.

.

 

[halit3]

@halit3 Bey içiniz rahat etsin, sizin kodlar bende çalışıyor. (Win7 Home 64 Bit, Excel-2010 32 Bit)

Bu arada, siz niye istediniz bilmiyorum ama; "VBA projesi nesne erişimine güven" seçeneğini etkinleştirmeye gerek kalmadan çalışıyor kodlarınız.

.

@Haluk Bey Teşekkürler Ben sadece kodun YUSUF44 Bey de çalaışmamasını merak ettim onun için bu kadar yazışmayı israrla yaptım.

 

[halit3]

Bilgisayara ofis 2016 32 bit kurdum kad çalışmadı ancak resimdeki kırmizi yer True idi False yapınca düzeldi
yani kod ofis 2016 da çalışıyor referens bilgilerinide ofisin sürümünüde ekliyorum.

Set myDoc = objWord.Documents.Open(Filename:=yol, ReadOnly:=False)

 

[YUSUF44]

Bilgisayara ofis 2016 32 bit kurdum kad çalışmadı ancak resimdeki kırmizi yer True idi False yapınca düzeldi
yani kod ofis 2016 da çalışıyor referens bilgilerinide ofisin sürümünüde ekliyorum.

Set myDoc = objWord.Documents.Open(Filename:=yol, ReadOnly:=False)

Dün ilçe dışında olduğumdan ilgilenememiştim. Bu düzeltmeyi yapınca makro çalıştı Halit Bey. Çok teşekkür ediyorum ilginize.

 

[halit3]

Teşekkürler iyi çalışmalar

 

[halit3]

Bu dosyada 8 nolu mesajınızdaki dosya ve bilgiler doğrultusunda ilk dört sayfası ekli olup dosyada beş ve altıncı sayfaları kod kendisi oluşturarak ilk dört sayfanın altına verileri aktarıyor.

 

[YUSUF44]

Teşekkürler, bu da çok güzel çalışıyor.