Поиск
... заполнены( любым символом ) , то открыть диалог выбора файла для открытия. Application.GetOpenFilename
В ... этом примере он открывает диалог все 5-ь раз, если ... соблюдены..
Как обозначить, что открыть диалог только при соблюдении всего условия ...
Изменен: 28.05.2019
Читать сообщение на форуме или сайте. ... котором можно было выбрать нужный файл, из которого импортировать данные. Ниже ... :
Нужно макросом импортировать текст из файла. При помощи макрорекодера вычислил макрос ... чтобы при выборе макроса, предлагалось выбрать файл самостоятельно, т.е. появлялся диалог выбора файла.
Помогите ...
Изменен: 30.09.2013
Читать сообщение на форуме или сайте. ... a()
'диалог для выбора файла
Dim fd As FileDialog 'объектная переменная диалог выбора выбора файлов и папок ...
Set fd = Application.FileDialog(msoFileDialogFilePicker) 'тип диалога выбор файла
fd ... .AllowMultiSelect = True 'включить выбор множества файлов
fd.Filters.Clear ... xlsx" 'выбор только файлов екселя
fd.Show 'открыт диалог
If fd. ...
Изменен: 08.01.2015
Читать сообщение на форуме или сайте. ... при запуске обновляет связи (файл в списке связей прописан один ... связей эксель инициировал диалог выбора файла). Так вот, макрос запускает выбор файла для обновления ... связей, оператор выбирает файл, в итоге ... (а данные обновляются из файла, который раз в сути ...
Когда оператор обновляет связи с файлом, где один лист - все ... запуске макроса и выбора этого же файла, эксель такой диалог уже не ... с несколькими листами, этот диалог возникал каждый раз при запуске ...
Изменен: 10.02.2017
Читать сообщение на форуме или сайте. ... . " написал:
Как сделать чтобы файл можно было выбирать"
а ... и тем, что будет использоваться диалог выбора файла? Просто вместо статичного пути указываете ... переменную с выбранным файлом:Sub CopyFiles()
Dim Okno As ... ... Надо чтобы открывалось окно для выбора файла и сохранялось
' Path1 = "С ... ;C:\"
.Title = "Выберите файл"
.Show
If .SelectedItems.Count ...
Изменен: 17.01.2022
Читать сообщение на форуме или сайте. ... , который выводит меню выбора файлов . С выбранными файлами производятся следующие действия:
... в новой книге присваиваются имена файлов.
Помогите пожалуйста изменить макрос ... было просто выбрать папку без выбора конкретных файлов.
Sub CombineanWBrenameSH()
Dim ... False 'отключение обновления экрана
'вызвать диалог выбора файлов
FilesToOpen = Application.GetOpenFilename _
(FileFilter ...
'пройти по всем выбранным файлам скопировать первый лист и вставить ...
Изменен: 11.02.2019
Читать сообщение на форуме или сайте. ... Собирает листы из разных файлов в один файл (в одну книгу)
... = vbNo Then Exit Sub
'вызываем диалог выбора файлов откуда будем брать данные
FilesToOpen ... собриать
counter = 0 'счётчик обработанных файлов
Application.ScreenUpdating = False ' ... 'копируем лист в общий файл
wbImportFrom.Worksheets(SheetCopyName).Copy ThisWorkbook ... 'закрываем очередной файл и переходим к другому файлу
wbImportFrom.Close savechanges ...
Изменен: 20.01.2021
Читать сообщение на форуме или сайте. ... (msoFileDialogFilePicker) 'Для окна-диалога выбора файлов
.AllowMultiSelect = True 'Разрешаем выбор нескольких файлов
.InitialFileName = "*.xls ... " 'Установили маску типов файлов (только ... с файлами-исходниками
.Title = " Выбрать необходимый файл(ы)" 'Заголовок окна диалога
Изменен: 12.05.2011
Читать сообщение на форуме или сайте. ... нужно видеть хотя бы один файл-исходник. Чтобы понимать как там ... данными или там в каждом файле неизвестное количество листов с данными ... , но не тестировал. Нет вашего файла-исходника. Потестируйте сами. Тут все ... что, поправьте сами по ваши файлы
Sub CombineWorkbooks()
Dim FilesToOpen
Dim ... .Worksheets("Макрос")
'вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename ... "Не выбрано ни одного файла!"
Exit Sub
End If ...
Изменен: 11.09.2020
Читать сообщение на форуме или сайте. ... : Maksimus. Добрый день!
Выбираю файлы из диалогового окна, затем нужно ... будет работать с именем файла, чтобы по определенным условиям ... выбрать нужные файлы. Не могу придумать как ... 01.2020" в имени файла
Sub CombineWorkbooks()
Dim FilesToOpen
Dim ... Row
MsgBox (lLastRow - 1)
'вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename ... quot;Не выбрано ни одного файла!"
Exit Sub
End If ...
Изменен: 31.03.2020
Читать сообщение на форуме или сайте. ... counter As Long
'вызываем диалог выбора файлов откуда будем брать данные
FilesToOpen ... ;, MultiSelect:=True, Title:="Укажите файлы")
If TypeName(FilesToOpen) ... quot;Не выбрано ни одного файла!", vbExclamation, " ... False
'проходим по всем выбранным файлам
For iFile = 1 To ... 'закрываем очередной файл и переходим к другому файлу
wbImportFrom.Close ... quot; & UBound(FilesToOpen) & " файлов собраны!", vbInformation, "Конец ...
Изменен: 19.08.2020
Читать сообщение на форуме или сайте. ... );
2) открываем через диалоговое окно Выбор Файла ещё две книги (два других ... файла, каждый раз с разными именами), ... , вызвать ещё раз диалоговое окно выбора файла и потом скопировать туда лист ... обновление экрана для скорости
'вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename ... "Не выбрано ни одного файла!"
Exit Sub
End If ...
'проходим по всем выбранным файлам
x = 1
While x
Изменен: 17.09.2015
Читать сообщение на форуме или сайте. ... )
набросал макрос (без красоты) ... в файле на листе СВОД кнопку нажмитеSub ... обновление экрана для скорости
'вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename ... "Не выбрано ни одного файла!"
Exit Sub
End If ...
'проходим по всем выбранным файлам
x = 1
With ThisWorkbook.Worksheets ...
Изменен: 27.04.2021
Читать сообщение на форуме или сайте. ... я полагал что достаточно выделения файлов, и после макрос проходил бы ... = Range("B5")
'вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename ... "Не выбрано ни одного файла!"
Exit Sub
End If ...
'проходим по всем выбранным файлам
x = 1
While x
Изменен: 14.01.2021
Читать сообщение на форуме или сайте. ... месте.
Использую скрипт для редактирования файлов такой
Sub CombineWorkbooks2()
Dim FilesToOpen ... обновление экрана для скорости
'вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename ... "Не выбрано ни одного файла!"
Exit Sub
End If ...
'проходим по всем выбранным файлам
x = 1
While x
Изменен: 13.02.2020
Читать сообщение на форуме или сайте.Автор: graph91. Доброе утро, уважаемые форумчане!
Прошу Вашего совета.
Подскажите, пожалуйста, когда зашиваю определенный файл эксель в код, то пользуюсь:
Set sh = Workbooks("Online_report.xlsm").Sheets("1")
Но я бы хотел, чтоб у меня открывалось окно выбора файла и я мог выбрать тот файл, который присвоится переменной(чтоб не делать костылей)
Также желательно, чтобы он сразу открывался.
Подскажите, если не сложно как это реализовать.
Заранее большое ...
Изменен: 21.12.2016
Читать сообщение на форуме или сайте. ... Смирнов. Имеется макрос сборки нескольких файлов excel в один.Sub CombineWorkbooks ... обновление экрана для скорости
'вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename ... "Не выбрано ни одного файла!"
Exit Sub
End If ...
'проходим по всем выбранным файлам
x = 1
While x
Изменен: 05.04.2019
Читать сообщение на форуме или сайте. ... .ru. Имеется макрос сборки нескольких файлов excel в один.Sub CombineWorkbooks ... обновление экрана для скорости
'вызываем диалог выбора файлов для импорта
FilesToOpen = Application.GetOpenFilename ... "Не выбрано ни одного файла!"
Exit Sub
End If ...
'проходим по всем выбранным файлам
x = 1
While x
Изменен: 05.04.2019
Читать сообщение на форуме или сайте.