• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Pdf kayıt yeri

sinnernekolens

sinnernekolens

Altın Üye
Katılım
23 Temmuz 2009
Mesajlar
310
Excel Vers. ve Dili
Ofis 2019 - Türkçe 64bit
İ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
 
Buyurun.:cool:
Kod: 
Yol = ThisWorkbook.Path & "\Kayıtlar"
 
Kod: 
Private Sub CommandButton6_Click()    'PDF YE ÇEVİRİYOR
    yol = ThisWorkbook.Path & "\KAYITLAR\"
    isim = Sheets("PDA").Range("G1") & ".pdf"

    Sheets("PDA").Range("A1:G62").ExportAsFixedFormat _
            Type:=xlTypePDF, Filename:=yol & isim, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True

    MsgBox "Tablonun Bulunduğu Sayfaya Kaydedilmiştir.", vbInformation, "P D F"

    CreateObject("Shell.Application").Open (yol)

End Sub
 
Sayın Üstadlar merhabalar,
yukarıdaki konuya ilişkin farklı bir sorum olacak. Belirli bir hücre alanını ("A1:BU60") pdf olarak kayıt yaptırırken, isim vermeden, sadece o günün tarihi ve saati olarak kayıt yapılabir mi acaba? herhangi bir isim vermeden command butonla otomatik olarak tarih ve saat bilgisini kayıtlar kalasörüne, tarih saat isimli pdf dosyasını kayıt edecek. yardımınız için şimdiden teşekkür ederim.
 
Merhaba,
Yukarıdaki kodlardaki isim satırını aşağıdaki şekilde değiştirip deneyiniz.
isim = Format(Now, "dd.mm.yyyy_hh.mm") & ".pdf"
 
Costcost' Alıntı:
Sayın Üstadlar merhabalar,
yukarıdaki konuya ilişkin farklı bir sorum olacak. Belirli bir hücre alanını ("A1:BU60") pdf olarak kayıt yaptırırken, isim vermeden, sadece o günün tarihi ve saati olarak kayıt yapılabir mi acaba? herhangi bir isim vermeden command butonla otomatik olarak tarih ve saat bilgisini kayıtlar kalasörüne, tarih saat isimli pdf dosyasını kayıt edecek. yardımınız için şimdiden teşekkür ederim.
Genişletmek için tıkla ...
Buyurun:cool:
Kod: 
isim = Format(now,"dd.mm.yyyy_hh_mm_ss") & ".pdf"
 
Son düzenleme:
Çok teşekkür ederim hızlı cevaplarınız için Sayın Ömerbey ve Sayın Orion1. ÖmerBey'in verdiği kod çalıştı, ancak Sayın Orion1'in kodunda debug hatası verdi.
 
7 nolu mesajda düzenledim.Tekrar deneyiniz.:cool:
 
Hocamr benimde buna benzer bir talebim olmuştu ancak cevap alamamıştım. Benimde kullandığım excel dosyamı ben standart bir formatta o günkü sayfa ismine göre kaydederek pdf'e dönüştürüyorum. Mesela dosya ismim 2019-01--TORNA.xlsm ve bugün ayın 17'ise 17 numaralı sayfanın adı olan 2019-01-17-TORNA.pdf olarak belirttiğim klasöre mesela C:\Users\u.i\Desktop\GÜNLÜK GÖNDERİLECEK MAİLLER klasörüne kaydettirmek istiyorum. Bunun için aşağıdaki şekilde denemeye çalıştım olmadı. Sheets("17") sabit değil mesela bugün 17 yarın 18 ... 20..31 şeklinde değişecek..Bunu nasıl yapabilirim?




Private Sub CommandButton16_Click()
yol = ThisWorkbook.Path & "C:\Users\ufuk.ince\Desktop\GÜNLÜK GÖNDERİLECEK MAİLLER"
isim = Format(Now, "dd.mm.yyyy_hh.mm") & ".pdf"
Sheets("17").Range("A1:Q161").ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=yol & isim, _
Quality:=xlQualityStandard, IncludeDocProperties:=True

MsgBox "Tablonun Bulunduğu Sayfaya Kaydedilmiştir.", vbInformation, "P D F"

CreateObject("Shell.Application").Open (yol)
End Sub
Orion1' Alıntı:
7 nolu mesajda düzenledim.Tekrar deneyiniz.:cool:
Genişletmek için tıkla ...
 
Sayın Orion1, ilginiz için çok teşekkür ederim. şimdi denedim, sizinki de güzel çalışıyor, hatta saniyesine kadar kayıt yapıyor. tekrar çok teşekkürler.
 
incsoft' Alıntı:
Sheets("17") sabit değil mesela bugün 17 yarın 18 ... 20..31 şeklinde değişecek..Bunu nasıl yapabilirim?
Genişletmek için tıkla ...
Kodunuza aşağıdaki kırmızı bölümleri ekleyip deneyiniz.
Rich (BB code): 
Dim gun As String
gun = Day(Date)
Sheets(gun).Range("A1:Q161").ExportAsFixedFormat _
İyi çalışmalar...
 
Private Sub CommandButton1_Click()
Dim gun As String
yol = ThisWorkbook.Path & "C:\Users\ufuk.ince\Desktop\GÜNLÜK GÖNDERİLECEK MAİLLER"
isim = Format(Now, "dd.mm.yyyy_hh.mm") & ".pdf"
gun = Day(Date)
Sheets(gun).Range("A1:Q161").ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=yol & isim, _
Quality:=xlQualityStandard, IncludeDocProperties:=True

MsgBox "Tablonun Bulunduğu Sayfaya Kaydedilmiştir.", vbInformation, "P D F"

CreateObject("Shell.Application").Open (yol)
End Sub


1547727537016.png
 
Aktif çalışma kitabında 17 isimli bir sayfa yok ise bu hatayı alırsınız.
Başka bir excel dosyası açıkken bu kodu kullanıyorsanız başına workbook adı ilave ediniz.
ThisWorkbook.Sheets(gun)... gibi
 
Tekrar merhaba,
Bir örnek dosya paylaşırsanız hatanın nereden kaynaklandığını daha doğru biçimde anlayabiliriz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst