[حل شده] چگونگی نام فایل

[kazem1359]

با سلام در کد زیر که یک فایل را تبدیل به pdf می کنه نام فایل سیو شده همان نام فایل اکسل هست حالا چطور میشه نام فایل نامی باشه که خودمان در کد بدیم و با ان نام ذخیره بشه ؟
ممنون
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=file_name, SaveAs:=".pdf", openafterpublish:=True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=file_name, OpenAfterPublish:=True
End Sub

[alfa]

با سلام در کد زیر که یک فایل را تبدیل به pdf می کنه نام فایل سیو شده همان نام فایل اکسل هست حالا چطور میشه نام فایل نامی باشه که خودمان در کد بدیم و با ان نام ذخیره بشه ؟
ممنون
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=file_name, SaveAs:=".pdf", openafterpublish:=True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=file_name, OpenAfterPublish:=True
End Sub

Filename:=folder_address & "" & sheet_name & ".pdf"

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

Sub SaveSelectedSheetsToPDF()
Dim str As String, myfolder As String, myfile As String


str = "Do you want to save these sheets to a single pdf file?" & Chr(10)
For Each sht In ActiveWindow.SelectedSheets
str = str & sht.Name & Chr(10)
Next sht


answer = MsgBox(str, vbYesNo, "Continue with save?")
If answer = vbNo Then Exit Sub


'Ask for a directory
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
myfolder = .SelectedItems(1) & ""
End With


'Ask for a file name
myfile = Sheet1.Range("a1")


'Save sheets to pdf file
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myfolder & myfile _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True


End Sub

[kazem1359]

ممنون از پاسختان ولی منظور بنده این نبود بنده یک کد دارم که خودش محدوده table از شیت را انتخاب میکنه و سپس به صورت فایل pdf با نام خود فایل اصلی درر محل فایل اصلی ذخیره و همان لحظه فایل pdf را باز میکنه حالا من می خواهم نام فایل pdf را در کد داده شده به صورت ثابت خودم بدم تا با همون نام خودم که نوشتم ذخیره بشه مثلا با نام formevariz همین.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=file_name, SaveAs:=".pdf", openafterpublish:=True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=file_name, OpenAfterPublish:=True

ممنون

[M_ExceL]

با سلام در کد زیر که یک فایل را تبدیل به pdf می کنه نام فایل سیو شده همان نام فایل اکسل هست حالا چطور میشه نام فایل نامی باشه که خودمان در کد بدیم و با ان نام ذخیره بشه ؟
ممنون
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=file_name, SaveAs:=".pdf", openafterpublish:=True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=file_name, OpenAfterPublish:=True
End Sub

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

file_name = "TEST"

یا اینکه مستقیم داخل کد اسم بهش بدید، به این صورت :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, [COLOR=#ff0000]FileName:="TEST"[/COLOR], SaveAs:=".pdf", openafterpublish:=True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, [COLOR=#ff0000]Filename:="TEST"[/COLOR], OpenAfterPublish:=True

[kazem1359]

ممنون حل شد