excel sayfasını worda aktarma

[mustafa155]

sevgili arkadaşlar, bu konu başlığı altında mutlaka sorular ve çözümleri vardır. Ancak, şu sıralar her an internete ulaşma imkanım olmadığı için bir araştırma yapamadan sorayım dedim yardımcı olursanız sevinirim.

Excel' de hazırladığım bir tablo veya çizelgeyi bir tuşla word sayfasına aktarmak istiyorum. Soru bu kadar

 

[gezgin-49]

bağ_yapıştır yöntemini deneyebilirsiniz.

 

[gezgin-49]

ayrıca
http://www.excel.web.tr/showthread.php?t=28932&highlight=word

ve

http://www.excel.web.tr/showthread.php?t=23073

linklerini incelersen belki işine yarayacak birşeyler bulabilirsin, ayrıca

forumda mevcut kod bankasından aldığım kodu da gönderiyorum, kendinize uyarlayıp kullanabilirsiniz, inşallah birinden biri işinize yarar, Allah kolaylık versin,
kodları gönderiyorum.
Sub worde()
fName = Application.InputBox("Dosya ismi girin...", "Dosya")
If fName <> 0 Then
ActiveSheet.Name = fName
f = InputBox("Ka&#231;&#305;nc&#305; Sat&#305;ra Kadar Aktars&#305;n?", "Aktar&#305;lacak B&#246;lge")
Range("A1: &#305;" & f).Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocu ment)
objword.Selection.PasteSpecial Link:=False, DataType:=2
objword.activedocument.SaveAs "C:\" & fName & ".doc"
End If
Application.CutCopyMode = False

End Sub