Как указать путь к файлу excel vba - Word и Excel - помощь в работе с программами

Список файлов
Работа с файлами

Функции GetFileName и GetFilePath по сути аналогичны, и предназначены для вывода диалогового окна выбора файла
(при этом можно указать стартовую папку для поиска файла, и тип/расширение выбираемого файла)

Функция GetFilenamesCollection позволяет выборать сразу несколько файлов в одной папке.

Функция GetFolderPath работает также, только служит для вывода диалогового окна выбора папки.

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", _
                       Optional ByVal InitialPath As String = "c:") As String
    ' функция выводит диалоговое окно выбора папки с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
    Dim PS As String: PS = Application.PathSeparator
    With Application.FileDialog(msoFileDialogFolderPicker)
        If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        If .Show <> -1 Then Exit Function
        GetFolderPath = .SelectedItems(1)
        If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
    End With
End Function
 
Sub ПримерИспользования_GetFolderPath()
    ПутьКПапке = GetFolderPath("Заголовок окна", ThisWorkbook.Path)   ' запрашиваем имя папки
    If ПутьКПапке = "" Then Exit Sub    ' выход, если пользователь отказался от выбора папки
    MsgBox "Выбрана папка: " & ПутьКПапке, vbInformation
End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:", _
                     Optional ByVal FilterDescription As String = "Книги Excel", _
                     Optional ByVal FilterExtention As String = "*.xls*") As String
    ' функция выводит диалоговое окно выбора файла с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранному файлу, или пустую строку в случае отказа от выбора
    ' для фильтра можно указать описание и расширение выбираемых файлов
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1): PS = Application.PathSeparator
    End With
End Function
 
Sub ПримерИспользования_GetFilePath()
    ИмяФайла = GetFilePath("Выберите файл Word", , "Документы Word", "*.doc") ' запрашиваем имя файла
    If ИмяФайла = "" Then Exit Sub    ' выход, если пользователь отказался от выбора файла
    MsgBox "Выбран файл: " & ИмяФайла, vbInformation
End Sub

Ниже представлены функции для вызова диалоговых окон выбора файлов и папок средствами VBA.

Функции GetFileName и GetFilePath по сути аналогичны, и предназначены для вывода диалогового окна выбора файла
(при этом можно указать стартовую папку для поиска файла, и типрасширение выбираемого файла)

Функция GetFilenamesCollection позволяет выборать сразу несколько файлов в одной папке.

Функция GetFolderPath работает аналогично, только служит для вывода диалогового окна выбора папки.

Function GetFileName(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath, _
                     Optional ByVal MyFilter As String = "Книги Excel (*.xls*),") As String
    ' функция выводит диалоговое окно выбора папки с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
    If Not IsMissing(InitialPath) Then
        On Error Resume Next: ChDrive Left(InitialPath, 1)
        ChDir InitialPath    ' выбираем стартовую папку
    End If
    res = Application.GetOpenFilename(MyFilter, , Title, "Открыть")  ' вывод диалогового окна
    GetFileName = IIf(VarType(res) = vbBoolean, "", res)    ' пустая строка при отказе от выбора
End Function
 
Sub ПримерИспользования_GetFileName()
    ИмяФайла = GetFileName("Заголовок окна", ThisWorkbook.Path)   ' запрашиваем имя файла
    ' ===================== другие варианты вызова функции =====================
    ' текстовые файлы, стартовая папка не указана
    '       ИмяФайла = GetFileName("Выберите текстовый файл", , "Текстовые файлы (*.txt),")
    ' файлы любого типа из папки "C:Windows"
    '       ИмяФайла = GetFileName(, "C:Windows", "")
    ' ==========================================================================

    If ИмяФайла = "" Then Exit Sub    ' выход, если пользователь отказался от выбора файла
    MsgBox "Выбран файл: " & ИмяФайла, vbInformation
End Sub

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", _
                       Optional ByVal InitialPath As String = "c:") As String
    ' функция выводит диалоговое окно выбора папки с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
    Dim PS As String: PS = Application.PathSeparator
    With Application.FileDialog(msoFileDialogFolderPicker)
        If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        If .Show <> -1 Then Exit Function
        GetFolderPath = .SelectedItems(1)
        If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
    End With
End Function
 
Sub ПримерИспользования_GetFolderPath()
    ПутьКПапке = GetFolderPath("Заголовок окна", ThisWorkbook.Path)   ' запрашиваем имя папки
    ' ===================== другие варианты вызова функции =====================
    ' стартовая папка не указана, заголовок окна по умолчанию
    '       ПутьКПапке = GetFolderPath
    ' обзор папок начинается с папки "Рабочий стол"
    '       СтартоваяПапка = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    '       ПутьКПапке = GetFolderPath("Выберите папку на рабочем столе", СтартоваяПапка)
    ' ==========================================================================

    If ПутьКПапке = "" Then Exit Sub    ' выход, если пользователь отказался от выбора папки
    MsgBox "Выбрана папка: " & ПутьКПапке, vbInformation
End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:", _
                     Optional ByVal FilterDescription As String = "Книги Excel", _
                     Optional ByVal FilterExtention As String = "*.xls*") As String
    ' функция выводит диалоговое окно выбора файла с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранному файлу, или пустую строку в случае отказа от выбора
    ' для фильтра можно указать описание и расширение выбираемых файлов
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1): PS = Application.PathSeparator
    End With
End Function
 
Sub ПримерИспользования_GetFilePath()
     ИмяФайла = GetFilePath("Выберите файл Word", , "Документы Word", "*.doc") ' запрашиваем имя файла
    ' ===================== другие варианты вызова функции =====================
    ' текстовые файлы, стартовая папка не указана
    '       ИмяФайла = GetFilePath("Выберите текстовый файл", , "Текстовые файлы", "*.txt")
    ' файлы любого типа из папки "C:Windows"
    '       ИмяФайла = GetFilePath(, "C:Windows", , "*")
    ' ==========================================================================

    If ИмяФайла = "" Then Exit Sub    ' выход, если пользователь отказался от выбора файла
    MsgBox "Выбран файл: " & ИмяФайла, vbInformation
End Sub

Function GetFilenamesCollection(Optional ByVal Title As String = "Выберите файлы для обработки", _
                             Optional ByVal InitialPath As String = "c:") As FileDialogSelectedItems
    ' функция выводит диалоговое окно выбора нескольких файлов с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает массив путей к выбранным файлам, или пустую строку в случае отказа от выбора
    With Application.FileDialog(3) ' msoFileDialogFilePicker
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        If .Show <> -1 Then Exit Function
        Set GetFilenamesCollection = .SelectedItems
    End With
End Function
 
Sub ПримерИспользования_GetFilenamesCollection()
    Dim СписокФайлов As FileDialogSelectedItems
    Set СписокФайлов = GetFilenamesCollection("Заголовок окна", ThisWorkbook.Path)   ' выводим окно выбора
    ' ===================== другие варианты вызова функции =====================
    ' стартовая папка не указана, заголовок окна по умолчанию
           Set СписокФайлов = GetFilenamesCollection
    ' обзор файлов начинается с папки "Рабочий стол"
           СтартоваяПапка = CreateObject("WScript.Shell").SpecialFolders("Desktop")
           Set СписокФайлов = GetFilenamesCollection("Выберите файлы на рабочем столе", СтартоваяПапка)
    ' ==========================================================================

    If СписокФайлов Is Nothing Then Exit Sub  ' выход, если пользователь отказался от выбора файлов
    For Each File In СписокФайлов
        Debug.Print File
    Next
End Sub

Ещё один вариант кода (который я использую) для выбора файла
Его отличие — функция запоминает папку, из которой последний раз выбирался файл,
и при повторном запуске диалогового окна выбора файла,
обзор папок будет начат с той папки, откуда последний раз был взят файл.

Sub AttachFile_test()    ' пример использования
    Filename$ = GetFilePath()
    If Filename$ = "" Then Exit Sub
    MsgBox "Выбран файл: " & Filename$
End Sub
 
Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String = "c:", _
                     Optional ByVal FilterDescription As String = "Файлы счетов", _
                     Optional ByVal FilterExtention As String = "*.*") As String
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title:
        .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
        folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), ""))
        SaveSetting Application.Name, "GetFilePath", "folder", folder$
    End With
End Function

214465 просмотров

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.

Источник

I have a macro-enabled WorkBook. I need to specify the current folder in which the macro-enabled file is present as the path. I tried setting

path = ActiveWorkbook.Path

and

path = CurDir()

but neither of these work for me. Any idea on this?

ashleedawg

20k8 gold badges73 silver badges104 bronze badges

asked Apr 18, 2012 at 18:27

If the path you want is the one to the workbook running the macro, and that workbook has been saved, then

ThisWorkbook.Path

is what you would use.

answered Apr 18, 2012 at 19:04

Tim WilliamsTim Williams

150k8 gold badges96 silver badges124 bronze badges

I thought I had misunderstood but I was right. In this scenario, it will be ActiveWorkbook.Path

But the main issue was not here. The problem was with these 2 lines of code

strFile = Dir(strPath & "*.csv")

Which should have written as

strFile = Dir(strPath & "*.csv")

and

With .QueryTables.Add(Connection:="TEXT;" & strPath & strFile, _

Which should have written as

With .QueryTables.Add(Connection:="TEXT;" & strPath & "" & strFile, _

answered Apr 18, 2012 at 20:14

Siddharth RoutSiddharth Rout

146k17 gold badges206 silver badges250 bronze badges

Источник

Diana

Пользователь

Сообщений: 982
Регистрация: 28.12.2012

Здравствуйте! Удачного дня и отличного настроения!
Помогите с вопросиком, пожалуйста!

Как завести переменную в VBA с привязкой к пути к файлу?
например,

Dim myPath As String
myPath = «C:Germanisher Lloyd incTailor_DiProgram Data»

но таким образом, чтобы после окончания выполнения макроса она не теряла своего значения.
В проекте приходится открывать и закрывать сумашедшее количество книг, и постоянно прописывать имена вроде

Workbooks.Open Filename:= _
«C:Germanisher Lloyd incTailor_DiProgram DataLINKS.xlsm»

становится долго, нудно и муторно.

Нужно как-то сделать, чтобы эта переменная действовала с момента открытия книги и до ее закрытия с возможностью из любого макроса вызвать ее.
Подскажите, пожалуйста, как?

	В шапке стандартного модуля (не класса): Public Const myPath = «C:Germanisher Lloyd incTailor_DiProgram Data»

	А еще, если путь у всех тот же, что и у открытой книги, то всегда можно его получить через ThisWorkbook.Path

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	{quote}{login=KL}{date=12.09.2010 04:52}{thema=}{post}В шапке стандартного модуля (не класса): Public Const myPath = «C:Germanisher Lloyd incTailor_DiProgram Data»{/post}{/quote} нда… озадачил но спасибо!

	В чем причина озадаченности?

Diana

Пользователь

Сообщений: 982
Регистрация: 28.12.2012

{quote}{login=KL}{date=12.09.2010 04:52}{thema=}{post}В шапке стандартного модуля (не класса):

Public Const myPath = «C:Germanisher Lloyd incTailor_DiProgram Data»{/post}{/quote}

Я только начинающий пользователь Excel… Ищу, где бы это такое можно было объявить… «Шапка стандартного модуля» к тому же еще и «не класса»

{quote}{login=Diana Tailor}{date=12.09.2010 05:16}{thema=Re: }{post}{quote}{login=KL}{date=12.09.2010 04:52}{thema=}{post}В шапке стандартного модуля (не класса):

Public Const myPath = «C:Germanisher Lloyd incTailor_DiProgram Data»{/post}{/quote}

Я только начинающий пользователь Excel… Ищу, где бы это такое можно было объявить… «Шапка стандартного модуля» к тому же еще и «не класса» :){/post}{/quote}
Стандартный модуль (не класса) — это модуль не привязанный ни к какому объекту (листу, книге и т.п.). Такие модули по умолчанию имеют имя «Модуль1», «Модуль2» и т.д.

New

Пользователь

Сообщений: 4582
Регистрация: 06.01.2013

Diana, в Excel есть несколько типов модулей, где пишется код
1) Модуль листа — в котором обычно пишется код, который будет работать на этом листе
2) Модуль формы — в котором обычно пишется код для обработки нажатий кнопок, textbox’ов и других объектов, которые находятся на форме
3) стандартный модуль — обычный модуль, где пишется какой-либо макрос, который вставляется в проект через меню через меню Insert — Module или же если вы записываете макрос через макрорекордер
4) Модуль Класса — Специальный модуль, в котором пишется код, для обработки классов объектов и т.д. Вставляется в проект через меню Insert — Class Module

Если что, другие участники меня поправят и дополнят )

{quote}{login=Pavel55}{date=12.09.2010 05:22}{thema=}{post}Diana, в Excel есть несколько типов модулей, где пишется код
1) Модуль листа — в котором обычно пишется код, который будет работать на этом листе
2) Модуль формы — в котором обычно пишется код для обработки нажатий кнопок, textbox’ов и других объектов, которые находятся на форме
3) стандартный модуль — обычный модуль, где пишется какой-либо макрос, который вставляется в проект через меню через меню Insert — Module или же если вы записываете макрос через макрорекордер
4) Модуль Класса — Специальный модуль, в котором пишется код, для обработки классов объектов и т.д. Вставляется в проект через меню Insert — Class Module

Если что, другие участники меня поправят и дополнят ){/post}{/quote}
Добавления:
5) Модуль книги — в котором обычно пишется код, который будет работать в этой книге
6) модули, указанные в пунктах 1, 2, 4 и 5 являются модулями класса

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	Pavel55, KL, спасибо вам, все заработало! Ура!!!

	Есть один очень оригинальный способ хранить значения в именнованных диапазонах: Const P = «C:temp» Application.Names.Add «Path», RefersTo:=P Теперь можно обращаться к пути «C:temp» с помощью Application.Names(«Path») в любое время.

Diana

Пользователь

Сообщений: 982
Регистрация: 28.12.2012

{quote}{login=}{date=12.09.2010 05:47}{thema=}{post}Есть один очень оригинальный способ хранить значения в именнованных диапазонах:

Const P = «C:temp»
Application.Names.Add «Path», RefersTo:=P

Теперь можно обращаться к пути «C:temp» с помощью
Application.Names(«Path») в любое время.{/post}{/quote}

Человек-невидимка, спасибо за идею, читала здесь на форуме этот пример, а эту переменную объявлять, полагаю, тоже в стандартном модуле нужно?

Diana

Пользователь

Сообщений: 982
Регистрация: 28.12.2012

{quote}{login=KL}{date=12.09.2010 04:52}{thema=}{post}В шапке стандартного модуля (не класса):

Public Const myPath = «C:Germanisher Lloyd incTailor_DiProgram Data»{/post}{/quote}

Рано радоваться начала, не тот макрос запустила
ругается на Const, говорит нельзя в стандартном модуле после Public писать константу…

	Вы ничего не путаете? Можно посмотреть полный текст ошибки, скриншот, или файл-пример?

Diana

Пользователь

Сообщений: 982
Регистрация: 28.12.2012

{quote}{login=KL}{date=12.09.2010 06:06}{thema=}{post}Вы ничего не путаете?
Можно посмотреть полный текст ошибки, скриншот, или файл-пример?{/post}{/quote}

Вместо обычного модуля вставила Модуль Класса, поэтому и ругался…
Извиняюсь, невнимательна была.
Спасибо еще раз, теперь все заработало, пример помог

Diana

Пользователь

Сообщений: 982
Регистрация: 28.12.2012

{quote}{login=The_Prist}{date=12.09.2010 06:12}{thema=Re: Re: }{post}{quote}{login=Diana Tailor}{date=12.09.2010 06:02}{thema=Re: }{post}говорит нельзя в стандартном модуле после Public писать константу…{/post}{/quote}Скорее всего Вы объявили как раз не в стандартном модуле, а в модуле класса: модуль ЭтаКнига или модуль листа или непосредственно ClassModule. Вот там нельзя объявить как Public.{/post}{/quote}

а Дмитрий, как всегда, прав

Diana

Пользователь

Сообщений: 982
Регистрация: 28.12.2012

Молодые люди, еще вопросик:
После объявления переменной в стандартном модуле она будет доступна в пределах одного модуля, в котором она объявлялась или во всех?
В случае, если только в этом же модуле, назначая одинаковые переменные в других модулях в пределах одной книги никакого конфликта VBA не будет?

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	Спасибо огромнейшее за помощь, и последний малюсенький вопросик UpdateLinks:=0 Это значит, что ссылки обновляются? или наоборот, не обновляются?

New Пользователь Сообщений: 4582 Регистрация: 06.01.2013	Diana, в Excel 0 = False; 1 = True

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	{quote}{login=Pavel55}{date=12.09.2010 07:46}{thema=}{post}Diana, в Excel 0 = False; 1 = True{/post}{/quote} Немного не так. -1 = True С уважением, Сергей. Я сам — дурнее всякого примера! …

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	Хм.. выходит, вместо «False» and «True» можно написать «0» and «-1″… Спасиб вам всем большое! Вы такие замечательные!!!

New Пользователь Сообщений: 4582 Регистрация: 06.01.2013	Сергей, я имею ввиду вот это преобразование. См. файл P.S. Так же вместо ЛОЖЬ в формулах можно писать просто 0, например, так ВПР(1;A1:B5;2;0)

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Павел, я ни на секунду не усомнился, что Вы знаете эту фичу(так же было и с The_Prist)и не мне Вас учить(сам у Вас учусь, всегда стараюсь перенять опыт коллег и поделиться своим), но это уже совсем другая история:-)

33400

Я сам — дурнее всякого примера! …

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

{quote}{login=Diana Tailor}{date=12.09.2010 08:11}{thema=}{post}Хм.. выходит, вместо «False» and «True» можно написать «0» and «-1″…
Спасиб вам всем большое! Вы такие замечательные!!! :){/post}{/quote}
Красивый аватар, замечательными называют… Как тут пройти мимо?
На днях меня просветили — не всегда «0» — это «False», с единицей тоже самое. Переменная типа Boolean, например, не понимает цифровой записи.

У меня вот это работает корректно

Sub test()
Dim x As Boolean
Dim y As Boolean
Dim z As Boolean
x = 0
y = 1
z = -1
End Sub

и даже y=True

