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

Вход

Регистрация

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

 

= Мир MS Excel/Импорт листов из 5ти файлов в один по вкладкам - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Импорт листов из 5ти файлов в один по вкладкам (Макросы/Sub)
Импорт листов из 5ти файлов в один по вкладкам
stgerrard Дата: Четверг, 18.06.2020, 22:33 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго дня Сенсеи ) Помогите ламеру ) Финансист дал задачу: имеется 5 файлов xls одновкладочных в одной папке. Нужно создать единый файл, в который будут переноситься листы с этих 5ти файлов (по вкладкам). Например по кнопке "Обновить". Файл1.xls -> лист Файл1 в файле Итог.xls, Файл2.xls -> лист Файл2 в файле Итог.xls и т.п.
Короче сводный отчёт из 5ти файлов. Помогите пожалуйста, наверняка у кого-то уже даже есть такие макросы.
 
Ответить
СообщениеДоброго дня Сенсеи ) Помогите ламеру ) Финансист дал задачу: имеется 5 файлов xls одновкладочных в одной папке. Нужно создать единый файл, в который будут переноситься листы с этих 5ти файлов (по вкладкам). Например по кнопке "Обновить". Файл1.xls -> лист Файл1 в файле Итог.xls, Файл2.xls -> лист Файл2 в файле Итог.xls и т.п.
Короче сводный отчёт из 5ти файлов. Помогите пожалуйста, наверняка у кого-то уже даже есть такие макросы.

Автор - stgerrard
Дата добавления - 18.06.2020 в 22:33
boa Дата: Четверг, 18.06.2020, 23:44 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 497
Репутация: 148 ±
Замечаний: 0% ±

2013, 365
Здравствуйте, stgerrard,
получение данных из других источников - Ооочень обширная тема...
есть Power Query, есть Connections, что вам более приемлемо?
есть другие варианты... В чём Вы уже пытались сделать, и что у вас не получилось?
Если вы не собираетесь делать сами, то Вам лучше на ФрилансСайты обратиться. или здесь, то же есть.
наверняка у кого-то уже даже есть такие макросы.
так Вы за Халявой на Форум пришли?


 
Ответить
СообщениеЗдравствуйте, stgerrard,
получение данных из других источников - Ооочень обширная тема...
есть Power Query, есть Connections, что вам более приемлемо?
есть другие варианты... В чём Вы уже пытались сделать, и что у вас не получилось?
Если вы не собираетесь делать сами, то Вам лучше на ФрилансСайты обратиться. или здесь, то же есть.
наверняка у кого-то уже даже есть такие макросы.
так Вы за Халявой на Форум пришли?

Автор - boa
Дата добавления - 18.06.2020 в 23:44
stgerrard Дата: Пятница, 19.06.2020, 08:12 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, boa,
Я и "настоящий сварщик" и не претендую на написание данного кода. Я увидел, что на этом форуме люди ПОМОГАЮТ получить нужное решение и пришёл сюда я за помощью.
Увидел у одной девушки тут макрос, который позволяет сделать выбор файла и переносит всё содержимое в искомый файл. Это почти то что надо, но это не заменяет ручную работу по выбору много файлов (у меня таких будет около 10) и разницы нет, что делать выбор, что руками копировать лист и вставить в итоговый файл.
Хотелось именно решение, которое будет автоматом брать из папки файлы по заданному имени.
И по-моему pq и connections тут не нужны будут.
 
Ответить
СообщениеЗдравствуйте, boa,
Я и "настоящий сварщик" и не претендую на написание данного кода. Я увидел, что на этом форуме люди ПОМОГАЮТ получить нужное решение и пришёл сюда я за помощью.
Увидел у одной девушки тут макрос, который позволяет сделать выбор файла и переносит всё содержимое в искомый файл. Это почти то что надо, но это не заменяет ручную работу по выбору много файлов (у меня таких будет около 10) и разницы нет, что делать выбор, что руками копировать лист и вставить в итоговый файл.
Хотелось именно решение, которое будет автоматом брать из папки файлы по заданному имени.
И по-моему pq и connections тут не нужны будут.

Автор - stgerrard
Дата добавления - 19.06.2020 в 08:12
Pelena Дата: Пятница, 19.06.2020, 08:51 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16655
Репутация: 3600 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Если надо просто скопировать листы целиком из всех файлов в папке, то можно так. В диалоговом окне надо будет выбрать нужную папку
[vba]
Код
Sub FilesFromFolder()
    Dim FolderPath As String, FileName As String, wb As Workbook
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        FolderPath = .SelectedItems(1)
    End With
    FolderPath = FolderPath & IIf(Right(FolderPath, 1) = "\", "", "\")
    Application.ScreenUpdating = False
    FileName = Dir(FolderPath & "*.xls*")
    Do While FileName <> ""
        Workbooks.Open FolderPath & FileName
        Set wb = ActiveWorkbook
        wb.Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        ActiveSheet.Name = Split(FileName, ".")(0)
        wb.Close False
        FileName = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЕсли надо просто скопировать листы целиком из всех файлов в папке, то можно так. В диалоговом окне надо будет выбрать нужную папку
[vba]
Код
Sub FilesFromFolder()
    Dim FolderPath As String, FileName As String, wb As Workbook
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        FolderPath = .SelectedItems(1)
    End With
    FolderPath = FolderPath & IIf(Right(FolderPath, 1) = "\", "", "\")
    Application.ScreenUpdating = False
    FileName = Dir(FolderPath & "*.xls*")
    Do While FileName <> ""
        Workbooks.Open FolderPath & FileName
        Set wb = ActiveWorkbook
        wb.Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        ActiveSheet.Name = Split(FileName, ".")(0)
        wb.Close False
        FileName = Dir
    Loop
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Pelena
Дата добавления - 19.06.2020 в 08:51
stgerrard Дата: Пятница, 19.06.2020, 10:34 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, идеально !!! То, что надо !!! Моё почтение и жду в личку телефон для перечисления небольшой благодарности :)
 
Ответить
СообщениеPelena, идеально !!! То, что надо !!! Моё почтение и жду в личку телефон для перечисления небольшой благодарности :)

Автор - stgerrard
Дата добавления - 19.06.2020 в 10:34
Pelena Дата: Пятница, 19.06.2020, 11:15 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16655
Репутация: 3600 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Это бесплатная ветка, так что спасибо будет достаточно


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЭто бесплатная ветка, так что спасибо будет достаточно

Автор - Pelena
Дата добавления - 19.06.2020 в 11:15
stgerrard Дата: Пятница, 19.06.2020, 12:20 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, спасибо :) В дальнейшем буду обращаться к вам за вознаграждение )
 
Ответить
СообщениеPelena, спасибо :) В дальнейшем буду обращаться к вам за вознаграждение )

Автор - stgerrard
Дата добавления - 19.06.2020 в 12:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Импорт листов из 5ти файлов в один по вкладкам (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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