excel verilerini worde aktarma

bravo64 · 14 Ocak 2007

Merhaba arkadaşlar.
bu siteye tekrar tekrar teşekkür ediyorum ve tabii tüm emeği geçenlere..
sorunum şu;
Sub worde()
fName = Application.InputBox("Dosya ismi girin...", "Dosya")
If fName <> 0 Then
ActiveSheet.Name = fName
f = InputBox("Kaçıncı Satıra Kadar Aktarsın?", "Aktarılacak Bölge")
Range("A1: ı" & f).Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.PasteSpecial Link:=False, DataType:=2
objword.activedocument.SaveAs "C:\" & fName & ".doc"
End If
Application.CutCopyMode = False

End Sub

böyle bir makroyla worde aktarım yapıyorum ancak açılan word sayfasının yatay olmasını istiyorum.çünkü excel tablom geniş olduğu için word de alt alta geliyor..
İyilikler diliyorum.

Levent Menteşoğlu · 15 Ocak 2007

Aşağıdaki satırı ekleyip denermisiniz.

Kod:

objword.ActiveDocument.PageSetup.Orientation = wdOrientLandscape

udentr2002 · 15 Ocak 2007

merhaba

bu konu banda lazım ama
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocu ment)[/COLOR]
bu satırda hata veriyor kırmızı renkle işaretliyor sebebi neden olabilir bi bakarmısınız

Ali · 15 Ocak 2007

udentr2002' Alıntı:
bu konu banda lazım ama
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocu ment)[/color]
bu satırda hata veriyor kırmızı renkle işaretliyor sebebi neden olabilir bi bakarmısınız

Docu ment olarak ayrı olan kısımı birleştirip Document olarak bitişik yazın.

bravo64 · 15 Ocak 2007

Sevgili Leventm,
kodu ekledim ama yine vertical oluyor..

Sub worde()
fName = Application.InputBox("Dosya ismi girin...", "Dosya")
If fName <> 0 Then
ActiveSheet.Name = fName
f = InputBox("Kaçıncı Satıra Kadar Aktarsın?", "Aktarılacak Bölge")
Range("A1: ı" & f).Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.ActiveDocument.PageSetup.Orientation = wdOrientLandscape
objword.Selection.PasteSpecial Link:=False, DataType:=2
objword.ActiveDocument.SaveAs "C:\" & fName & ".doc"
End If
Application.CutCopyMode = False

End Sub

Levent Menteşoğlu · 15 Ocak 2007

Evet olmadığını sonradan bende gördüm. İlginç o satırı word dosyasında çalıştırınca işlemini yapıyor, ama excelden çalıştırınca yapmıyor, sebebini araştıralım.

Haluk · 15 Ocak 2007

Olayın çözümü için, wdOrientLandscape yerine, onun nümerik değer karşılığını yani 1 (bir) kullanacaksınız.

Nedeni ise şu;

Yazılan kodlarda değişkenler arasındaki objWord değişkeni, run-time yani, çalışma sırasında CreateObject yöntemi ile sonradan oluşturulan bir Word nesnesi.

Dolayısıyle, kodlardaki objWord nesnesine ait wdOrientLandscape sabiti Excel tarafından algılanmadığı için bu sabit, kullanıcı tanımlı bir değişken olarak algılanmaktadır. Bu değişkene daha önceden bir değer verilmediği için de, Excel bu değişkenin değerini 0 (sıfır) olarak algılamaktadır.

Halbuki, MS Word uygulamasında 0 (sıfır) wdOrientPortrait sabitinin nümerik değer olarak karşılığıdır.

İşte bu nedenle yukarıdaki kod, sayfayı "Landscape" yerine "Portrait" olarak yazdırmaktadır.

Benzer şekilde, aslında yukarıdaki kodlarda geçen wdNewBlankDocument sabiti yerine de 0 (sıfır) kullanmak, işin mantığı nedeniyle gerekir. MS Word uygulamasında da wdNewBlankDocument sabitinin nümerik değer olarak karşılığı tesadüfen 0 (sıfır) olduğu için ve yukarıdaki kodda Excel bunu yine kullanıcı tanımlı bir değişken olarak algılayıp, daha önceden değer verilmediği için 0 (sıfır) olarak algıladığından dolayı, tesadüfen kodun o kısmında bir problem çıkmamaktadır.

Bu işin başka bir çözümü de, VBA' de kodlarda CreateObject yöntemi yerine MS Word referansını ekliyerek, değişkenleri Word uygulamasına göre deklare etmektir.

Levent Menteşoğlu · 15 Ocak 2007

Üstadım açıklamaların için çok teşekkürler, insan bazen bu kadar basit bir ayrıntıyı kaçırabiliyor, hiç aklıma gelmemişti. Bu arada önermiş olduğun ikinci kodlama mantığı ile ilgilide bir örnek rica edebilirmiyim.

Haluk · 15 Ocak 2007

leventm' Alıntı:
......... Bu arada önermiş olduğun ikinci kodlama mantığı ile ilgilide bir örnek rica edebilirmiyim.

Levent dostum, yine çok benzer konuda sorulmuş bir soru hakkında verdiğim benzer cevapta bahsettiğim alternatif kod da aşağıdaki linkte yer almaktadır.

http://www.mrexcel.com/board2/viewtopic.php?t=250016

bravo64 · 15 Ocak 2007

Sayın Haluk ve Leventm, gerçekten süpersiniz.Naçizane tebriklerimi sunuyorum.
İyilikler dilerim..

hudemir · 21 Ocak 2007

Merhaba bravo64 sorun çözülmüş olan örnek bir dosyayı gönderirsen memnun oılurum. Şimdiden teşekkürler.

hikmet · 22 Ocak 2007

merhaba sn.hocalarım ve arkadaşlarım;

excelden worde aktarma makrosu gayet güzel çalışıyor fakat burda küçük bir sorun var dilerim çözülür çünkü çok kullanışlı
sorun excelin açılışında verdiği orijinal sütün genişliklerini kullandığınızda worde aktarırken sayfaya düzenli aktarıyor yani sütunlar hizalı oluyor
eğer sütun genişliklerini değiştirirseniz bu sefer aktarımda word dosyada bilgiler birbirinin içine giriyor sayfa düzeni diye birşey kalmıyor. konu hakkında değerli bilgilerinizi paylaşırmısınız bizimle.

excel verilerini worde aktarma

bravo64

Levent Menteşoğlu

Administrator

udentr2002

Ali

Özel Üye

bravo64

Levent Menteşoğlu

Administrator

Haluk

Özel Üye

Levent Menteşoğlu

Administrator

Haluk

Özel Üye

bravo64

hudemir

hikmet