Но вообще, обычно когда говорят о взаимозаменяемости 1(-1)/True и 0/False, имеется в виду их использование как логических значений (True/False). В остальных случаях может требоваться их насильственное преобразавание. Например, если нужны как раз числа.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Ну не дадут поумничать! В теме о календаре ( http://www.planetaexcel.ru/forum.php?thread_id=18899 ) я задавал похожий вопрос. В коде переменная tru As Boolean не хотела понимать цифровую запись, поменял на False и True — заработало.

New

Пользователь

Сообщений: 4582
Регистрация: 06.01.2013

Кстати, да. Если посмотреть какие значения принимают переменные в коде Кирилла (если сделать останов на End Sub)

Sub test()
Dim x As Boolean
Dim y As Boolean
Dim z As Boolean
x = 0
y = 1
z = -1
End Sub

то будет видно, что x = False, y = True, z = True. Хотя им и присваиваем 0, 1 и -1

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

Ну и еще один наглядный:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = -1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = 0
End Sub
на обе Sub, точки останова(F9)…
Кто понимает, поймет, как с этим разобраться.

Я сам — дурнее всякого примера! …

Guest Гость	#30 13.09.2010 00:20:35 Короче, Diana признавайтесь, это вы на вашей аватарке или нет?

Источник

Хитрости »

17 Июнь 2015 147481 просмотров

Диалоговое окно выбора файлов/папки

Часто при работе с файлами и написании кодов начинающие «кодить» в VBA сталкиваются с необходимостью предоставить пользователю возможность самостоятельного выбора файлов: либо всех в указанной папке, либо каких-то отдельных. Конечно, можно жестко в коде написать нечто вроде: «C:DocumentsFilesКнига1.xls», но это требует не только наличия именно диска С, но и полной структуры папок и имен файлов. Это очень неудобно в большинстве случаев и куда чаще необходимо дать пользователю возможность самому указать имя файла. Записывать в ячейку листа полный путь и имя весьма непрактично и часто для неискушенного пользователя вызывает только «отторжение» от программы. В статье Просмотреть все файлы в папке я приводил пример кода, который просматривает все файлы в указанной папке и папка при этом выбирается сами пользователем из привычного по работе с Windows диалога. Там используется диалог выбора папок. Именно на этом я и хочу сделать акцент в этой статье — рассказать про некоторые способы вызова подобных диалогов для выбора файлов или папки. Так же обращу внимание на некоторые вещи, которые следует учитывать при использовании того или иного типа диалогов.

Диалог выбора файлов Applicaton.GetOpenFileName
Диалог выбора файлов FileDialog(msoFileDialogFilePicker)
Диалог выбора папки FileDialog(msoFileDialogFolderPicker)
Диалог выбора папки через Shell
Диалог сохранения файла SaveAs

Если рассматривать наиболее простые варианты, то их два. Выбрать файлы можно через Applicaton.GetOpenFileName или через Application.FileDialog. Отличия в них есть, но я заострю внимание на главном: GetOpenFileName будет работать в любой версии Excel, а класс FileDialog только начиная с Excel 2002, т.к. именно в этой версии впервые был использован класс FileDialog. Это стоит учитывать при разработке.

Диалог выбора файлов Applicaton.GetOpenFileName

Параметры:

Application.GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
По сути я часто использую именно его, т.к. это универсальный метод и в нем есть все, что лично мне необходимо: выбрать определенные типы файлов позволяет, возможность запрета выбора нескольких файлов сразу есть.

FileFilter	Указываются типы файлов, которые будут отображаться в диалоговом окне выбора. Например, если указать «Excel files(.xls),.xls», то возможно будет выбрать только файлы Excel(с расширением, начинающимся на .xls — .xls, .xlsx, .xlsb, .xlsm и т.д.). Если указать «Text files(.txt),.txt», то можно будет выбрать только текстовые файлы с расширением .txt. Так же можно указать более одного типа расширений: «Excel files(.xls),.xls,Text files(.txt),.txt». По умолчанию тип файлов в диалоговом окне будет принадлежать первому указанному типу файлов(.xls). Но можно указать любой из перечисленных типов при помощи аргумента FilterIndex. Так же можно указать выбор любых типов файлов: «All files(.),.»
FilterIndex	Если аргументом FileFilter указано более одного типа файлов(расширений), то этот аргумент указывает какой именно тип использовать. Например, следующая строка по умолчанию назначает выбор текстовых типов файлов: avFiles = Application.GetOpenFilename _ ("Excel files(.xls),.xls,Text files(.txt),.txt", 2, _ "Выбрать текстовые или Excel файлы", , True)
Title	Текст заголовка диалогового окна. Если указать «Выбрать текстовые или Excel файлы», то именно этот текст будет в заголовке. Если не указывать, то будет текст по умолчанию(нечто вроде «Открытие документа»)
ButtonText	Данный аргумент доступен только для ПК под управлением Macintosh(MAC). Назначает текст для кнопки диалогового окна Открыть. Для владельцев Windows этот текст всегда будет «Открыть»
MultiSelect	Указывает, может быть выбран только один файл или несколько: True — можно будет выбрать более одного файла для обработки(через Shift или Ctrl или простым выделением мышью внутри окна) False — можно будет выбрать только один файл По умолчанию принимает значение False Выбора только одного файла: avFiles = Application.GetOpenFilename _ ("Excel files(.xls),.xls,Text files(.txt),.txt", 2, _ "Выбрать текстовые или Excel файлы", , False) Выбор нескольких файлов: avFiles = Application.GetOpenFilename _ ("Excel files(.xls),.xls,Text files(.txt),.txt", 2, _ "Выбрать текстовые или Excel файлы", , True)

Пример применения диалога Application.GetOpenFilename

Sub ShowGetOpenDialod()
    Dim avFiles
    'по умолчанию к выбору доступны файлы Excel(xls,xlsx,xlsm,xlsb)
    avFiles = Application.GetOpenFilename _
                ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файлы", , False)
    If VarType(avFiles) = vbBoolean Then
        'была нажата кнопка отмены - выход из процедуры
        Exit Sub
    End If
    'avFiles - примет тип String
    MsgBox "Выбран файл: '" & avFiles & "'", vbInformation, "www.excel-vba.ru"
End Sub

В данном случае совершенно неважно указан ли выбор только одного файла или нескольких. Может поменяться только способ обработки полученного результата. Если параметр MultiSelect установлен в False, то переменная avFiles примет тип String, т.е. это будет одна строка. Предположим, что была выбрана книга Excel. Тогда открыть её можно будет как обычно это делается при использовании переменной:

Если же параметр MultiSelect установлен в True, то переменная avFiles примет тип Array — массив строк, в котором будут записаны все пути и имена выбранных файлов. Обрабатывать в таком случае следует циклом:

'avFiles - примет тип Array
    For Each x In avFiles
        Workbooks.Open x
    Next

В приложенном к статье файле приведены две процедуры с использованием этого типа диалога и обработкой файлов с параметром MultiSelect, установленным в True и False.

Диалог выбора файлов FileDialog(msoFileDialogFilePicker)

У этого диалога тоже есть параметры и они очень схожи с таковыми в Application.GetOpenFilename:
Ниже в статье примера кода с применением всех описанных параметров

AllowMultiSelect	Указывает, может быть выбран только один файл или несколько: True — можно будет выбрать более одного файла для обработки(через Shift или Ctrl или простым выделением мышью внутри окна) False — можно будет выбрать только один файл
Title	Текст заголовка диалогового окна. Если указать «Выбрать текстовые или Excel файлы», то именно этот текст будет в заголовке. Если не указывать, то будет текст по умолчанию(нечто вроде «Открытие документа»)
Filters	Перечисляются типы файлов, которые будут отображаться в диалоговом окне выбора. Для добавления типа файла(расширения) необходимо использовать метод Add: .Filters.Add([Description],[Extensions],[Position]) Description — описание типа файлов. Произвольный текст, указывающий тип файлов. Например «Рисунки» или «Файлы Excel». Extensions — расширения файлов. Непосредственно перед расширением обязательно должна стоять звездочка и точка: .xls. Иначе диалог выдаст ошибку. Для перечисления нескольких расширений используется разделитель в виде точки-с-запятой: «.xls;.xla» или «.xls;.xlsx;.xlsm». Звездочка после расширения заменяет любой набор символов или ни одного. Например, при указании «.xls» будет возможным выбрать любые файлы, расширение которых начинается на .xls: .xls,.xlsx,.xlsm,.xlsb и т.д., но нельзя будет выбрать файлы с расширением .xla,.xlam и тем более .doc или .txt. Если необходимо осуществить выбор любого типа файлов, то необходимо просто очистить фильтр и не добавлять никакие типы: .Filters.Clear Position — указывает, каким по счету в списке будет тип файлов. На рисунке ниже первым идет тип «Excel files», а вторым «Text files»: Тип файлов, который будет показан по умолчанию при вызове диалога определяется свойством FilterIndex диалога FileDialog. Важный момент: диалог, вызванный в одном сеансе Excel сохраняет добавленные ранее типы файлов. Поэтому перед назначением новых типов необходимо выполнить очистку фильтра: .Filters.Clear Каждый новый тип файлов добавляется новым Add: .Filters.Add "Excel files", ".xls;.xla", 1 'добавляем возможность выбора файлов Excel .Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
FilterIndex	Назначает тип файлов, который будет выбран по умолчанию из всех перечисленных в коллекции Filters при вызове диалога
InitialFileName	Этим параметром можно задать начальную папку, на которой будет открыт диалог: .InitialFileName = "С:Temp" Если при этом еще добавить имя файла, то в поле диалога Имя файла будет так же отображено это имя: .InitialFileName = "С:TempКнига1.xlsx" Я лично не рекомендую указывать имя файла, т.к. после показа диалога этот файл автоматически будет выбран, что не всегда бывает правильным. Но все зависит от задач. Если пользователь не выберет самостоятельно ни одного файла, то ответом диалога будет именно файл с указанным именем(Книга1.xlsx). Если такого файла не окажется в папке, то диалог выдаст предупреждение, что такого файла нет.
InitialView	Данный параметр определяет внешний вид и структуру окна диалога. Доступно 9 вариантов: msoFileDialogViewDetails msoFileDialogViewLargeIcons msoFileDialogViewList msoFileDialogViewPreview msoFileDialogViewProperties msoFileDialogViewSmallIcons msoFileDialogViewThumbnail msoFileDialogViewTiles msoFileDialogViewWebView При использовании данного параметра следует учитывать, что на разных операционных системах могут быть доступны не все варианты. Поэтому прежде чем использовать лучше убедиться, что на конечных ПК поддерживается указанный тип. В принципе ничего страшного не произойдет — будет просто показано окно с видом по умолчанию. Но куда правильнее в разработке придерживаться однотипного вида на всех ПК.
SelectedItems	Возвращает коллекцию выбранных файлов. В отличии от Application.GetOpenFilename всегда возвращается массив строк, поэтому можно всегда использовать цикл для открытия файлов, даже если параметр AllowMultiSelect установлен в False: For Each x In .SelectedItems Workbooks.Open x Next Так же можно отбирать только отдельные файлы по индексам или организовать цикл иначе: For lf = 1 to .SelectedItems.Count x = .SelectedItems(lf) Workbooks.Open x Next Нумерация строк в SelectedItems всегда начинается с 1
Show	Пожалуй, самый важный метод в диалоге — отвечает за показ диалога. При этом метод Show возвращает ответ в виде целого числа: -1 — выбор файлов был сделан и нажата кнопка Открыть 0 — была нажата кнопка отмены Это можно(точнее нужно!) использовать, чтобы не продолжать выполнение кода, если нажата кнопка Отмены: If .Show = 0 Then Exit Sub 'была нажата кнопка отмены

Пример вызова диалога выбора файлов:

Sub ShowFileDialog()
    Dim oFD As FileDialog
    Dim x, lf As Long
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD 'используем короткое обращение к объекту
    'так же можно без oFD
    'With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Выбрать файлы отчетов" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xla*", 1 'устанавливаем возможность выбора только файлов Excel
        .Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
        .FilterIndex = 2 'устанавливаем тип файлов по умолчанию - Text files(Текстовые файлы)
        .InitialFileName = "С:TempКнига1.xlsx" 'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To .SelectedItems.Count
            x = .SelectedItems(lf) 'считываем полный путь к файлу
            Workbooks.Open x 'открытие книги
            'можно также без х
            'Workbooks.Open .SelectedItems(lf)
        Next
    End With
End Sub

Диалог выбора папки

Диалог выбора папки необходим в случаях, когда файлов в папке много и обработать нужно все эти файлы. Пример такой обработки я уже выкладывал в статье Просмотреть все файлы в папке. Здесь проще всего использовать появившийся в 2002 Excel диалог Application.FileDialog. Его параметры практически такие же, как у Application.FileDialog(msoFileDialogFilePicker) только их меньше доступно для применения:

Title	Текст заголовка диалогового окна. Если указать «Выбрать папку с отчетами», то именно этот текст будет в заголовке. Если не указывать, то будет текст по умолчанию(нечто вроде «Открыть папку»)
InitialFileName	Этим параметром можно задать начальную папку, на которой будет открыт диалог: .InitialFileName = "С:Temp"
InitialView	Данный параметр определяет внешний вид и структуру окна диалога. Доступно 9 вариантов: msoFileDialogViewDetails msoFileDialogViewLargeIcons msoFileDialogViewList msoFileDialogViewPreview msoFileDialogViewProperties msoFileDialogViewSmallIcons msoFileDialogViewThumbnail msoFileDialogViewTiles msoFileDialogViewWebView При использовании данного параметра следует учитывать, что на разных операционных системах могут быть доступны не все варианты. Поэтому прежде чем использовать лучше убедиться, что на конечных ПК поддерживается указанный тип. В принципе ничего страшного не произойдет — будет просто показано окно с видом по умолчанию. Но куда правильнее в разработке придерживаться однотипного вида на всех ПК.
SelectedItems	Возвращает коллекцию с одним элементом, в котором содержится путь к выбранной папке. Нумерация строк в SelectedItems всегда начинается с 1, но т.к. выбор нескольких папок невозможен, то всегда указывается 1: x = .SelectedItems(1)
ButtonName	Назначает текст кнопки, которой подтверждается выбор папки. Может содержать не более 51 знака(чего как правило достаточно).
Show	Метод, который вызывает показ диалога с выбранными параметрами. Возвращает ответ в виде целого числа: -1 — папка выбрана и нажата кнопка Открыть 0 — была нажата кнопка отмены Это можно(точнее нужно!) использовать, чтобы не продолжать выполнение кода, если нажата кнопка Отмены: If .Show = 0 Then Exit Sub 'была нажата кнопка отмены

Пример вызова диалога выбора папки:

Sub ShowFolderDialog()
    Dim oFD As FileDialog
    Dim x, lf As Long
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    With oFD 'используем короткое обращение к объекту
    'так же можно без oFD
    'With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выбрать папку с отчетами" '"заголовок окна диалога
        .ButtonName = "Выбрать папку"
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .InitialFileName = "C:Temp" '"назначаем первую папку отображения
        .InitialView = msoFileDialogViewLargeIcons 'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        x = .SelectedItems(1) 'считываем путь к папке
        MsgBox "Выбрана папка: '" & x & "'", vbInformation, "www.excel-vba.ru"
    End With
End Sub

Диалог выбора папки через Shell

Диалог Application.FileDialog(msoFileDialogFolderPicker) всем хорош и удобен, кроме одного: как я уже упоминал, он стал доступен из VBA только начиная с 2002 Excel. Плюс, описанные выше диалоги не работают в Outlook — он просто лишен хоть какой-либо реализации выбора папок или файлов. Поэтому дополню статью еще одним вариантом показа диалога выбора папки — с помощью объекта Shell. Этот вариант выбора папки будет работать и в Outlook и в любом другом приложении.

Shell.BrowseForFolder([Hwnd], [sTitle], [iOptions], [vRootFolder])

Hwnd	Дескриптор окна, к которому будет относится диалог. Как правило указывается 0
sTitle	Поясняющий текст, который будет отображен в диалоге. Подобие заголовка окна. Может быть любым текстом, например «Выбрать папку с отчетами»
iOptions	Дополнительные параметры для диалога. Рекомендуется использовать 0. Но можно попробовать и пару других вариантов. Например, если указать 20, то в диалоговом окне появится дополнительное текстовое поле, в котором будет отображено имя выбранной папки.
vRootFolder	Аналогично InitialFileName в рассмотренных выше диалогах. Задает начальную папку, на которой диалог будет открыт после запуска.

Пример вызова диалога выбора папки через Shell:

Sub GetFolderDialog_Shell()
    On Error Resume Next
    Dim objShellApp As Object, objFolder As Object, ulFlags
    Dim x As String
    Set objShellApp = CreateObject("Shell.Application")
    'ulFlags - числовой код, определяющий вид отображаемого окна и некоторые параметры
    '    ulFlags = 0     - наиболее часто применяемый. Лучше использовать всегда именно 0
    '    ulFlags = 1     - не отображать Корзину
    '    ulFlags = 2     - не включать сетевые папки
    '    ulFlags = 20    - добавляется тестовое поле с отображением имени выбранной папки
    '    ulFlags = 16    - отображать EditBox для ввода полного пути с клавиатуры
    '    ulFlags = 16384 - можно так же выбирать файлы.
    'Некоторые константы можно комбинировать. Например если указать 1 + 16384 - то можно будет выбирать файлы
 
    ulFlags = 0
    Set objFolder = objShellApp.BrowseForFolder(0, "Выбрать папку с отчетами", ulFlags, "C:Temp")'"
    x = objFolder.Self.Path 'записываем в переменную путь к папке
    If Err.Number <> 0 Then
        MsgBox "Папка не выбрана!", vbInformation, "www.excel-vba.ru"
    Else
        MsgBox "Выбрана папка: '" & x & "'", vbInformation, "www.excel-vba.ru"
    End If
End Sub

Конечно, диалог подобный выглядит довольно убого, особенно на современных операционных системах. Но он работает в любых версиях офиса и в любом приложении, в том числе в Outlook. Порой это бывает полезней красоты.

Скачать пример:

Tips_Macro_GetOpenFileFolder.xls (100,0 KiB, 3 740 скачиваний)

Диалог сохранения файла SaveAs

Еще один вид диалогового окна — запрос имени и места сохранения файла.
Параметры:

Application.GetSaveAsFilename([InitialFileName], [FileFilter], [FilterIndex], [Title], [ButtonText])
Универсальный диалог, работающий во всех версиях Excel, начиная с 2000

InitialFileName	Можно указать путь и имя файла, которые будут использованы в качестве шаблона для сохранения. По умолчанию в диалоге отображается папка, которая была использована в последний раз в текущем сеансе Excel. Если диалог вызывается впервые, то будет показана для сохранения файлов по умолчанию(задается из самого Excel: Файл(File) —Параметры(Options) —Сохранение(Save) —Расположение локальных файлов по умолчанию(Default local file location)). Показываем диалог со стартовой папкой на той книге, в которой сам макрос, без указания имени сохраняемой книги: sToSavePath = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path) Показываем диалог со стартовой папкой на той книге, в которой сам макрос и именем сохраняемой книги «SaveAs.xlsm»: sToSavePath = Application.GetSaveAsFilename(InitialFileName:="SaveAs.xlsm", FileFilter:="Excel files (.xlsm), .xlsm") Здесь следует обратить внимание на один важный момент: если необходимо помимо стартовой папки указать еще и имя файла, то в обязательном порядке надо указывать так же аргумент FileFilter. Если его не указывать, то InitialFileName просто откроет указанную папку, т.к. не поймет файлы какого типа надо отображать. Либо вместо «SaveAs.xlsm» надо будет указывать «SaveAs.*», что я лично настоятельно не рекомендую делать. Несмотря на возможность указать имя файла его можно изменить прямо в диалоговом окне, что тоже порой правильнее. Например, чтобы убедиться в том, что имя файла указано пользователем.
FileFilter	Указываются типы файлов, которые будут отображаться в диалоговом окне выбора. Должен совпадать с тем типом, с которым собираемся сохранять файл. Например, если указать «Excel files(.xls),.xls», то возможно будет выбрать только тип файлов Excel(с расширением, начинающимся на .xls — .xls, .xlsx, .xlsb, .xlsm и т.д.). Если указать «Text files(.txt),.txt», то только текстовые файлы с расширением .txt. Так же можно указать более одного типа расширений: «Excel files(.xls),.xls,Text files(.txt),.txt». По умолчанию тип файлов в диалоговом окне будет принадлежать первому указанному типу файлов(.xls). Но можно указать любой из перечисленных типов при помощи аргумента FilterIndex. Так же можно указать выбор любых типов файлов: «All files(.),.»
FilterIndex	Если аргументом FileFilter указано более одного типа файлов(расширений), то этот аргумент указывает какой именно тип использовать. Например, следующая строка по умолчанию назначает выбор и сохранение файла в текстовый: avFiles = Application.GetSaveAsFilename _ (InitialFileName:=ThisWorkbook.Path, FileFilter:="Excel files(.xls),.xls,Text files(.txt),.txt", FilterIndex:=2)
Title	Текст заголовка диалогового окна. Если указать «Выбрать текстовые или Excel файлы», то именно этот текст будет в заголовке. Если не указывать, то будет текст по умолчанию(нечто вроде «Сохранение документа»)
ButtonText	Данный аргумент доступен только для ПК под управлением Macintosh(MAC). Назначает текст для кнопки диалогового окна Сохранить. Для владельцев Windows этот текст всегда будет «Сохранить»

