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

faiselo68 · أكتوبر 11, 2019

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

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

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

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

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

وشكرا لكم

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

**حسين مامون** · أكتوبر 11, 2019

اخي الكريم

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

الكود يعمل على نسخ صفحات الملف باستثناء 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