تحويل جميع صفحات ملف الإكسيل الى Pdf

[faiselo68]

السلام عليكم ورحمة الله وبركاته

الرجاء تزويدي بكود او طريقة ترحيل جميع أوراق العمل للاكسل الى بي دي اف على ان يكون الاسم في خانه معينه في ورقة العمل الأولى

لك جزيل الشكر اخ حسين مأمون

لقد ارفقت لك مثال، فيه السؤال

والسلام عليكم

وشكرا لكم

 

المكتبة الصوتية.xlsx

[حسين مامون]

اخي الكريم 

بذون ملف نمودج لما تريد  يستحيل فهم السؤال ولكن جرب الكود 

الكود يعمل على نسخ صفحات الملف باستثناء Sheet2 يخزنها في مجلد باسم factur  على سطح المكتب

قم بانشاء مجلد على سطح المكتب وسميه factur

 ملاحظة يجب ان يكون في الشيتات بيانات 

Private Sub CommandButton1_Click()
Dim fName As String
Application.ScreenUpdating = False
Dim sh As Worksheet
       For Each sh In Sheets
With sh
       
       If .Name = "Sheet2" Then GoTo 1
       .Activate
        fName = ThisWorkbook.Name & .Name & Format(Now(), "dd-mm-yyyy- hh.mm.ss")

         ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\" & Environ("UserName") & "\Desktop\" & "\factur\" & fName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
1: Next sh
Application.ScreenUpdating = True
Sheets("Sheet2").Activate
End Sub

 

حفظ بي دي اف.xlsm

[حسين مامون]

اخي الكريم  قم بانشاء مجلد factur في Documents

انا جربته وهو 100/100

هذه صورة داخل مجلد factur بعد تنفيذ الكود

ان لم يعمل ارسل صورة للمستندات او documents

المكتبة الصوتية.xlsm

[faiselo68]

السلام عليكم ورخمة والله

 

شكرا لك اخي الفاضل حسين مأمون على تفضلك بمساعدتي

 

جزاك الله خير

[حسين مامون]

عفوا اخي الكريم /////////////////// وجزيت خيرا