Форум » Программистские штучки » Диалоговое окно открытия файлов в VBA » Ответить
Диалоговое окно открытия файлов в VBA
Бутеноп: [pre2] 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 [/pre2]
Ответов - 1
administrator: Хмхм, массиф.. Я просто делаю for each flname in flnames процедура_работы_с_файлом(flname) next И тогда не надо в процедурах обработки данных (уже в конкретном файле) вытаскивать циклом из массива
полная версия страницы