Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает сведения об установленных преобразователях файлов. Возвращает значение NULL , если не установлены преобразователи. Только для чтения, Variant.
Синтаксис
expression. FileConverters (Index1, Index2)
выражение: переменная, представляющая объект Application.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Index1 | Необязательный | Variant | Длинное имя преобразователя, включая строку поиска типа файла в Windows (например, "Файлы Lotus 1-2-3 (WK)"). |
| Index2 | Необязательный | Variant | Путь к библиотеке DLL или ресурсу кода преобразователя. |
Замечания
Если аргументы индекса не указаны, это свойство возвращает массив, содержащий сведения обо всех установленных преобразователях файлов. Каждая строка в массиве содержит сведения об одном преобразователе файлов, как показано в следующей таблице.
| Столбец | Содержание |
|---|---|
| 1 | Длинное имя преобразователя |
| 2 | Путь к библиотеке DLL или ресурсу кода преобразователя |
| 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
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.