Что еще важно знать: сам по себе вызов диалога GetSaveAsFilename ничего не сохраняет — он только создает путь для сохраняемого файла. Сохранять придется принудительно после выбора места и имени.
Пример применения диалога Application.GetSaveAsFilename

Sub ShowGetSaveAsDialod()
    Dim sToSavePath
    sToSavePath = Application.GetSaveAsFilename( _
             InitialFileName:=ThisWorkbook.Path, _
             FileFilter:="Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", _
             FilterIndex:=2, _
             Title:="Сохранить файл")
    'если нажали Отмена - завершаем процедуру ничего не сохраняя
    If VarType(sToSavePath) = vbBoolean Then
        Exit Sub
    End If
    'непосредственно сохранение файла
    ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=ThisWorkbook.FileFormat
End Sub

Здесь тоже есть нюанс — метод SaveAs имеет два важных аргумента:
1. Filename — путь и имя сохраняемого файла. Здесь должно быть все понятно. Указываем то, что выбрали в диалоге.
2. FileFormat — формат сохраняемого файла. При этом не текстовое представление(как в диалоге «xls» или «txt»), а одна из предустановленных констант формата файла. Вот основные константы:

Константа Excel	Числовая константа	Расшифровка
xlOpenXMLWorkbookMacroEnabled	51	xlsm — книга Excel
xlOpenXMLWorkbookMacroEnabled	52	xlsm — книга Excel с поддержкой макросов
xlExcel12	50	xlsb — двоичная книга Excel (с поддержкой макросов)
xlOpenXMLAddIn	55	xlam — надстройка Excel
xlOpenXMLTemplate	54	xltx — шаблон Excel
xlOpenXMLTemplateMacroEnabled	53	xltm — шаблон Excel с поддержкой макросов
xlExcel8	56	xls — книга Excel(97 — 2003)
xlAddIn	18	xla — надстройка Excel(97 — 2003)
xlTemplate	17	xlt — шаблон Excel(97 — 2003)
xlCurrentPlatformText	-4158	txt — текстовый файл с разделителями табуляции
xlUnicodeText	42	txt — текстовый файл в кодировке Юникод
xlCSV	6	csv — CSV(разделитель запятая)
xlCSVMSDOS	24	csv — CSV(MS — DOS)
XlFileFormat	62	csv — CSV UTF-8(разделитель запятая)
xlTypePDF	0	pdf — файл в формате PDF

