سلام
در کد زیر که مربوط به save کردن شیت در فرمت pdf هست میخوام تغییراتی بدم لطفا کمک کنید
در این کد همون شیتی که داخلش هستیم به pdf تبدیل میشه . در یک فایل اکسل یک شیت پنهان دارم که میخوام اون شیت را تبدیل به pdf کنم
یعنی با همین کد در شیت 1 شیت دو را که پنهان هست به pdf تبدیل کنم
لطفا راهنمایی کنید
کد PHP:
Sub Export()
Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler
Set ws = ActiveSheet
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
& "_" _
& Format(Now(), "yyyymmdd\_hhmm") _
& ".pdf"
strFile = ThisWorkbook.Path & "\" & strFile
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="ãÓíÑ æ äÇã ÝÇíá ÑÇ ÌåÊ ÐÎíÑå ÓÇÒí ãÔÎÕ äãÇÆíÏ")
If myFile <> "False" Then
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox ".ÝÇíá ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÑÏíÏ"
End If
exitHandler:
Exit Sub
errHandler:
MsgBox "ÎØÇ ÏÑ ÇíÌÇÏ ÝÇíá"
Resume exitHandler
End Sub
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)