بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم لاوفيس
درس جديد ودرس مهم جدا وحصرى
كيفية عمل تحويل اى عدد من شيتات الاكسيل الى صيغة PDF
يعد Excel to PDF Converter لأوراق العمل المحددة أداة مفيدة للغاية
لتحويل Excel إلى PDF بسرعة لأوراق المصنف النشطة. يمكنك تحديد
الأوراق في المربع الوارد في النموذج والنقر فوق بدء التحويل. سيحفظ ملف PDF في مجلد Temp الخاص بالنظام بعد التحويل ويبقيه مفتوحًا. يمكنك
حفظ هذا الملف في أي مكان باستخدام زر الحفظ في ملف PDF.
فى البداية نريد احضار جميع اسماء اوراق العمل الموجودة داخل ملف العمل الخاص بنا الى الليست بوكس
ويتم ذلك من خلال هذا الكود
Dim sh As Worksheet
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
لمعرفة
معلومات اكثر يرجى مشاهدة الفيديو الشرح