Makro ile excel dosyasını pdf olarak kaydetmek istiyorum

[x_files_x]

Merhaba, klasik excel dosyasını el ile manuel olarak pdf ye çevirmek yerine makro ile o dosya adına özel pdf ye çevirmek istiyorum. Neti araştırdığım zaman dosyayı kaydetme aşamasında bizden dosya ismi tanımlamamızı isteyen örnekler var ve çalışıyor ama ben diyelim ki deneme.xlsm dosyasını -> deneme.pdf dosyası şekli gibi kaydetmek istiyorum yani dosya ismini ben tanımlamayacağım kendisi otomatik yazacak. Yardımlarınız için tşk ederim.

 

[Haluk]

"Makro Kaydet" yöntemiyle işe başlayabilirsiniz. Üretilen kodu daha sonra isterseniz kendinize göre geliştirirsiniz veya olduğu gibi kullanırsınız...

.

 

[x_files_x]

"Makro Kaydet" yöntemiyle işe başlayabilirsiniz. Üretilen kodu daha sonra isterseniz kendinize göre geliştirirsiniz veya olduğu gibi kullanırsınız...

.

Makro kaydetme ile de yaptım ancak deneme.xlsm dosya için denediğim için elimdeki makro dosya ismini deneme.pdf olarak kaydediyor. Benim istediğim mevcut dosya ismi.pdf olarak kaydetmesi

 

[Haluk]

İyi ya işte, makronun çalıştığı dosyanın adı neyse onu kullanır PDF adı olarak....

İstediğiniz bu değilse, üretilen kodda dosya ismini değiştirin.

.

 

[x_files_x]

İyi ya işte, makronun çalıştığı dosyanın adı neyse onu kullanır PDF adı olarak....

İstediğiniz bu değilse, üretilen kodda dosya ismini değiştirin.

.

İyi ya işte, makronun çalıştığı dosyanın adı neyse onu kullanır PDF adı olarak....

İstediğiniz bu değilse, üretilen kodda dosya ismini değiştirin.

.

Anlatamadım derdi mi bakın makronun çalıştığı excel dosya adı +pdf şeklinde istiyorum ben ancak bunu yapan kod bulamadım, bulduklarım hep el ile dosya adını girmemiz gereken kodlar. makro ile kendim kaydedersem de sabit dosya adı kalıyor her dosyaya aynı adı veriyor

 

[EmrExcel16]

Müsadenizle Haluk Hocam.

Merhaba aşağıdaki gibi deneyin , iki farklı yöntem bir tanesi "Makro kaydet" yöntemi ile elde edilen kodlara ek olarak dosya adını makronun çalıştığı dosya adıyla aynı olmasını tanımladık , siz başka birşey istiyorsanız "dosyaAdi" değişkenini istediğiniz gibi değiştirebilirsiniz.

Sub Pdf_Kaydet1()
    'Makro kaydet ile elde edildi
    dosyaAdi = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
   
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Emr\Masaüstü\" & dosyaAdi & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
       
End Sub


Sub Pdf_Kaydet()

    dosyaAdi = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
   
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & dosyaAdi
   
End Sub

 

[x_files_x]

Müsadenizle Haluk Hocam.

Merhaba aşağıdaki gibi deneyin , iki farklı yöntem bir tanesi "Makro kaydet" yöntemi ile elde edilen kodlara ek olarak dosya adını makronun çalıştığı dosya adıyla aynı olmasını tanımladık , siz başka birşey istiyorsanız "dosyaAdi" değişkenini istediğiniz gibi değiştirebilirsiniz.

Sub Pdf_Kaydet1()
    'Makro kaydet ile elde edildi
    dosyaAdi = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
  
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Emr\Masaüstü\" & dosyaAdi & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
      
End Sub


Sub Pdf_Kaydet()

    dosyaAdi = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
  
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & dosyaAdi
  
End Sub

Hocam çok tşk ederim elinize sağlık. Ben çok uğraştım ama uzantısız dosya ismine ulaşmayı beceremedim. Siz yapmışsınız

 

[EmrExcel16]

İyi çalışmalar..

 

[x_files_x]

İyi çalışmalar..

tşkler hocam

 

[guderm]

Arkadaşlar,
Excel de bir Sipariş dosyam var dosyamda seri no var. Dosyamı PDF olarak serino ya göre kaydetmek istiyorum. Seri no deüiştikçe dosya ismimde değişmesini istiyorum bunu nasıl yapabilirim