Пример использования констант в диалогах Application.GetSaveAsFilename
Сохраняем файл с форматом xlsm — файл с поддержкой макросов. Для этого ищем в таблице выше расширение xlsm и берем либо константу Excel либо числовую константу:

Sub ShowGetSaveAsDialod()
    Dim sToSavePath
    sToSavePath = Application.GetSaveAsFilename( _
             InitialFileName:=ThisWorkbook.Path & "Report.xlsm", _
             FileFilter:="Excel files(*.xlsm),*.xlsm")
    'если нажали Отмена - завершаем процедуру ничего не сохраняя
    If VarType(sToSavePath) = vbBoolean Then
        Exit Sub
    End If
    'непосредственно сохранение файла
    'используем встроенную константу Excel
    ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    'используем числовую константу
    'ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=52
End Sub

Любой метод: либо числовая константа, либо встроенная работают одинаково. Вопрос лишь в том, что лично для Вас будет удобнее и нагляднее.

Так же см.:
Работа с диалогами
Как запретить сообщения?

Статья помогла? Поделись ссылкой с друзьями!

Видеоуроки

Поиск по меткам

Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Источник

Содержание

Метод Application.GetOpenFilename (Excel)
Синтаксис
Параметры
Возвращаемое значение
Примечания
Пример
Поддержка и обратная связь
Функция Dir
Синтаксис
Параметры
Примечания
См. также
Поддержка и обратная связь
Объект FileSystemObject
Синтаксис
Примечания
Методы
Свойства
См. также
Поддержка и обратная связь

