تبدیل و سیو کردن به صورت پی دی اف با ماکرو

[woodi]

سلام فایل رو نتونستم آپلود کنم جایی چون حاوی ماکرو بود
حالا من میخوام وقتی که رو دکمه سیبو کلیک میکنم فایل اکسل رو به صورت پی دی اف در بیاره و سیو کنه
مشکل اونجاست که میخوام از روی شماره بخونه هر بار که شماره حواله ام عوض میشه رو دکمه ذخیره کلیک میکنم یه فایل پی دی اف جدید بهم بده رو قبلی ذخیره نکنه

[Amir Ghasemiyan]

سلام دوست عزيز
تو قسمتي كه نوشته filename بايد تغييراتي ايجاد بشه و اطلاعات رو از شيت بخونه و به اسم فايل عطف كنه. براي عطف كردن از & بايد استفاده كنيد

[bahman_220]

سلام فایل رو نتونستم آپلود کنم جایی چون حاوی ماکرو بود
حالا من میخوام وقتی که رو دکمه سیبو کلیک میکنم فایل اکسل رو به صورت پی دی اف در بیاره و سیو کنه
مشکل اونجاست که میخوام از روی شماره بخونه هر بار که شماره حواله ام عوض میشه رو دکمه ذخیره کلیک میکنم یه فایل پی دی اف جدید بهم بده رو قبلی ذخیره نکنه[ATTACH=CONFIG]16556[/ATTACH]

[ATTACH=CONFIG]16555[/ATTACH][ATTACH=CONFIG]16555[/ATTACH]

سلام کد زیر رو با تغییرات شیت و رنج میتونی استفاده کنی .
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
Dim vrtSelectedItem As Variant
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
FileName1 = vrtSelectedItem & "" & Sheets("8").Range("B1").Value
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing
Dim strPDF_File_Name As String
Sheets(8).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileName1, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

[Pbapba]

سلام کد زیر رو با تغییرات شیت و رنج میتونی استفاده کنی .
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
Dim vrtSelectedItem As Variant
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
FileName1 = vrtSelectedItem & "" & Sheets("8").Range("B1").Value
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing
Dim strPDF_File_Name As String
Sheets(8).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileName1, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

اینکد را یک توضیح بدید اگرمن بخوام ازش استفاده کنم تغییرات چطور هست و باید چه کرد در فایل