FileConverters 属性

       

返回已安装的文件转换器的信息。如果未安装任何转换器,则返回 NullVariant 类型,只读。

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