Lấy thông tin Summary của File Excel

[Excel_Fan]

Chào các Bạn!

Cho tôi hỏi: Trong excel VBA làm sao lấy thông tin trong tab Summary thuộc Properties của 1 file Excel.
Tab Summary hiện ra khi chọn File.Properties.Summary trên menu của Excel.

Thân chào.

 

[digita]

Chào bạn,

Code sau đây cho bạn thông tin cái file XL hiện hành nha:

Sub Info()
Dim i As Integer
Dim p As Variant
Dim finfo As String
    i = 0
    For Each p In ActiveWorkbook.BuiltinDocumentProperties
        i = i + 1
        On Error Resume Next
        finfo = finfo & ActiveWorkbook.BuiltinDocumentProperties(i).Name _
        & " - " & ActiveWorkbook.BuiltinDocumentProperties(i).Value & vbNewLine
    Next
    MsgBox finfo
End Sub

Mến