Excel den Word e Veri Aktarimi

Katılım
13 Temmuz 2013
Mesajlar
241
Excel Vers. ve Dili
Türkçe 2007
Arkadaşlar merhaba,
Excel A1 hücresindeki veriyi Word dosyasi oluşturup 1.Paragrafa sola yasla, B1 hücresindeki veriyi ise yine 2.Paragrafa saga yasla şeklinde aktarım yapacak bir koda ihtiyacım var..
Yardımlarınız için şimdiden teşekkürler..
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
'referanslar da bu olmalı
'Microsoft Word 12.0 Object Library

kod:

Kod:
Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Dim appword As Word.Application
Dim docword As Word.Document
Set appword = CreateObject(class:="Word.Application")
If Not appword Is Nothing Then Set appword = GetObject(class:="Word.Application")
appword.Visible = True
Set docword = appword.Documents.Add

docword.Paragraphs(docword.Paragraphs.Count).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft 
docword.Paragraphs(docword.Paragraphs.Count).Range.InsertBefore Cells(1, 1).Value
docword.Paragraphs.Add
docword.Paragraphs(docword.Paragraphs.Count).Range.ParagraphFormat.Alignment = wdAlignParagraphRight 
docword.Paragraphs(docword.Paragraphs.Count).Range.InsertBefore Cells(1, 2).Value

docword.Paragraphs.Add
docword.Paragraphs(docword.Paragraphs.Count).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
say5 = CreateObject("Scripting.FileSystemObject").getfolder(ThisWorkbook.Path).Files.Count + 1
docword.SaveAs ThisWorkbook.Path & "\sablon" & say5 & ".doc"
docword.Close
appword.Quit
Application.CutCopyMode = False

MsgBox "işlem tamam"

End Sub
 
Katılım
13 Temmuz 2013
Mesajlar
241
Excel Vers. ve Dili
Türkçe 2007
Üstad çok teşekkür ederim emeğine sağlık, küçük bir problemim daha var umarum çözümü vardır..
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")
Range("A1").CurrentRegion.Copy
Set oDoc = wdApp.Documents.Add
oDoc.Content.PasteAndFormat (wdFormatOriginalFormatting)

paylaşmış oldugun kodlara yukarıdaki kod ile excel deki tabloyu word e atıyorum fakat word 1.paragrafa attıgı icin 1.paragraftaki yazıların ustune gelmiş oluyor tablo.. tabloyu 3. paragrafa kopyala gibi birşey denebilir mi mesela .. teşekkürler ..
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Böyle olabilir

Kod:
oDoc.Paragraphs(oDoc.Paragraphs.Count).Range.PasteAndFormat (wdFormatPlainText)
 
Katılım
13 Temmuz 2013
Mesajlar
241
Excel Vers. ve Dili
Türkçe 2007
Üstad çok teşekkür ederim.. tablonun altina metin yazmak istersem nasil paragraf ekleyebilirim? Ben eklemeye çalıştım fakat tablo satırları genişledi..
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Kod:
docword.Paragraphs.Add
Kod:
oDoc.Paragraphs.Add
 
Katılım
13 Temmuz 2013
Mesajlar
241
Excel Vers. ve Dili
Türkçe 2007
Üstad ekledi teşekkür ederim, tablonun altina ekledigim metnin paragraf yüksekliğini nasıl ayarlayabilirim? oDoc.Paragraphs.SpaceAfter =24 dedigim zaman tum belgelerin paragraf yüksekliği değişiyor.. fakat ben tablonun altina ekledigim metinin tablodan uzakligini ayarlamak istiyorum.. çok teşekkür ederim..
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Üstad ekledi teşekkür ederim, tablonun altina ekledigim metnin paragraf yüksekliğini nasıl ayarlayabilirim? oDoc.Paragraphs.SpaceAfter =24 dedigim zaman tum belgelerin paragraf yüksekliği değişiyor.. fakat ben tablonun altina ekledigim metinin tablodan uzakligini ayarlamak istiyorum.. çok teşekkür ederim..

Kod:
oDoc.Paragraphs(oDoc.Paragraphs.Count).SpaceBefore = 24
.
 
Katılım
13 Temmuz 2013
Mesajlar
241
Excel Vers. ve Dili
Türkçe 2007
Üstad =24 araligi fazla oldu =1 dedim halen fazla.. Araligi nasil kucultebilirim
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Böyle dosya olmadan ne yaptığımızı bilmiyoruz çalışan kodların olduğu örnek excell dosyasını ve yapmak istediğiniz word dosyasını ekleyiniz bakalım
 
Katılım
13 Temmuz 2013
Mesajlar
241
Excel Vers. ve Dili
Türkçe 2007
Üstad elimden geldiğince görseller ile destekleyerek istediğim kriterleri basitçe ifade etmeye çalıştım.. Şimdiden desteğiniz için teşekkür ederim..

 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Yapılmak isteneni resim ile göstermişsiniz yapılmak isteneni word dosyası olarak ekleyiniz.
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
içerik silindi
 
Son düzenleme:

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
içerik silindi
 
Son düzenleme:

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
içerik silindi
 
Son düzenleme:
Katılım
13 Temmuz 2013
Mesajlar
241
Excel Vers. ve Dili
Türkçe 2007
Üstad çok teşekkür ederim sorunum sayende çözüldü, emegine sağlık ..
 
Üst