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

Вход

Регистрация

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

 

= Мир MS Excel/Выбор Нескольких Файлов С Последующим Выбором Диапазонов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбор Нескольких Файлов С Последующим Выбором Диапазонов (Формулы/Formulas)
Выбор Нескольких Файлов С Последующим Выбором Диапазонов
Elhust Дата: Среда, 05.10.2016, 14:01 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Доброго Времени суток уважаемые знатоки и просто ученики, суть моей проблемы
Необходимо выбрать много файлов, через CTRL например, в диалоговом окне выбора
И за тем по очереди их открывать и выбирать там диапазон данных для ВПР,
Который я прописал и вставлять их хотя бы друг за другом в исходном файле.
Название книг всегда разное есть только ключевое поле для ВПР и куча данных примерно 50 т. строк

"так же есть нюансы с ВПР может понадобится ВПР по двум критериям и больше :'( но пока не суть"

Благо дарю
К сообщению приложен файл: VLookUP_VBA.xls(41Kb)


Каждый сам выбирает правила игры
 
Ответить
СообщениеДоброго Времени суток уважаемые знатоки и просто ученики, суть моей проблемы
Необходимо выбрать много файлов, через CTRL например, в диалоговом окне выбора
И за тем по очереди их открывать и выбирать там диапазон данных для ВПР,
Который я прописал и вставлять их хотя бы друг за другом в исходном файле.
Название книг всегда разное есть только ключевое поле для ВПР и куча данных примерно 50 т. строк

"так же есть нюансы с ВПР может понадобится ВПР по двум критериям и больше :'( но пока не суть"

Благо дарю

Автор - Elhust
Дата добавления - 05.10.2016 в 14:01
Udik Дата: Среда, 05.10.2016, 14:50 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1214
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
Вот заготовка для мультивыбора файлов и поочередного открытия
[vba]
Код

Option Explicit

Public Sub test()
    Dim lf As Long
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Title = "Выбрать файлы" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xlsx", 1 'устанавливаем возможность выбора только файлов Excel
        ''.Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
        .FilterIndex = 1 'устанавливаем тип файлов по умолчанию
        .InitialFileName = ThisWorkbook.Path & "\" 'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To .SelectedItems.Count
            Workbooks.Open .SelectedItems(lf)
            Debug.Print .SelectedItems(lf)
            Workbooks(ActiveWorkbook.Name).Close
        Next
    End With
End Sub

[/vba]
К сообщению приложен файл: dialogfile2.xlsm(16Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеВот заготовка для мультивыбора файлов и поочередного открытия
[vba]
Код

Option Explicit

Public Sub test()
    Dim lf As Long
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Title = "Выбрать файлы" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xlsx", 1 'устанавливаем возможность выбора только файлов Excel
        ''.Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
        .FilterIndex = 1 'устанавливаем тип файлов по умолчанию
        .InitialFileName = ThisWorkbook.Path & "\" 'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To .SelectedItems.Count
            Workbooks.Open .SelectedItems(lf)
            Debug.Print .SelectedItems(lf)
            Workbooks(ActiveWorkbook.Name).Close
        Next
    End With
End Sub

[/vba]

Автор - Udik
Дата добавления - 05.10.2016 в 14:50
Elhust Дата: Среда, 05.10.2016, 15:27 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Большое спасибо и тысяча благодарностей сейчас попробую по разбираюсь только тему не закрывайте хочу добить до ума да и за одно может кому полезно будет


Каждый сам выбирает правила игры
 
Ответить
СообщениеБольшое спасибо и тысяча благодарностей сейчас попробую по разбираюсь только тему не закрывайте хочу добить до ума да и за одно может кому полезно будет

Автор - Elhust
Дата добавления - 05.10.2016 в 15:27
Elhust Дата: Четверг, 06.10.2016, 08:00 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
А может есть способ как нибудь легче выполнить данную задачу ? )


Каждый сам выбирает правила игры
 
Ответить
СообщениеА может есть способ как нибудь легче выполнить данную задачу ? )

Автор - Elhust
Дата добавления - 06.10.2016 в 08:00
Udik Дата: Четверг, 06.10.2016, 17:48 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1214
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
Какую задачу, мультивыбор и поочерёдное открытие файлов или что?


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеКакую задачу, мультивыбор и поочерёдное открытие файлов или что?

Автор - Udik
Дата добавления - 06.10.2016 в 17:48
Elhust Дата: Понедельник, 10.10.2016, 08:17 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Да совершенно верно, вот я тут сделал "что то" только ВПР надо подправить. И ещё надо сделать чтобы новая книга новый столбец в отчётной книге появлялся не понимаю как в цикле разделить этот момент
К сообщению приложен файл: VlookUP.zip(27Kb)


Каждый сам выбирает правила игры
 
Ответить
СообщениеДа совершенно верно, вот я тут сделал "что то" только ВПР надо подправить. И ещё надо сделать чтобы новая книга новый столбец в отчётной книге появлялся не понимаю как в цикле разделить этот момент

Автор - Elhust
Дата добавления - 10.10.2016 в 08:17
Udik Дата: Понедельник, 10.10.2016, 15:36 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1214
Репутация: 153 ±
Замечаний: 0% ±

Excel 2013
ещё надо сделать чтобы новая книга

Откуда взялась новая книга? Если нужно создать новую книгу, то надо соответствующий код добавлять.
например
[vba]
Код

Option Explicit
Const nBookName As String = "out.xlsx"
Private Sub newWB()

Workbooks.Add

    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & nBookName, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

[/vba]

Это если нужно создать одну книгу. Если нужно создать несколько, то надо модифицировать код.
Насчет ВПР - создайте новую тему и толком опишите, что хотите получить.


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщение
ещё надо сделать чтобы новая книга

Откуда взялась новая книга? Если нужно создать новую книгу, то надо соответствующий код добавлять.
например
[vba]
Код

Option Explicit
Const nBookName As String = "out.xlsx"
Private Sub newWB()

Workbooks.Add

    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & nBookName, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

[/vba]

Это если нужно создать одну книгу. Если нужно создать несколько, то надо модифицировать код.
Насчет ВПР - создайте новую тему и толком опишите, что хотите получить.

Автор - Udik
Дата добавления - 10.10.2016 в 15:36
Elhust Дата: Вторник, 11.10.2016, 11:43 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Спасибо за всё, так и сделаю, постараюсь подробно описать respect


Каждый сам выбирает правила игры
 
Ответить
СообщениеСпасибо за всё, так и сделаю, постараюсь подробно описать respect

Автор - Elhust
Дата добавления - 11.10.2016 в 11:43
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбор Нескольких Файлов С Последующим Выбором Диапазонов (Формулы/Formulas)
Страница 1 из 11
Поиск:

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