Excelden Worde Tablo Aktarmak

[doganyorulmazjeo]

merhabalar konunun pek hakımı değilim ama excelde bir tabloyu resim formatında yada normal tablo seklinde atmak istiyorum ama calısma sayfas1 de buton yaptım bu buton yardımıyla tabloyu otomatık olarak aktarabilirmiyiz ekte dosyaları koyuyyorum .

Sub wordtabloekle()

Dim wrd As Word.Application
Dim dok As Word.Document
Set wrd = New Word.Application

wrd.Visible = True

Set dok = wrd.Documents.Add

With wrd.Selection
.Style = "Başlık 1"
.TypeParagraph
.Style = "normal"
Sheets("sayfa2").Range("A1").CurrentRegion.Copy

.Paste

End With

End Sub

 

[Korhan Ayhan]

İnceleyiniz.