Believing
Altın Üye
- Katılım
- 19 Mayıs 2013
- Mesajlar
- 700
- Excel Vers. ve Dili
-
Office Pro 2019 TR 32 Bit
Windows Pro 10 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 23-08-2028
Sayın Uzman Arkadaşlar,
Aşağıdaki kod yardımı ile aktif sayfayı kitap adı, sayfa adı ve kayıt tarihi şeklinde, kitabın bulunduğu klasör içine Pdf formatında kaydediyorum.
Yukarıdaki işlemi Excel (.xlsx) formatında kayıt etmek için, mevcut kodlarda nasıl bir düzenleme yapmalıyım.
Konuya hakim uzman arkadaşların yardımlarını rica ederim.
Saygılarımla,
Ömer Ali ÜZÜMCÜ
Aşağıdaki kod yardımı ile aktif sayfayı kitap adı, sayfa adı ve kayıt tarihi şeklinde, kitabın bulunduğu klasör içine Pdf formatında kaydediyorum.
Kod:
Sub PdfKaydet()
yol = ThisWorkbook.Path & "\"
isim = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & " - " & _
ThisWorkbook.ActiveSheet.Name & " - " & Format(Now, "ddmmyyyy_hhss") & ".pdf"
ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & isim
End Sub
Konuya hakim uzman arkadaşların yardımlarını rica ederim.
Saygılarımla,
Ömer Ali ÜZÜMCÜ