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

Вход

Регистрация

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

 

= Мир MS Excel/объединить книги excel в одну начиная с начала списка книг в - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » объединить книги excel в одну начиная с начала списка книг в (Макросы/Sub)
объединить книги excel в одну начиная с начала списка книг в
Kaiyr Дата: Вторник, 05.03.2019, 09:50 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
объединить книги excel в одну начиная с начало списка книг в папке.

По коду ниже объединяется с конца списка книг excel. Надо что бы от начала списка книг.

Есть код:
[vba]
Код
Sub GetSheets()
Path = "D:\Polygon\35\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
[/vba]


Активный участник Википедии, могу проконсультировать. Также по казахской генеалогии и программам.

Сообщение отредактировал Kaiyr - Вторник, 05.03.2019, 10:07
 
Ответить
Сообщениеобъединить книги excel в одну начиная с начало списка книг в папке.

По коду ниже объединяется с конца списка книг excel. Надо что бы от начала списка книг.

Есть код:
[vba]
Код
Sub GetSheets()
Path = "D:\Polygon\35\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
[/vba]

Автор - Kaiyr
Дата добавления - 05.03.2019 в 09:50
skais Дата: Вторник, 05.03.2019, 10:09 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 186
Репутация: 25 ±
Замечаний: 60% ±

Excel 2010
Надо что бы от начала списка книг.

А что Вы понимаете под началом списка - сортированные файлы по имени, типу, дате, размеру?
Посмотрите здесь
И замените[vba]
Код
Sheet.Copy After:=ThisWorkbook.Sheets(1)
[/vba] на[vba]
Код
Sheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.sheets.count)
[/vba]Думаю это то, что Вы хотели.


Сообщение отредактировал skais - Вторник, 05.03.2019, 10:12
 
Ответить
Сообщение
Надо что бы от начала списка книг.

А что Вы понимаете под началом списка - сортированные файлы по имени, типу, дате, размеру?
Посмотрите здесь
И замените[vba]
Код
Sheet.Copy After:=ThisWorkbook.Sheets(1)
[/vba] на[vba]
Код
Sheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.sheets.count)
[/vba]Думаю это то, что Вы хотели.

Автор - skais
Дата добавления - 05.03.2019 в 10:09
Kaiyr Дата: Среда, 06.03.2019, 09:27 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
skais, Спасибо. помогло. А как объединить все листы списка книг в одну книгу? Что в скрипте поменять?


Активный участник Википедии, могу проконсультировать. Также по казахской генеалогии и программам.
 
Ответить
Сообщениеskais, Спасибо. помогло. А как объединить все листы списка книг в одну книгу? Что в скрипте поменять?

Автор - Kaiyr
Дата добавления - 06.03.2019 в 09:27
_Boroda_ Дата: Среда, 06.03.2019, 09:31 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15576
Репутация: 6077 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А сейчас разве не так работает? Все листы всех книг сует в одну суперкнигу. Не совсем ясно зачем и что потом со всем этим счастьем делать, ну да дело Ваше


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА сейчас разве не так работает? Все листы всех книг сует в одну суперкнигу. Не совсем ясно зачем и что потом со всем этим счастьем делать, ну да дело Ваше

Автор - _Boroda_
Дата добавления - 06.03.2019 в 09:31
Kaiyr Дата: Среда, 06.03.2019, 09:37 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, Получилось. Работает.


Активный участник Википедии, могу проконсультировать. Также по казахской генеалогии и программам.
 
Ответить
Сообщение_Boroda_, Получилось. Работает.

Автор - Kaiyr
Дата добавления - 06.03.2019 в 09:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » объединить книги excel в одну начиная с начала списка книг в (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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