Выбор файла из UserForms

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Выбор файла из UserForms (Макросы/Sub)

Inertecs

Дата: Воскресенье, 11.06.2017, 19:00 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

Ответить

KuklP

Дата: Воскресенье, 11.06.2017, 19:45 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 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им! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Inertecs

Дата: Воскресенье, 11.06.2017, 20:20 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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