Как бы сюда подцепить чтобы открылось окно и выбрать файл ?
xl = Новый COMОбъект("Excel.Application");
??
rows=xl.ActiveSheet.UsedRange.Rows.Count;

обычный объект ДиалогВыбораФайла

А какими средствами выбирать файл? Можно открыть и диалог Офиса.

'Declare a variable as a FileDialog object.
   Dim fd As FileDialog

   'Create a FileDialog object as a File Picker dialog box.
   Set fd = Application.FileDialog(msoFileDialogFilePicker)

   'Declare a variable to contain the path
   'of each selected item. Even though the path is aString,
   'the variable must be a Variant because For Each...Next
   'routines only work with Variants and Objects.
   Dim vrtSelectedItem As Variant

   'Use a With...End With block to reference the FileDialog object.
   With fd

       'Use the Show method to display the File Picker dialog box and return the user's action.
       'The user pressed the button.
       If .Show = -1 Then

           'Step through each string in the FileDialogSelectedItems collection.
           For Each vrtSelectedItem In .SelectedItems

               'vrtSelectedItem is aString that contains the path of each selected item.
               'You can use any file I/O functions that you want to work with this path.
               'This example displays the path in a message box.
               MsgBox "The path is: " & vrtSelectedItem

           Next vrtSelectedItem
       'The user pressed Cancel.
       Else
       End If
   End With

   'Set the object variable to Nothing.
   Set fd = Nothing

Точно а я все ищу в документации ОткрытьФайл!
только теперь неполучается фильтр расширений и метод Open()

xl = Новый COMОбъект("Excel.Application");
   
   Режим = РежимДиалогаВыбораФайла.Открытие;
   ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
   ДиалогОткрытияФайла.ПолноеИмяФайла = "";
   Фильтр = "Текст (*.xls|*.xlsx) |*.xls|*.xlsx";
   ДиалогОткрытияФайла.Фильтр = фильтр ;
   ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
   ДиалогОткрытияФайла.Заголовок = "Выберите файл импорта";
   Если ДиалогОткрытияФайла.Выбрать() Тогда
       МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
       Для каждого ИмяФайла Из МассивФайлов Цикл
           ВыбФайл = Новый Файл(ИмяФайла);
       КонецЦикла;
   Иначе
       Предупреждение("Файл не выбран!");
   КонецЕсли;
   
   xl.Workbooks.Open(ВыбФайл);

(0)Точно!

{РегистрСведений.Телефоны.Форма.ФормаСписка(29)}: Ошибка при вызове метода контекста (Open): Типы не совпадают (0)
   xl.Workbooks.Open(ВыбФайл);
по причине:
Типы не совпадают (0)

Выю файл имеет тип файл, а не строка

(6) А что такое ВыбФайл? :)

Если я делаю
Сообщить(ИмяФайла+"; Размер = "+ВыбФайл.Размер());
   xl.Workbooks.Open(ВыбФайл);

То
D:\Город.xlsx; Размер = 5 071 684
файл точно есть

а потом опять Несовпадения типов, непойму как исправить

xl.Workbooks.Open(ИмяФайла);

Спасибо!