sinnernekolens
Altın Üye
- Katılım
- 23 Temmuz 2009
- Mesajlar
- 310
- Excel Vers. ve Dili
- Ofis 2019 - Türkçe 64bit
- Altın Üyelik Bitiş Tarihi
- 02-09-2027
İyi günler arkadaşlar,
Aşağıdaki kod ile sayfayı pdf ye çeviriyorum ve çevrilen pdf yi excel dosyanın bulunduğu konuma kaydediyor.
yapmak istediğim excel dosyasının bulunduğu konumda "Kayıtlar" adında bir klasörüm var, Pdf ye çevirdiğim dosyaları bu klasöre kayıt yapmasını nasıl sağlaya bilirim.
yardımlarınızı rica ederim.
Private Sub CommandButton6_Click() 'PDF YE ÇEVİRİYOR
Yol = ThisWorkbook.Path
isim = Format(Sheets("PDA").Range("G1") & ".pdf")
'Sheets("PDA").Select
Sheets("PDA").Range("A1:G62").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
MsgBox "Tablonun Bulunduğu Sayfaya Kaydedilmiştir.", vbInformation, "P D F"
Dim Adres
Adres = ThisWorkbook.Path
If Adres <> "" Then
CreateObject("Shell.Application").Open (Adres)
End If
End Sub
Aşağıdaki kod ile sayfayı pdf ye çeviriyorum ve çevrilen pdf yi excel dosyanın bulunduğu konuma kaydediyor.
yapmak istediğim excel dosyasının bulunduğu konumda "Kayıtlar" adında bir klasörüm var, Pdf ye çevirdiğim dosyaları bu klasöre kayıt yapmasını nasıl sağlaya bilirim.
yardımlarınızı rica ederim.
Private Sub CommandButton6_Click() 'PDF YE ÇEVİRİYOR
Yol = ThisWorkbook.Path
isim = Format(Sheets("PDA").Range("G1") & ".pdf")
'Sheets("PDA").Select
Sheets("PDA").Range("A1:G62").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True
MsgBox "Tablonun Bulunduğu Sayfaya Kaydedilmiştir.", vbInformation, "P D F"
Dim Adres
Adres = ThisWorkbook.Path
If Adres <> "" Then
CreateObject("Shell.Application").Open (Adres)
End If
End Sub