excel sayfasını worda aktarma

Katılım
28 Aralık 2006
Mesajlar
129
Excel Vers. ve Dili
excel2000 tr
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

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
bağ_yapıştır yöntemini deneyebilirsiniz.
 

gezgin-49

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
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
 
Üst