word'e sadece bir sayfa aktarıyor

[gelen gecer mdmx]

Private Sub CommandButton1_Click()
fName = Application.InputBox("Dosya ismi girin...", "Dosya")
If fName <> 0 Then
f = InputBox("Kaçıncı Satıra Kadar Aktarsın?", "Aktarılacak Bölge")
Range("A1: ı" & f).Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.PasteSpecial Link:=False, DataType:=3
objword.activedocument.SaveAs "C:\" & fName & ".doc"
End If
Application.CutCopyMode = False
End Sub

ile exceldeki bir metni worde atıyorum ama kaç satır istersem istiyeyim word'ün bir sayfası kadarını kopyalıyor. tüm excel dosyamı nasıl kopyalayabilirim?

 

[gelen gecer mdmx]

arkada&#351;lar yok mu bunun bir &#231;&#246;z&#252;m&#252;? ama datatype 3 kals&#305;n.

 

[ersoyalan]

Arkada&#351;&#305;mm erhaba,

A&#351;a&#287;&#305;daki kodu kendine uyarlay&#305;p denermisin.


Sub worde()
Range("D1: E100").Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.PasteSpecial DataType:=2
End Sub

 

[gelen gecer mdmx]

te&#351;ekk&#252;r ederim ama data type 3 laz&#305;m bana. 2 oldu&#287;u zaman istedi&#287;im verileri aktaram&#305;yorum. senin kodu ekledim data type 3 yap&#305;p yine tek sayfaya att&#305;.

 

[ersoyalan]

&#220;z&#252;lme uzman hocalar&#305;m&#305;z yard&#305;mc&#305; olacaklard&#305;r..Biraz sabret..

 

[gelen gecer mdmx]

ilgin i&#231;in te&#351;ekk&#252;r ederim. iyi g&#252;nler