Global fname() As String 
  
 Sub open_file() 
  
 'Диалоговое окно открытия файлов. 
 'Имена файлов записываются в глобальную переменную Global fname() As String 
  
 Dim t As Integer                'Количество выбранных файлов 
 Dim result As Integer           'Сначала отвечает за наличие вабранных файлов, а потом счётчик 
  
  
 With Application.FileDialog(1)                                  'Если не ошибаюсь, то это "метод" для диалогового окна открытия файлов 
 .Title = "Выбирите файл"                                            'Заголовок окна 
 .InitialFileName = "D:\мои документы\Temp\"      'Адрес по умолчанию 
 .AllowMultiSelect = True                                            'Включена возможность выбора нескольких файлов 
 .Filters.Clear                                                  'Очистка фильтра по расширенью 
 .Filters.Add "las файлы", "*.las", 1                                'Добавление фильтра на расширение *.las 
 result = .Show                                                  'ХЗ 
 t = .SelectedItems.Count - 1                                        'Запись количества выбранных файлов 
  
 ReDim fname(t)                                                  'Задание размерности массива имён, в соответствии с количеством выбранных файлов 
 If result = 0 Then Exit Sub                                         'Если ничего не выбрано, то выход из программы 
     For result = 0 To t                                         'Цикл записи имён выбранных файлов в массив fname() 
     fname(result) = Trim(.SelectedItems.Item(result + 1)) 
     Next result 
 End With                                                        'Конец метода 
 On Error Resume Next                                                'ХЗ 
  
  
  
 End Sub