VBAのFileConvertersプロパティ

こちらでは、エクセルVBAのFileConvertersプロパティの解説になります。

プロパティとはオブジェクトの属性を指します。属性とは、そのオブジェクトの情報そのものです。プロパティはその値を取得したり、設定することもできます。プロパティを利用するにはオブジェクト名とプロパティ名の間に「.(ピリオド)」で結んで記述します。

オブジェクト名.プロパティ名

また、プロパティを設定する場合は以下のように「=(イコール)」を記述し設定値を代入します。

オブジェクト名.プロパティ名 = 設定値

FileConvertersプロパティ

FileConvertersプロパティは、システムに組み込まれているファイルコンバータの情報を返します。組み込み済みのコンバータがないときは、Null 値を返します。値の取得のみ可能です。バリアント型 (Variant) の値を使用します。

expression.FileConverters(Index1, Index2)
expression 必ず指定します。Application オブジェクトを返すオブジェクト式を指定します。
Index1 省略可能です。バリアント型 (Variant) の値を使用します。コンバータの長い形式の名前です。Windows では、この名前にはファイルの種類の検索文字列 (たとえば、Lotus 1-2-3 Files (*.wk*)) が含まれます。
Index2 省略可能です。バリアント型 (Variant) の値を使用します。コンバータとして使用される DLL またはコードリソースのパス名です。

次の使用例は、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 用コンバータが組み込まれています。"
Else
    MsgBox "Multiplan 用コンバータが組み込まれていません。"
End If