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

Вход

Регистрация

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

 

= Мир MS Excel/Выбор файла из UserForms - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор файла из UserForms (Макросы/Sub)
Выбор файла из UserForms
Inertecs Дата: Воскресенье, 11.06.2017, 19:00 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем привет. Прошу Вас помочь мне со следующим вопросом. Мне необходимо создать UserForms, которая будет запускаться при открытии книги Excel. В самой форме будет кнопка "Выбрать файл", которая позволяет выбрать любой Excel -файл. Далее, добавлять все листы из загружаемой книги в книгу с UserForm. Конечно это не все, что мне требуется реализовать, но для начала и этого хватит)
Всем заранее спасибо за помощь)
З.Ы. Может есть добрые люди, готовые помочь мне реализовать некоторые задумки)
 
Ответить
СообщениеВсем привет. Прошу Вас помочь мне со следующим вопросом. Мне необходимо создать UserForms, которая будет запускаться при открытии книги Excel. В самой форме будет кнопка "Выбрать файл", которая позволяет выбрать любой Excel -файл. Далее, добавлять все листы из загружаемой книги в книгу с UserForm. Конечно это не все, что мне требуется реализовать, но для начала и этого хватит)
Всем заранее спасибо за помощь)
З.Ы. Может есть добрые люди, готовые помочь мне реализовать некоторые задумки)

Автор - Inertecs
Дата добавления - 11.06.2017 в 19:00
KuklP Дата: Воскресенье, 11.06.2017, 19:45 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2186
Репутация: 466 ±
Замечаний: 0% ±

2003-2010
Зачем Вам форма? Не проще сразу вывести диалог открытия файла?
[vba]
Код
Private Sub Workbook_Open()
    Dim F, wb As Workbook
    F = Application.GetOpenFilename("Файлы Excel, *.xl*", , "Выберите файлы", , 0)
    If F = False Then Exit Sub
    Set wb = Workbooks.Open(F)
End Sub
[/vba]


Ну, с НДС и мы чего-то стoим! bombb6@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЗачем Вам форма? Не проще сразу вывести диалог открытия файла?
[vba]
Код
Private Sub Workbook_Open()
    Dim F, wb As Workbook
    F = Application.GetOpenFilename("Файлы Excel, *.xl*", , "Выберите файлы", , 0)
    If F = False Then Exit Sub
    Set wb = Workbooks.Open(F)
End Sub
[/vba]

Автор - KuklP
Дата добавления - 11.06.2017 в 19:45
Inertecs Дата: Воскресенье, 11.06.2017, 20:20 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Можно и сразу вывести диалог открытия. Большое спасибо за оперативность)
Как и говорил, это еще не все. Как быть, если нужно выгрузить файл по определенным правилам. В "файл с макросом" нужно вставлять данные из файла "файл загрузки". В файле загрузки, на каждом листе есть "шапка". Нужно значения из этой шапки присваивать каждому человеку из списка. В общем посмотрите файлы и думаю сразу все станет понятно)
Еще раз всем спасибо за помощь!
З.Ы. первый файл- файл загрузки, второй - файл с макросом
К сообщению приложен файл: 9811248.xlsx(10Kb) · __.xlsx(8Kb)


Сообщение отредактировал Inertecs - Воскресенье, 11.06.2017, 20:21
 
Ответить
СообщениеМожно и сразу вывести диалог открытия. Большое спасибо за оперативность)
Как и говорил, это еще не все. Как быть, если нужно выгрузить файл по определенным правилам. В "файл с макросом" нужно вставлять данные из файла "файл загрузки". В файле загрузки, на каждом листе есть "шапка". Нужно значения из этой шапки присваивать каждому человеку из списка. В общем посмотрите файлы и думаю сразу все станет понятно)
Еще раз всем спасибо за помощь!
З.Ы. первый файл- файл загрузки, второй - файл с макросом

Автор - Inertecs
Дата добавления - 11.06.2017 в 20:20
KuklP Дата: Воскресенье, 11.06.2017, 20:25 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2186
Репутация: 466 ±
Замечаний: 0% ±

2003-2010
Как быть - скоро Вам объяснят модераторы. Вы пока Правила форума почитайте, подготовьтесь. yes
А для комплексных задач есть раздел Работа На форуме задают вопросы, если что не получается ;)


Ну, с НДС и мы чего-то стoим! bombb6@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКак быть - скоро Вам объяснят модераторы. Вы пока Правила форума почитайте, подготовьтесь. yes
А для комплексных задач есть раздел Работа На форуме задают вопросы, если что не получается ;)

Автор - KuklP
Дата добавления - 11.06.2017 в 20:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор файла из UserForms (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!