чего ОН хочет? (.Filters.Add "Excel", "*.xls", 1)

на строке
.Filters.Add "Excel", "*.xls", 1

выдает

Run time error '438'
Object doesn't support this property or method

Чего ему, скотине, не ндравится?

Public Function SelectExcelFiler(aInitialFolder As String) As String
    Dim lrsRs As Object, _
        lItem As Variant, _
        lFile As Variant, _
        lFileName As String, _
        dlgOpen As Office.FileDialog
        
    Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
        
    With dlgOpen
       .title = "Укажите файл для загрузки"
       .Filters.Clear
       .Filters.Add "Excel", "*.xls", 1
'       .Filters.Add "Все", "*.*"
       .AllowMultiSelect = False
       .InitialFileName = aInitialFolder
       If .Show Then
         For Each lItem In .SelectedItems
           lFile = lItem
         Next
         If VarType(lFile) = vbString Then
            SelectExcelFiler = lFile
         End If
       End If
    End With
End Function

а что такое ,1 ?

сорри . прочел в мсдн

в примере на микрософт.ком после клиар позицию не указывают
следующие адд - да, позицианируют
видимо в пустом списке низя указывать позицию, ибо он пустой

ILL HEAD

в примере на микрософт.ком после клиар позицию не указывают следующие адд - да, позицианируют видимо в пустом списке низя указывать позицию, ибо он пустой

Не-а, не канает с отсутствием 1
.Filters.Add "Excel", "*.xls"

дает то же самое сообщение.

Еще идеи?

так. у меня работает ваш пример (дажэ с 1 :) )
убрал входной параметр и заменил папку на "c:\", но это не важно

... при подключенной MS Office 11.0 Object Library

У меня тоже работает.
Of XP

и в мсдн такая строчка есть:

автор

Filters are only displayed when the Windows option is checked.

не знаю где этот чек надо ставить. но может в этом дело ?

ILL HEAD

и в мсдн такая строчка есть: автор Filters are only displayed when the Windows option is checked. не знаю где этот чек надо ставить. но может в этом дело ?

Без этой строки все работает и строка фильтров показывается (ВСЕ *.*), библиотека (MS Office 10.0 Object Library) подключена.

MS Office XP SP3