-->

VBA اكسيل | كيفية عمل تحويل اى عدد من شيتات الاكسيل الى صيغة Excel to PDF


بسم الله الرحمن الرحيم

اهلا بكم متابعى موقع عالم لاوفيس

درس جديد ودرس مهم جدا وحصرى

 كيفية عمل تحويل اى عدد من شيتات الاكسيل الى صيغة PDF

يعد Excel to PDF Converter لأوراق العمل المحددة أداة مفيدة للغاية لتحويل Excel إلى PDF بسرعة لأوراق المصنف النشطة. يمكنك تحديد الأوراق في المربع الوارد في النموذج والنقر فوق بدء التحويل. سيحفظ ملف PDF في مجلد Temp الخاص بالنظام بعد التحويل ويبقيه مفتوحًا. يمكنك حفظ هذا الملف في أي مكان باستخدام زر الحفظ في ملف PDF.

فى البداية نريد احضار جميع اسماء اوراق العمل الموجودة داخل ملف العمل الخاص بنا الى الليست بوكس 

ويتم ذلك من خلال هذا الكود


 Sub Show_Sheet_Name()

Dim sh As Worksheet

 Me.ListBox1.Clear

 For Each sh In ActiveWorkbook.Worksheets

     If Me.TextBox1.Value <> "" Then

        If InStr(UCase(sh.Name), UCase(Me.TextBox1.Value)) > 0 Then

            If sh.Visible = xlSheetVisible Then

                Me.ListBox1.AddItem sh.Name

            End If

        End If

    Else

        If sh.Visible = xlSheetVisible Then

            Me.ListBox1.AddItem sh.Name

        End If

    End If

Next

End Sub 

 

ثم بعد ذلك نقوم بعمل كود تحويل الاكسيل الى PDF من خلال هذا الكود

لمعرفة الية عمل الكود يرجى مشاهدة شرح الفيديو 

Private Sub CommandButton1_Click()

 

Dim sheet_names  As String

Dim sh As Worksheet

Set sh = ActiveSheet

 

Dim i, x As Integer

sheet_names = ""

x = 0

 

For i = 0 To Me.ListBox1.ListCount - 1

    If Me.ListBox1.Selected(i) Then

        If x = 0 Then

            sheet_names = Me.ListBox1.List(i)

        Else

            sheet_names = sheet_names & "*" & Me.ListBox1.List(i)

        End If

        x = x + 1

    End If

Next i

 

If x = 0 Then

    MsgBox "Please select worksheet in the box", vbCritical

    Exit Sub

End If

 

ActiveWorkbook.Sheets(Split(sheet_names, "*")).Select

ActiveSheet.ExportAsFixedFormat xlTypePDF, Environ("Temp") & Application.PathSeparator & Format(Now, "DDMMYYYYHHMMSS") & ".pdf", , , , , , True

 

 

sh.Select

 

End Sub

 

 


لمعرفة معلومات اكثر يرجى مشاهدة الفيديو الشرح




Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق