MyTetra Share
Делитесь знаниями!
Раздел: VBA - VBA / Excel / Access / Word - File Path
  1. VBA / Excel / Access / Word
  2. File Path
  3. FileTypes

The FileTypes and PropertyTests Collection Objects

Sub SetFileTypes()
    Dim ft As FileTypes
    Dim I As Integer
    Set ft = Application.fileSearch.FileTypes
    With ft

        .Add msoFileTypePowerPointPresentations
        .Add msoFileTypeExcelWorkbooks
        .Add msoFileTypeWordDocuments
    End With
End Sub

Так же в этом разделе:
MyTetra Share v.0.52
Яндекс индекс цитирования