Excel to Word Tablo

[OoParadiSeoO]

Arkadaşlar merhaba,
Excel den word'e veri aktarımı için aşağıdaki iki kod blogunu kullanıyorum fakat bu kod bloklarini sadeleştiremedim birinci ricam bu olacak.. İkincisi açıkta bir word dosyası varsa kod hata veriyor.. Yardımlarınız için teşekkür ederim..

Parça 1
Dim wdApp As Word.Application
Range("A1").CurrentRegion.Copy
Set wdApp = CreateObject("Word.Application")
wdApp.Documents.Add.Content.PasteAndFormat (wdFormatOriginalFormatting)
With wdApp
.Visible = True
.Activate
End With

Parça 2
Dim Rng As Word.Range, oDoc As Word.Document
Set oDoc = ActiveDocument
With oDoc.Tables(1)
Set Rng = .Cell(1, 1).Range
Rng.End = .Cell(1, 2).Range.End
Rng.Cells.Merge
Rng.Text = "Deneme"
End With

 

[OoParadiSeoO]

Yardımcı olabilecek var mı arkadaşlar ..

 

[PLİNT]

Merhaba
Kodları birleştirmek istiyorsanız şöyle deneyebilirsiniz

Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")
Range("A1").CurrentRegion.Copy
Set oDoc = wdApp.Documents.Add
oDoc.Content.PasteAndFormat (wdFormatOriginalFormatting)
With wdApp
.Visible = True
.Activate
End With
With oDoc.Tables(1)
Set Rng = .Cell(1, 1).Range
Rng.End = .Cell(1, 2).Range.End
Rng.Cells.Merge
Rng.Text = "Deneme"
End With
Application.CutCopyMode = False

 

[OoParadiSeoO]

Üstad sorun çözüldü çok teşekkür ederim ..