ایجاد مسیر برای ذخیره فایل

[ali.b]

سلام
این کد فایل اکسل روبر حسب اسمی که در سلول مورد نظر هست ذخیره میکنه

حالا میخوام علاوه براین محل ذخیره تو پوشه مورد نظر هم مشخص باشهدمن برای تعریف مسیر پوشه کدوم قسمت رو تغییر بدم؟

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Amir Ghasemiyan]

سلام
این کد فایل اکسل روبر حسب اسمی که در سلول مورد نظر هست ذخیره میکنه

حالا میخوام علاوه براین محل ذخیره تو پوشه مورد نظر هم مشخص باشهدمن برای تعریف مسیر پوشه کدوم قسمت رو تغییر بدم؟

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

سلام

Awb.Path رو بايد پاك كنيد و آدرس پوشه رو بذارين البته داخل " "

[ali.b]

ممنون حل شد
حالا اگه بخوان هر شیت جدا گانه کار کنه

یعنی کلا کدی هست که با تعریف کردن تو button فقط اون شیت رو تبدیل به pdf کنه

[~M*E*H*D*I~]

برای اینکه هر شیت جداگانه و با دستور تبدیل به pdf بشه باید حلقه رو برداری یعنی

For Each ws In Awb.Sheets
Next ws 

حذف بشه و بعد بایک کلید این ماکرو فعال بشه