كود حفظ ورقه عمل

[أيهاب ممدوح]

الاخوة الاعزاء 

يوجد ملف مرفق به كود حفظ الورقه النشطه الي pdf ولكن اريد تغير مسار الحفظ الي ملف بعيد عن الملف وعدم ظهور قائمه الحفظ

عند الضغط علي زر الحفظ يقوم بحف الملف في مسار اخر في :D

بدون ظهور قائمه الحفظ

شكرا مقدماsave to pdf.xlsm

[shreif mohamed]

السلام عليكم

قم بوضع مسار الذي يتم حفظ الملفات بين الاقواس  الملونة بالكود ادناه

 

Sub PDFActiveSheet()
Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler

Set ws = ActiveSheet

strTime = Format(Now(), "yyyy-mm-dd")

strFile = "E:\access\dox" & "\" & ws.Name & "_" & strTime & ".PDF"

    ws.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=strFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False, _
    From:=1, _
    To:=2

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

End Sub

تم تعديل مارس 23, 2018 بواسطه shreif mohamed