çalışma kitabını buton yardımıyla pdf e dönüştürme

[garipyolcu06]

merhabalar

excel çalışma kitabını buton yardımıyla pdf dönüştürmek istiyorum. nasıl yapacağım konusunda yardımcı olabilir misiniz.

 

[rabbace]

Merhaba,

Sub pdf()
'
' pdf Makro
'

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "[COLOR="Red"]C:\Users\Aykut Diren\Downloads\Kitap1.pdf[/COLOR]", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

Kırmızı renkli yeri kendi bilgisayarınızdaki adresi vererek ve dosya adı vererek değiştiriniz.

 

[garipyolcu06]

merhabalar rabbace yardımların için çok teşekkür ederim. bugün üye olarak iyi ki burdayım diyebildiğim formda sizin gibi insanlar ile tanışmaktan çok memnunum tekrardan teşekkür ederim.

 

[garipyolcu06]

merhabalar rabbace sizden ricam bu pdf e çevirdiğinde tek sayfayı çeviriyor. tüm kitabı çevirmesi için ne yapabilirim.

 

[ÖmerBey]

Merhaba,
Kodun başına aşağıdaki satırı eklerseniz tüm kitabı çevirir...

Sheets.Select

 

[mustilem23]

Sayın rabbace ,

dosya adı yazmak yerine dosyayı seçerek yol gösterebilme kod ile imkanı var mıdır ?
Aslında amacım verdiğiniz kodları eklenti haline getirebilmek ,excel sayfasına gel sağ tuş pdf çevir gibi .

 

[ÖmerBey]

Excel - farklı kaydet seçenekleri içerisinde istediğiniz zaten mevcut. Farklı kaydet - Pdf biçimini seçip istediğiniz dosya konumuna kayıt yapabilirsiniz.

 

[mustilem23]

günaydın ,mucit77 teşekkürler oldu sorunum çözülmüştür.

 

[garipyolcu06]

merhabalar mucit77 dediğin gibi kodun başına ekledim fakat yine aynı şekilde tek sayfa çeviriyor. yanlış mı yapıyorum bilemedim.

 

[garipyolcu06]

tam olarak aşağıda belirttiğimi yaptım yanlışmıyım?


Sub pdf()
'
' pdf Makro
'

'Sheets.Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Murat\Desktop\GÜNCEL TK", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

 

[ÖmerBey]

[COLOR="Red"]'[/COLOR]Sheets.Select

Baştaki kesme işareti olmayacak.

 

[garipyolcu06]

merhabalar herkese yardımı için teşekkür ederim. kodları yardımlarınızla oluşturdum. 1 sorunum kaldı. tüm kitabı şeçtiğim zaman 1 sayfanın pdf e dönüşmemesini geri kalan tüm sayfaların dönüşmesini istesem bu kodlara nasıl bir kod eklemem gerekir.
ayrıca pdf mevcut excel ismi alacak ve excelle aynı klasöre kaydetmek istiyorum.
SANIRIM BEN ÇOK ŞEY İSTİYORUM.



Sub pdf()
'
' pdf Makro
'

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Murat\Desktop\GÜNCEL TK", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "İŞLEM TAMAM LANET OLASI MEKSİKALI.", vbInformation
End Sub

 

[garipyolcu06]

formda yazılı olan ifade için kusura bakmayın. o bende vermesini istediğim bir mesajdı kimseyle alakası yok lütfen kimse üzerine alınmasın. şimdiden özür dilerim.

 

[ÖmerBey]

Şu şekilde dönüştürmek istediğiniz sayfa isimlerini yazarak deneyiniz...

Sub pdf()
'
' pdf Makro

yol = ThisWorkbook.Path & "\"
uz = "." & CreateObject("Scripting.FilesystemObject").GetExtensionName(ThisWorkbook.Name)
ad = Replace(ThisWorkbook.Name, uz, ".pdf")

Sheets(Array([COLOR="Red"]"Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5"[/COLOR])).Select

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & ad, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "İŞLEM TAMAM.", vbInformation
End Sub

 

[garipyolcu06]

merhabalar mucit77 çok teşekkür ederim. işe yaradı. sayenizde Excel ve VB sevmeye başladım.

 

[daghan87]

Sub pdf111()
'
' pdf Makro

yol = ThisWorkbook.Path & "\"
uz = "." & CreateObject("Scripting.FilesystemObject").GetExtensionName(ThisWorkbook.Name)
ad = Replace(ThisWorkbook.Name, uz, ".pdf")

Sheets(Array("sayfa1", "sayfa2")).Select

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol & ad, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "İŞLEM TAMAM.", vbInformation
End Sub

 

[daghan87]

merhaba, yukarıda yazmıs oldugum kodda exceldeki belirlediğim sayfaları degil butun sayfaları pdf e cevırıyor. oysaki sadece sayfa1 ve sayfa2 leri geri kalan sayfa 3 sayfa 4 onları cevırmek ıstemıyorum sadece sayfa 1 ve sayfa2 pdf cevırmek ıstıyorum yardımcı olurmusunuz

 

[Korhan Ayhan]

İnceleyiniz.

Excel çalışma kitabındaki sayfaları birleştirip PDF olarak kaydetme..

Excel çalışma kitabında oluşturulan sayfa 1 ve sayfa 2 de bulunan çalışma alanlarını makro ile tek tıkla PDF olarak birleştirip çıktı almak istiyorum... Yardımcı olursanız sevinirim..

www.excel.web.tr