Excel VBA和文件夹-1.11获取单个文档的属性-即用型

前景提要

今天我们继续分享一些和文件夹相关的内容的操作，上一次我们分享了如何获取文件夹内每个文件的属性，今天我们来分享下如何获得单个文档的属性，依然属于即用型，拿来即用。

上代码

1.将所得的消息展示在excel表格中

Sub xieru()

    Dim wb As Workbook

    Dim myProperties As DocumentProperty

    Columns("A:B").Clear

    Set wb = ThisWorkbook

    Range("A1:B1").Value = Array("信息名称", "信息数据")

    For Each myProperties In wb.BuiltinDocumentProperties

        With Range("A65536").End(xlUp).Offset(1)

            .Value = myProperties.name

            On Error Resume Next

            .Offset(, 1).Value = myProperties.Value

            On Error GoTo 0

        End With

    Next

    Columns.AutoFit

    Set wb = Nothing

End Sub

效果如图：

1.jpg

2，如果不显示在表格中，仅仅是弹窗告诉我就可以了，如何实现呢？

Sub tanchuang()

    Application.ScreenUpdating = False

    Set fso = CreateObject("Scripting.FileSystemObject")

    strfile = Application.InputBox("请输入文件的完整名称:", "请输入文件的完整名称:", , , , , , 2)

    Set ObjFile = fso.GetFile(strfile)

    If fso.fileexists(strfile) Then

        sReturn = "文件属性： " & ObjFile.Attributes & vbCrLf

        sReturn = sReturn & "文件创建日期： " & ObjFile.DateCreated & vbCrLf

        sReturn = sReturn & "文件修改日期： " & ObjFile.DateLastModified & vbCrLf

        sReturn = sReturn & "文件大小 " & FormatNumber(ObjFile.Size / 1024, -1)

        sReturn = sReturn & "Kb" & vbCrLf

        MsgBox sReturn

    Else

        MsgBox strfile & " :不存在"

    End If

    Application.ScreenUpdating = True

End Sub

效果如下：

这次真是的内容就简单一些

2.jpg