Открыть файл
А можно ли сделать в VBA такое, чтобы при нажатии кнопки вылетало окошка, как после нажатия "открыть файл"
Нужно прописать в коде возможность выбора пользователем того файла к открытию, какой он захочет (экселевских ессно)
Нужно прописать в коде возможность выбора пользователем того файла к открытию, какой он захочет (экселевских ессно)
Цитата:
Originally posted by WildAn
А можно ли сделать в VBA такое, чтобы при нажатии кнопки вылетало окошка, как после нажатия "открыть файл"
Нужно прописать в коде возможность выбора пользователем того файла к открытию, какой он захочет (экселевских ессно)
А можно ли сделать в VBA такое, чтобы при нажатии кнопки вылетало окошка, как после нажатия "открыть файл"
Нужно прописать в коде возможность выбора пользователем того файла к открытию, какой он захочет (экселевских ессно)
Метод Application.GetOpenFilename() вернет токо имя выбранного файла (или массив с именами если разрешен был мультивыбор или же Nothing если польз. ничего не выбрал)
Цитата:
Originally posted by SergeySV
Метод Application.GetOpenFilename() вернет токо имя выбранного файла (или массив с именами если разрешен был мультивыбор или же Nothing если польз. ничего не выбрал)
Метод Application.GetOpenFilename() вернет токо имя выбранного файла (или массив с именами если разрешен был мультивыбор или же Nothing если польз. ничего не выбрал)
То, что нужно Сделал
Код:
Workbooks.Open FileName:=Application.GetOpenFilename()
Цитата:
Originally posted by WildAn
То, что нужно Сделал
То, что нужно Сделал
Код:
Workbooks.Open FileName:=Application.GetOpenFilename()
C GetOpenFilename() можно развернуться по полной: во первых свой заголовок указать - типа "Выбирай быро свой файл и не беспокой больше машину!", указать расширение файла, которое будет выбрано по умолчанию, ну также указать если нужен мультивыбор
На счет твоего кода, лучit так не писать, потому что пользователь может в диалоге нажать "Отмена" и функция вернет тебе Nothing, а Workbooks.Open этой шутки не поймет и вылезет с ругательной табличкой
Цитата:
Originally posted by SergeySV
На счет твоего кода, лучit так не писать, потому что пользователь может в диалоге нажать "Отмена" и функция вернет тебе Nothing, а Workbooks.Open этой шутки не поймет и вылезет с ругательной табличкой
На счет твоего кода, лучit так не писать, потому что пользователь может в диалоге нажать "Отмена" и функция вернет тебе Nothing, а Workbooks.Open этой шутки не поймет и вылезет с ругательной табличкой
Что посоветуешь в этом случае?
Цитата:
Originally posted by WildAn
Что посоветуешь в этом случае?
Что посоветуешь в этом случае?
Код:
Dim varName As Variant
varName = Application.GetOpenFilename()
If TypeName(varName) = "String" Then
' был выбран файл
Else
' не был выбран файл
End If
varName = Application.GetOpenFilename()
If TypeName(varName) = "String" Then
' был выбран файл
Else
' не был выбран файл
End If
Цитата:
Originally posted by SergeySV
Код:
Dim varName As Variant
varName = Application.GetOpenFilename()
If TypeName(varName) = "String" Then
' был выбран файл
Else
' не был выбран файл
End If
varName = Application.GetOpenFilename()
If TypeName(varName) = "String" Then
' был выбран файл
Else
' не был выбран файл
End If
:) Благодарю