powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / обединение книг
14 сообщений из 14, страница 1 из 1
обединение книг
    #36193925
rty123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть много файлов (01.XLS, 02.XLS, 03.XLS,...) . Надо какой-то лист (напирмер: лист2) из всех этих книг собрать в один лист.
Результат должен как в книге REZULTAT.XLS. Как можно это делать? Помогите пожалуйста.
...
Рейтинг: 0 / 0
обединение книг
    #36194092
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
макрос внутри книги...
2 замечания:
первые две строки как у меня в файле должны быть обязательно! (не название, а именно наличие данных в первых двух строках)
первый файл из папки не считует, прийдется доделать вручную, или засунуть в ту же папку файл РЕЗУЛЬТАТ только он должен идти обязательно первым...
...
Рейтинг: 0 / 0
обединение книг
    #36194199
rty123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо MaximuS_G. Макрос нормально работает, показывает результат, но почему то у меня после этого выходит сообшение о повторное открытые 1_REZULTAT.XLS и стирается все данные.
...
Рейтинг: 0 / 0
обединение книг
    #36194309
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
где у Вас лежит файл 1_REZULTAT.XLS ?
В папке со всеми книгами, или отдельно ?
Если в папке со всеми, то еще раз повторяя, его позиция должна быть первой!
Структура папки:
1_REZULTAT.XLS
book1
book2
....
А НЕ
book1
1_REZULTAT.XLS
book2
в таком случае, он действительно откроет книгу второй раз...
А как вообще получились все эти книги ?
...
Рейтинг: 0 / 0
обединение книг
    #36198065
rty123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
MaximuS_G, у меня еще 1 вопрос появился.
Мне надо лист1 группировать по категорию (столбец С) и результат должен как в листе "Rezultat".
Как можно это делать?
...
Рейтинг: 0 / 0
обединение книг
    #36198223
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можна вручную...
1) Удалите все пустые строки в таблице
2) Выделите столбец F
3) Нажмите F5 - выделить пустые ячейки - во второй ставите "=" и указываете ячейку на одну выше - нажимаете Ctrl+Enter
4) Копируете столбец и вставляете заново (Специальная вставка - Только значения)
5) И потом просто делаете сортировку по нужному столбцу
...
Рейтинг: 0 / 0
обединение книг
    #36198270
rty123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
MaximuS_GМожна вручную...

Нет, мне надо как-то програмно делать это.
...
Рейтинг: 0 / 0
обединение книг
    #36198437
rty123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
MaximuS_G, Ваш код мне очень помог. Я хотел над этим кодом 2 изменение делать, но у меня не получается:

1. Надо по кождому сеху найти сумму количество вакантных мест (столбец Е), (и общий количество по всем сеху )

2. В столбец F на все строки (не только 1-й) надо имя файла писать, и без ".XLS"

3. T.e. результат должен как в 2.xls.

Если не друдно Вам помогите мне и в этом деле.
...
Рейтинг: 0 / 0
обединение книг
    #36198923
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Смотрите, в моем коде в этой строке замените 2 на 1
Cells(Cells(lPos, 1).End(xlDown).Row+ 1 , 1).PasteSpecial
тогда не будет пустых строк между книгами
и в этой сделайте изменение как указано снизу
Cells(ActiveCell.Row, 6).Value = Mid(myfilename, 1, Len(myfilename) - 4)
тогда будут название как Вам нужно
а теперь по поводу общего количества... я бы не делал это макросом...
сделайте сводной таблицей - и удобно и быстро... пример во вложении
...
Рейтинг: 0 / 0
обединение книг
    #36199208
rty123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
MaximuS_G, я эти изменение делал, спасибо за это, но помоему Вы 2-й вопрос не правильно поняли.

2. В столбец F на все строки (не только 1-й) надо имя файла писать. (В лист1 столбец F )

Хочу получить такой результат как в лист1.
И возможно ли форматирование листа оставить как в лист1?
...
Рейтинг: 0 / 0
обединение книг
    #36199413
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сделал, только без рамок... Это Вы уже сами...
Но поверьте, если бы я получил такую таблицу, я бы ее отправил назад :)... Она не обрабатываемая, подумайте про мое предложение о сводной...
...
Рейтинг: 0 / 0
обединение книг
    #36201624
rty123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
MaximuS_G, сейчас одно проблема остается:
Если в каком-то файле ( напр:12.xls) всего один запис, тогда программа не работает.
Если больше 1-го тогда все нормально. Я хотел что-то менять в коде, но ничего не получилас. Помогите пожалуйста.

БОЛЬШОЕ СПАСИБО ВАМ, MaximuS_G!
...
Рейтинг: 0 / 0
обединение книг
    #36201741
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
обединение книг
    #36201764
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все сделал... Теперь не обязательно должны повторяющиеся имена столбцов...
При работе с макросом следите за тем что бы поля в вашим суб книгах совпадали по очередности с полями в главной книге, и что бы они обязательно были!
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / обединение книг
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]