Метод Application.GetOpenFilename (Excel)

Отображает стандартное диалоговое окно Открыть и получает у пользователя имя файла без фактического открытия файлов.

Синтаксис

выражение.GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
FileFilter	Необязательный	Variant	Строка, указывающая условия фильтрации файлов.
FilterIndex	Необязательный	Variant	Указывает значения индексов условий фильтрации файлов по умолчанию — от 1 до количества фильтров, указанных в FileFilter. Если этот аргумент пропущен или его значение превышает число имеющихся фильтров, используется первый фильтр файлов.
Title	Необязательный	Variant	Указывает заголовок диалогового окна. Если этот аргумент пропущен, используется заголовок «Открыть».
ButtonText	Необязательный	Variant	Только для Macintosh.
MultiSelect	Необязательный	Variant	Значение True, чтобы разрешить выбор нескольких имен файлов. Значение False, чтобы разрешить выбор только одного имени файла. Значение по умолчанию — False.

Возвращаемое значение

Примечания

Эта строка, передаваемая в аргументе FileFilter, состоит из пар строк фильтра файлов, после которых идет спецификация фильтра файлов MS-DOS с подстановочным знаком, где каждая часть и каждая пара разделяются запятыми. Каждая отдельная пара указана в раскрывающемся списке Тип файлов. Например, следующая строка указывает два фильтра файлов — text и addin:

«Text Files (*.txt), *.txt,Add-In Files (*.xla), *.xla»

Чтобы использовать разные выражения с подстановочными знаками MS-DOS для одного типа фильтра файлов, разделяйте выражения с подстановочными знаками точкой с запятой. Пример: «Visual Basic Files (*.bas; *.txt), *.bas;*.txt» .

Если FileFilter пропущен, этому аргументу по умолчанию присваивается значение «All Files (*.*), *.*» .

Этот метод возвращает выбранное имя файла или имя, введенное пользователем. Возвращаемое имя может содержать путь. Если параметру MultiSelect присвоено значение True, возвращаемое значение является массивом выбранных имен файлов (даже если выбрано только одно имя файла). Возвращается значение False, если пользователь отменяет использование диалогового окна.

