返回已安装的文件转换器的信息。如果未安装任何转换器,则返回 Null。Variant 类型,只读。
expression.FileConverters(Index1, Index2)
expression 必需。该表达式返回一个 Application 对象。
Index1 Variant 类型,可选。转换器的长名称,包括 Windows 中的文件类型搜索字符串(例如“Lotus 1-2-3 Files (*.wk*)”)。
Index2 Variant 类型,可选。转换器动态链接库或代码资源的路径。
如果未指定参数,本属性返回包含所有已安装文件转换器的信息的数组。数组中每一行包含一个文件转换器的信息,如下表所示。
列 | 内容 |
---|---|
1 | 转换器的长名称 |
2 | 转换器动态链接库或代码资源的路径 |
3 | 文件扩展名搜索字符串 |
本示例显示是否安装了“Multiplan”文件转换器。
installedCvts = Application.FileConverters
foundMultiplan = False
If Not IsNull(installedCvts) Then
For arrayRow = 1 To UBound(installedCvts, 1)
If installedCvts(arrayRow, 1) Like "*Multiplan*" Then
foundMultiplan = True
Exit For
End If
Next arrayRow
End If
If foundMultiplan = True Then
MsgBox "Multiplan converter is installed"
Else
MsgBox "Multiplan converter is not installed"
End If