Excel'den word'e veri aktarma

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
@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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
@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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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.
Rich (BB code):
Set myDoc = objWord.Documents.Open(Filename:=yol, ReadOnly:=False)
Yeni Bit Eşlem Resmi.jpg
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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.
Rich (BB code):
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

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
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.
 

Ekli dosyalar

Son düzenleme:

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Teşekkürler, bu da çok güzel çalışıyor.
 
Üst