حفظ ورقة عمل بصيغة PDF (تصدير ورقة عمل لملف PDF)

[ايمن مهيرات]

_{السلام عليكم .. الله يعطيكم العافية ..}

 استفسار ( مساعدة )  ...

 

عندي ماكرو لحفظ شيت اكسل  بصيغة pdf  ،، وضعته على صورة في شيت يقوم عند الضغط على الصورة بحفظ الشيت نفسه بصيغة pdf  ،،

ما اريده هو :: عند الضغط على الصورة ان يحفظ شيت اخر وليس نفس الشيت .. ممكن يكون الحل عن طريق هايبر لينك او تعديل على نفس الماكرو ...
مساعدتكم   

 

الماكرو الحالي :: 

Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler

Set ws = ActiveSheet

'enter name and select folder for file
' start in current workbook folder
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:="Select Folder and FileName to save")

If myFile <> "False" Then
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    MsgBox "PDF file has been created."
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

تم تعديل مايو 9, 2015 بواسطه ايمن مهيرات

[ياسر خليل أبو البراء]

أخي الكريم أيمن

أهلا أهلا أهلا بيك في المنتدى ونورت بين إخوانك

 

يرجى تغيير اسم الظهور للغة العربية

لمعرفة كافة القواعد والتوجيهات وكيفية التعامل مع المنتدى يرجى زيارة هذا الرابط ..

http://www.officena.net/ib/index.php?showtopic=60147

 

بالنسبة للكود يوضع بين أقواس الكود لسهولة التعرف عليه

والأفضل إرفاق ملف لتوضيح طلبك بشكل أدق

تقبل تحياتي

[ايمن مهيرات]

تم التعديل ... اشكرك ...

انتظر المساعدة 

[ياسر خليل أبو البراء]

أخي الكريم أيمن

شايف السطر ده

Set ws = ActiveSheet

مقلتش شايفه ليه !!

 

غير ورقة العمل النشطة لأي ورقة عمل أخرى بكل بساطة

يعني مثلاً لو ورقة العمل اللي عايز تصدرها لملف PDF كان اسمها (هاكونامطاطا) دا مثال يا أيمن مش مهم دي ايه .. المهم هتتعامل إزاي

بدل السطر اللي فوق بالسطر ده

Set ws = Sheets("هاكونامطاطا")

بتكتب كلمة Sheets يليها قوس (Shift + 9) دي فتحة القوس ، يليه أقواس تنصيص (Shift + حرف الطاء) وتكتب اسم ورقة العمل

ومتنساش تقفل .. بأقواس التنصيص مرة تانية بعد الاسم وتقفل القوس Shift+0 المرة دي

وبكدا تكون وصلت للمطلوب

تقبل تحياتي