Belli Bir alanı Excelden Word'a Kopyalama

[Kemal Demir]

Arkadaşlar Selam;

[vb:1:c8c965280a]Sub WordAç()
Set objword = CreateObject("Word.Application")
objword.Visible = True
objword.Documents.Add DocumentType:=wdNewBlankDocument
End Sub[/vb:1:c8c965280a]

Yukarıdaki kod'a nasıl bir ilave yapalım ki Çalıştıgımız excel sayfasını Kopyalasın.

Bu konuda neler yapabiliriz.

 

[Haluk]

Sub WordAc()
    Range("A1:E25").Copy
    Set objword = CreateObject("Word.Application")
    objword.Visible = True
    objword.Documents.Add DocumentType:=wdNewBlankDocument
    objword.Selection.PasteSpecial Link:=False, DataType:=20
End Sub

 

[Kemal Demir]

Sn.Haluk ,

Öncelikle Teşekkur Ederim.İzniniz Olursa Birşey daha Sormak istiyorum.

Exceldeki Format'ı ıle atmamız mumkun mudur.

Ve acılan Word Dosyasına Inputbox Yordamı ile İsim Yazdırılabilinirmi?

isim=inputbox("Yeni Acılan Dosyanın İsmini Giriniz")
Excel
ActiveSheet.name=isim
Word
ActiveDocument.name=isim

Böle Bir mantıkla işler mi?

Teşekkur Ederim.

 

[Haluk]

Sub WordAc()
    fName = Application.InputBox("Dosya ismi girin...", "Dosya")
    If fName <> 0 Then
        ActiveSheet.Name = fName
        Range&#40;"A1&#58;E25"&#41;.Copy
        Set objword = CreateObject&#40;"Word.Application"&#41;
        objword.Visible = True
        Set MyDoc = objword.Documents.Add&#40;DocumentType&#58;=wdNewBlankDocument&#41;
        objword.Selection.PasteSpecial Link&#58;=False, DataType&#58;=10
        objword.activedocument.SaveAs "C&#58;\" & fName & ".doc"
    End If
End Sub

 

[Kemal Demir]

Çok Teşekkur Ederim.