Этот метод может менять текущий диск или папку.

Пример

В этом примере отображается диалоговое окно Открыть с фильтром, настроенным на текстовые файлы. Если пользователь выбирает имя файла, код отображает это имя файла в окне сообщения.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Функция Dir

Возвращает значение типа String, определяющее имя файла, каталога или папки, которое соответствует указанному шаблону, атрибуту файла либо метке тома диска.

Синтаксис

Dir [ (pathname, [ attributes ] ) ]

Синтаксис функции Dir состоит из следующих элементов.

Часть	Описание
pathname	Необязательный. Строковое выражение, указывающее имя файла; может включать каталог или папку, а также диск. Если файл, указанный параметром pathname, не найден, возвращается строка нулевой длины («»).
attributes	Необязательный. Константа или числовое выражение, определяющее атрибуты файла. Если этот параметр опущен, возвращаются файлы, которые соответствуют параметру pathname, но не имеют атрибутов.

Параметры

Константа	Значение	Описание
vbNormal	0	(По умолчанию.) Определяет файлы без атрибутов.
vbReadOnly	1	В дополнение к файлам без атрибутов определяет файлы, доступные только для чтения.
vbHidden	2	Определяет скрытые файлы, а также файлы без атрибутов.
vbSystem	4	В дополнение к файлам без атрибутов определяет системные файлы. Недоступно в macOS.
vbVolume	8	Определяет метку тома; если указан какой-либо другой атрибут, параметр vbVolume игнорируется. Недоступно в macOS.
vbDirectory	16	В дополнение к файлам без атрибутов определяет каталоги (папки).
vbAlias	64	Указанное имя файла является псевдонимом. Доступно только в macOS.

Эти константы определены в Visual Basic для приложений и могут использоваться в коде вместо фактических значений.

Примечания

В Microsoft Windows и macOS Dir поддерживает использование подстановочных знаков с несколькими символами (*) и одним символом (?) для указания нескольких файлов.

Так как macOS не поддерживает использование подстановочных знаков, для определения группы файлов используйте тип файла. Чтобы вместо имен файлов указать тип файла, воспользуйтесь функцией MacID. Например, следующий оператор возвращает имя первого текстового файла в текущей папке:

Чтобы вывести следующий файл в папке, укажите пустую строку:

Если функция MacID используется с функцией Dir в Microsoft Windows, возникает ошибка.

Любое значение атрибута, превышающее 256, считается значением MacID.

Значение pathname необходимо указать при первом вызове функции Dir, иначе произойдет ошибка. Если задаются атрибуты файла, значение pathname также должно быть указано.

Функция Dir возвращает первое имя файла, соответствующее значению pathname. Для получения дополнительных имен файлов, соответствующих значению pathname, вызовите функцию Dir повторно без аргументов. Если других соответствий найдено не будет, функция Dir возвратит пустую строку («»). После возврата строки нулевой длины в последующих вызовах необходимо указывать значение pathname, иначе произойдет ошибка.

Значение pathname можно изменить без получения всех имен файлов, соответствующих текущему значению pathname. Однако нельзя осуществить рекурсивный вызов функции Dir. С помощью функции Dir с атрибутом vbDirectory невозможно последовательно возвращать подкаталоги.

Так как имена файлов возвращаются в порядке без учета регистра для Windows и с учетом регистра для macOS, их можно сохранить в массиве и затем отсортировать массив.

См. также

Поддержка и обратная связь

Источник

Объект FileSystemObject

Предоставляет доступ к файловой системе компьютера.

Синтаксис

Scripting.FileSystemObject

Примечания

Приведенный ниже код иллюстрирует использование объекта FileSystemObject для возврата объекта TextStream, который можно читать, и в который можно записать данные.

Функция CreateObject возвращает объект FileSystemObject ( fs ).
Метод CreateTextFile создает файл в качестве объекта TextStream ( a ).
Метод WriteLine записывает строку текста в созданный текстовый файл.
Метод Close опустошает буфер и закрывает файл.

Методы

Метод	Описание
BuildPath	Добавляет имя в существующий путь.
CopyFile	Копирует один или несколько файлов из одного расположения в другое.
CopyFolder	Копирует одну или несколько папок из одного расположения в другое.
CreateFolder	Создает новую папку.
CreateTextFile	Создает текстовый файл и возвращает объект TextStream, который можно использовать для чтения или записи в файл.
DeleteFile	Удаляет один или несколько указанных файлов.
DeleteFolder	Удаляет одну или несколько указанных папок.
DriveExists	Проверяет, существует ли указанный диск.
FileExists	Проверяет, существует ли указанный файл.
FolderExists	Проверяет, существует ли указанная папка.
GetAbsolutePathName	Возвращает полный путь из корневого каталога диска для указанного пути.
GetBaseName	Возвращает базовое имя указанного файла или папки.
GetDrive	Возвращает объект Drive, соответствующий диску в указанном пути.
GetDriveName	Возвращает имя диска указанного пути.
GetExtensionName	Возвращает имя расширения файла для последнего компонента в указанном пути.
GetFile	Возвращает объект файла для указанного пути.
GetFileName	Возвращает имя файла или папки для последнего компонента в указанном пути.
GetFolder	Возвращает объект Folder для указанного пути.
GetParentFolderName	Возвращает имя родительской папки последнего компонента в указанном пути.
GetSpecialFolder	Возвращает путь к некоторым специальным папкам Windows.
GetTempName	Возвращает созданный случайным образом временный файл или папку.
Move	Перемещает заданный файл или указанную папку из одного места в другое.
MoveFile	Перемещает один или несколько файлов из одного места в другое.
MoveFolder	Перемещает одну или несколько папок из одного места в другое.
OpenAsTextStream	Открывает указанный файл и возвращает объект TextStream, который можно использовать для считывания, записи и дополнения данных в файле.
OpenTextFile	Открывает файл и возвращает объект TextStream, который можно использовать для доступа к файлу.
WriteLine	Записывает заданную строку и символ новой строки в файл TextStream.

Свойства

Свойство	Описание
Drives	Возвращает коллекцию всех объектов Drive на компьютере.
Name	Устанавливает или возвращает имя указанного файла или заданной папки.
Path	Возвращает путь для указанного файла, диска или указанной папки.
Size	Для файлов возвращает размер указанного файла в байтах; для папок возвращает размер всех файлов и вложенных папок в байтах.
Type	Возвращает сведения о типе файла или папки (например, для файлов с расширением .TXT возвращается «Text Document»).

См. также

Поддержка и обратная связь

Источник