Buton ile Excelden Word Olarak Kaydetme

[selcukerd]

Merhaba Arkadaşlar,

Buton ile excel de bulunan belli aralığı pdf ye çevirip, excel' in bulunduğu dosyaya otomatik olarak pdf kaydedebiliyorum. Bunu word için hangi kodla yapabilirim. Benim kullandığım pdf olarak kaydetmek için kod aşağıdadır.

Sub Düğme24_Tıklat()
  
    Set SA = Sheets("BİLGİLER")

    Application.Goto Reference:=Worksheets("BİLGİLER").Range("A13:A14"), Scroll:=True
    
    yol = ThisWorkbook.Path
isim = SA.Range("A2001").Value & "-" & SA.Range("h2")
SA.Select
SA.Range("GG630:GN945").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _
& "\" & isim & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True



   
    Application.Goto Reference:=Worksheets("BİLGİLER").Range("A13:A14"), Scroll:=True
    ActiveWorkbook.Save
   Application.ScreenUpdating = True
   
   MsgBox "SÖZLEŞME EXCEL' İN BULUNDUĞU DOSYAYA KAYDEDİLDİ."

   


End Sub

 

[hamitcan]

Forumda arama yaparsanız size uygun örnekler bulabilirsiniz.

 

[selcukerd]

Hocam buldum ama uyarlayamadim kendime

 

[selcukerd]

Benim bakmadigim, goremedigim bir yer vardır belki. Link var mı ?

 

[selcukerd]

Ne yaptıysam bir türlü uyduramadım arkadaşlar. İlla ki word olarakta kaydetmeyebilir. Belli aralığı yeni excel çalışma kitabı olarakta kaydedebilir.

 

[hlojan]

örnek dosya ekle yardımcı olalım

http://www.dosya.tc/

 

[selcukerd]

Hocam dosya bu linkte: http://s6.dosya.tc/server5/gplfh3/Bilgiler.rar.html

 

[alicimri]

Sayın selcukerd
Tools>Reference dan "Microsoft Word ......Object Library" ekleyin

Sub Düğme20_Tıklat()
Dim SA As Worksheet
    Set SA = Sheets("Sayfa1")
    For i = 2 To SA.Cells(Rows.Count, "c").End(3).Row
        SA.Range("P9:T9") = SA.Cells(i, "E")
yol = ThisWorkbook.Path
isim = SA.Range("P9").Value & "-" & SA.Range("b2")
SA.Select
SA.Range("K9:T25").Select

Dim WDApp As Word.Application
 If Not TypeName(Selection) = "Range" Then
 MsgBox "Select a Range!", vbExclamation, "No Range Selected"
 Else
 Set WDApp = CreateObject("Word.Application")
 'WDApp.Visible = True
 Selection.Copy
 WDApp.Documents.Add
 WDApp.Selection.Paste
 WDApp.ActiveDocument.SaveAs Filename:=yol & "\" & isim & ".doc"
 WDApp.ActiveDocument.Close
  WDApp.Application.Quit
 Set WDDoc = Nothing
 Set WDApp = Nothing
 End If
    Next i
    Set SA = Nothing
    Application.Goto Reference:=Worksheets("Sayfa1").Range("A1:A2"), Scroll:=True
    ActiveWorkbook.Save
   Application.ScreenUpdating = True
MsgBox "FORM EXCEL' İN BULUNDUĞU DOSYAYA KAYDEDİLDİ."
End Sub

 

[selcukerd]

alicimri Hocam çok teşekkür ederim. Süper olmuş