سلام
این کد فایل اکسل روبر حسب اسمی که در سلول مورد نظر هست ذخیره میکنه
حالا میخوام علاوه براین محل ذخیره تو پوشه مورد نظر هم مشخص باشهدمن برای تعریف مسیر پوشه کدوم قسمت رو تغییر بدم؟
این کد فایل اکسل روبر حسب اسمی که در سلول مورد نظر هست ذخیره میکنه
حالا میخوام علاوه براین محل ذخیره تو پوشه مورد نظر هم مشخص باشهدمن برای تعریف مسیر پوشه کدوم قسمت رو تغییر بدم؟
کد:
Option ExplicitSub Print_PDF()
Dim Awb As Workbook
Dim Snr As Integer
Dim ws As Worksheet
Set Awb = ActiveWorkbook
For Each ws In Awb.Sheets
If Not ws.Name = "" Then
'Sheets(ws.Name).Copy
Awb.Sheets(ws.Name).Copy
'Sheets(ws.Name).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Awb.Path & "\" & Awb.Sheets(ws.Name).Range("h2").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWindow.Close False
End If
Next ws
End Sub
کامنت