- Katılım
- 28 Haziran 2007
- Mesajlar
- 168
- Excel Vers. ve Dili
- OFFİCE 2016 (Türkçe)
Sub wordeaktar()
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
[AKTARILACAK SAYFA ADI!A1:G30].Copy
word.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
End Sub
Makrosunu kullanarak EXCELL sayfasını WORD'e aktarabiliyorum...
Peki aynı şekildeki makro ile EXCELL sayfasını PDF olarak aktarma/kaydetme imkanım yok mudur?
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
[AKTARILACAK SAYFA ADI!A1:G30].Copy
word.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
End Sub
Makrosunu kullanarak EXCELL sayfasını WORD'e aktarabiliyorum...
Peki aynı şekildeki makro ile EXCELL sayfasını PDF olarak aktarma/kaydetme imkanım yok mudur?
