Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35789
Главная » Готовые решения » VBA » Полезные приёмы

Файлы. FileDialog
29.11.2014, 08:44

примеры вызова диалоговых окон для работы с файлами (файл открыть, сохранить и пр.)

Sub example_01() 'msoFileDialogFilePicker
Dim f As String
With Application.FileDialog(msoFileDialogFilePicker)
 .Title = "Please select a file": .InitialFileName = ThisWorkbook.Path
 '.Filters.Add "Excel", "*.xls;*.xlsx;*.xlsm", 1: .AllowMultiSelect = False
 .Filters.Add "Text files", "*.csv;*.txt", 1: .AllowMultiSelect = False
 If .Show = False Then Exit Sub: If .SelectedItems.Count = 0 Then Exit Sub
 f = .SelectedItems(1)
End With
'[a1] = f
End Sub
Sub example_02() 'GetOpenFilename
Dim FilesToOpen
FilesToOpen = Application.GetOpenFilename _
 (FileFilter:="Text Files (*.txt;*.csv), *.txt;*.csv", _
 MultiSelect:=True, Title:="Text Files to Open")

If TypeName(FilesToOpen) = "Boolean" Then _
 MsgBox "No Files were selected", 64: Exit Sub
MsgBox LBound(FilesToOpen) & "; " & UBound(FilesToOpen)
End Sub
Sub example_03() 'msoFileDialogFolderPicker
Dim Fold As String, f As String
With Application.FileDialog(msoFileDialogFolderPicker)
 .Title = "Select the folder in which the files to be processed"
 .ButtonName = "Select": .AllowMultiSelect = False
 If .Show Then Fold = .SelectedItems(1) Else Exit Sub
End With

If Right(Fold, 1) <> "\" Then Fold = Fold & "\"
f = Dir(Fold & "*.xls*", vbNormal)
Do While f <> ""
 MsgBox f
 f = Dir()
Loop
End Sub
Sub example_04() 'GetSaveAsFilename
Dim NewName
 NewName = Application.GetSaveAsFilename(FileFilter:="Excel file,*.xls*")
 If NewName = "False" Then Exit Sub
MsgBox NewName 
End Sub
Добавил: nilem |
Просмотров: 2834 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!