Excel dosyasını istenen klasör içine pdf olarak kaydedip kapatmak

[deepblackend]

Arkadaşlar Excel dosyalarıma "pdf olarak kaydet ve kapat" butonu eklemek istiyorum. Forumda aşağıdaki kodu buldum ancak bu kod pdf dosyasını excel dosyasının olduğu yere kaydediyor. ben pdf'i başka bir dosya içine kaydetmek ve beraberinde de Excel dosyasını kaydedip kapatmak istiyorum. yardımlarınızı rica ederim.

-----------------------------------
Sub Bilgileri_PDF_Olarak_Kaydet()

dosya_adı = ActiveWorkbook.Name
Range("B2:M41").Select

FS = Sheets("FIF").Range("J3").Value
FIS_NO = Sheets("FIF").Range("K3").Value
strdate = Format(Now, "yyyymmdd")


Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.ThisWorkbook.Path & "\" & strdate & " " & FS & FIS_NO & " " & "FASON FİŞİ", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True


End Sub
------------------------------------------------------------

 

[halit3]

Arkadaşlar Excel dosyalarıma "pdf olarak kaydet ve kapat" butonu eklemek istiyorum. Forumda aşağıdaki kodu buldum ancak bu kod pdf dosyasını excel dosyasının olduğu yere kaydediyor. ben pdf'i başka bir dosya içine kaydetmek ve beraberinde de Excel dosyasını kaydedip kapatmak istiyorum. yardımlarınızı rica ederim.

-----------------------------------
Sub Bilgileri_PDF_Olarak_Kaydet()

dosya_adı = ActiveWorkbook.Name
Range("B2:M41").Select

FS = Sheets("FIF").Range("J3").Value
FIS_NO = Sheets("FIF").Range("K3").Value
strdate = Format(Now, "yyyymmdd")


Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.ThisWorkbook.Path & "\" & strdate & " " & FS & FIS_NO & " " & "FASON FİŞİ", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True


End Sub
------------------------------------------------------------

Bunu denermisiniz.

Sub Bilgileri_PDF_Olarak_Kaydet()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.SELF.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla
If Right(Kaynak, 1) <> "\" Then Kaynak = Kaynak & "\"
dosya_adı = ActiveWorkbook.Name
Range("B2:M41").Select
FS = Sheets("FIF").Range("J3").Value
FIS_NO = Sheets("FIF").Range("K3").Value
strdate = Format(Now, "yyyymmdd")
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Kaynak & strdate & " " & FS & FIS_NO & " " & "FASON FİŞİ", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
ActiveWorkbook.Save
ActiveWindow.Close
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub

 

[deepblackend]

Teşekkürler çalışıyor. Ancak ben dosya seçmek yerine
D:\YEDEK\FORMLAR
içine pdf'i direk kaydetsin ve exceli kapatsın istiyorum. Önceki mesajımda sanırım eksik ifade ettim. Bu şekilde düzenleyebilirmiyiz acaba. Teşekkürler.

 

[halit3]

Teşekkürler çalışıyor. Ancak ben dosya seçmek yerine
D:\YEDEK\FORMLAR
içine pdf'i direk kaydetsin ve exceli kapatsın istiyorum. Önceki mesajımda sanırım eksik ifade ettim. Bu şekilde düzenleyebilirmiyiz acaba. Teşekkürler.

kod

Sub Bilgileri_PDF_Olarak_Kaydet()
Kaynak = "D:\YEDEK\FORMLAR\"
dosya_adı = ActiveWorkbook.Name
Range("B2:M41").Select
FS = Sheets("FIF").Range("J3").Value
FIS_NO = Sheets("FIF").Range("K3").Value
strdate = Format(Now, "yyyymmdd")
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Kaynak & strdate & " " & FS & FIS_NO & " " & "FASON FİŞİ", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

 

[deepblackend]

süper oldu. çok teşekkürler.

 

[halit3]

süper oldu. çok teşekkürler.

İyi çalışmalar