标识并使用VBA代码辨认特定的工作簿-英雄云拓展知识分享

有时候，需要使用代码确认某个工作簿是不是是特定模板创建，或是不是属于某个利用程序，如果是就打开并操作该工作簿或利用程序。如何实现呢？

一种经常使用的方法是对工作簿文件添加自定义内涵的文档属性，这样让代码在不打开工作簿的情形下判断是不是是想要的工作簿。

为工作簿添加自定义内涵文档属性

单击“文件——信息——属性——高级属性”，打开工作簿的“属性”对话框。选取“自定义内涵”选项卡，在名称文本框中输入属性名称，示例中是“MyTestBook”，在类型下拉列表当选择“是或否”，选取取值选项按钮中的“是”，单击“添加”按钮，以下图1所示，为该工作簿添加自定义内涵文档属性。

图1

安装工具库DSOFile.dll

我们要使用名为DSOFile.dll的COM对象从关闭的工作簿中读取文档属性，因此，这种情况下，需要下载并安装该DLL。可以在Microsoft的网站上下载：

下载后，双击安装。安装终了后，选择VBE的菜单“工具——援用”命令，在“援用”对话框中找到并选取“DSO OLE Document Properties Reader 2.1”前的复选框，单击“肯定”，以下图2所示。

图2

编写检查自定义内涵文档属性的函数

下面的自定义内涵函数FileHasSomeProperty用来检查指定的文件是不是具有指定的文档属性，其中参数sFile接受指定的文件，参数sProperty接受指定文档属性名，如果sFile中具着名为sProperty的属性，则返回True，否则返回False。

‘检查指定文件是不是具有特定的文档属性

Function FileHasSomeProperty(ByVal sFileAs String, _

ByVal sProperty As String) As Boolean

Dim objDSO As DSOFile.OleDocumentProperties

Dim objProperty As DSOFile.CustomProperty

‘使用DSOFile来获得指定文件的文档属性

Set objDSO = New DSOFile.OleDocumentProperties

objDSO.Open sFile

‘遍历自定义内涵文档属性汇聚

‘如果存在指定名称且取值为是的属性

‘则返回True

For Each objProperty In objDSO.CustomProperties

If (objProperty.Name = sProperty) _

And (objProperty.Type =dsoPropertyTypeBool) Then

FileHasSomeProperty = True

Exit For

End If

Next objProperty

objDSO.Close

End Function

测试

下面的代码由用户选择工作簿，测试工作簿中是不是具着名为MyTestBook的属性，如果是，则弹出下图3所示的消息。

Sub testFileHasSomeProperty()

Dim vFileNames As Variant

Dim i As Long

Dim strPropertyName As Variant

vFileNames = Application.GetOpenFilename(“Excel工作簿(*.xls*), *.xls*”, , “选择工作簿”, , True)

If Not IsArray(vFileNames) Then Exit Sub

strPropertyName = “MyTestBook”

For i = LBound(vFileNames) To UBound(vFileNames)

If FileHasSomeProperty(vFileNames(i), strPropertyName) Then

MsgBox “具有特定标识的工作簿存在!”

End If

Next i

End Sub

如果所选工作簿具有指定的属性，则弹出下图3所示的消息。

图3