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

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » объединить книги excel в одну начиная с начала списка книг в (Макросы/Sub)

Kaiyr

Дата: Вторник, 05.03.2019, 09:50 | Сообщение № 1

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

Ранг: Участник

Сообщений: 62

Репутация: 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

Ответить

skais

Дата: Вторник, 05.03.2019, 10:09 | Сообщение № 2

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

Ранг: Форумчанин

Сообщений: 236

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

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

Excel 2010

Цитата Kaiyr, 05.03.2019 в 09:50, в сообщении № 1 ()

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

А что Вы понимаете под началом списка - сортированные файлы по имени, типу, дате, размеру?
Посмотрите здесь
И замените[vba]

Код

Sheet.Copy After:=ThisWorkbook.Sheets(1)

[/vba] на[vba]

Код

Sheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.sheets.count)

[/vba]Думаю это то, что Вы хотели.

Сообщение отредактировал skais - Вторник, 05.03.2019, 10:12

Ответить

Kaiyr

Дата: Среда, 06.03.2019, 09:27 | Сообщение № 3

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

Ранг: Участник

Сообщений: 62

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

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

Excel 2016

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

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

Ответить

_Boroda_

Дата: Среда, 06.03.2019, 09:31 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Kaiyr

Дата: Среда, 06.03.2019, 09:37 | Сообщение № 5

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

Ранг: Участник

Сообщений: 62

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

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

Excel 2016

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

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

Ответить

Страница 1 из 1
1