كيف يمكنك إدراج قائمة تحتوي على جميع خصائص ملف Excel في ورقة العمل؟

في هذه المقالة، أقدّم لك كود VBA لإدراج قائمة تحتوي على جميع خصائص المصنف الحالي في ورقة عمل.

1. اضغطAlt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقرإدراج > وحدة نمطية، ثم الصق الكود أدناه في الوحدة النمطية الفارغة.

VBA: إدراج قائمة بجميع الخصائص

Sub WBProperties()
'UpdatebyKutools20191031
    Dim xWB As Workbook
    Dim xF As Long
    Dim xStr As String
    Dim xWSh As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    xStr = "Workbook Properties"
    Set xWB = Application.ActiveWorkbook
    Set xWSh = xWB.Worksheets.Item(xStr)
    If Not xWSh Is Nothing Then
        xWSh.Delete
    End If
    Set xWSh = xWB.Worksheets.Add
    xWSh.Name = xStr
    xWSh.Range("A1").Value = "Property"
    xWSh.Range("B1").Value = "Value"
    With xWB
        For xF = 1 To .BuiltinDocumentProperties.Count
            xWSh.Range("A65536").End(xlUp).Offset(1, 0).Value = _
            .BuiltinDocumentProperties.Item(xF).Name
            xWSh.Range("A65536").End(xlUp).Offset(0, 1).Value = _
            .BuiltinDocumentProperties.Item(xF).Value
        Next xF
    End With
    Application.DisplayAlerts = True
End Sub

3. اضغطF5لتشغيل الكود، وسيتم إنشاء ورقة عمل جديدة باسم «خصائص المصنف» في مقدمة ورقة العمل الحالية، تعرض جميع خصائص المصنف الحالي.

---

---