طلب كود حفظ الملف PDF و XLSM

[Mohdbns3id]

اسعد الله جميع اوقاتكم بكل خير،،،

 

أحتاج كود حفظ الملف بصيغة PDF  مع اخذ اسم خلية معينة وفتح نافذة الحفظ بإسم لكي اختار الملف المراد حفظه فيه

وزر اخر بنفس الكود ولكن بصيغة XLSM

 

ودمتم بكل خير،،،

[Ali Mohamed Ali]

تفضل هذا كود لحفظ الملف بصيغة XLSM ويكون اسم الملف موجود بالخليتين M1 & M2

Sub SaveAs()
    ThisWorkbook.Save   'save current workbook in current name
 
With Application.FileDialog(msoFileDialogSaveAs)
    .AllowMultiSelect = False
    .FilterIndex = 2
    .InitialFileName = Range("M2").Text & Range("M1").Text  'specify folder - can also include default filename in here too
    If .Show Then
             ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), _
                                                 FileFormat:=xlOpenXMLWorkbookMacroEnabled
    End If
End With
End Sub

وهذا كود لحفظ الملف بصيغة PDF

Sub PDFActiveSheet()
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd\_hhmm")
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"
strName = Replace(wsA.Name, " ", "")
strName = Replace(strName, ".", "_")
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")
If myFile <> "False" Then
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
End If
exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

 

[Mohdbns3id]

ياسلام عليك يا أ.علي

كود رائع جدا 

كود xlsm أحتاج أعدل عليه وأخليه يحفظ نسخة SaveAsCopy ويأخذ الاسم من الخليه مثلا A1

وكود PDF نفس الفكرة يأخذ الاسم من الخلية A1 مثلاً ويحفظ لي أوراق العمل النشطة في ملف PDF واحد

 

وجزاك الله كل خير،،،

[Mohdbns3id]

Up

[Elsayeh]

بارك الله قيكم وفي جهودكم