powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скопировать отдельные группы группы Excel
11 сообщений из 11, страница 1 из 1
Скопировать отдельные группы группы Excel
    #38172855
GimTonik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
добрый день!

Подскажите как решить проблему.

Есть эксель файл в нем на одном листе есть скажем 5 групп, мне нужно каждую эту группу скопировать в отдельный файл, как это реализовать, желательно через COM?
...
Рейтинг: 0 / 0
Скопировать отдельные группы группы Excel
    #38172891
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GimTonikесть скажем 5 группгде, скажем, пример?
...
Рейтинг: 0 / 0
Скопировать отдельные группы группы Excel
    #38172928
GimTonik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
во вложении пример файла
...
Рейтинг: 0 / 0
Скопировать отдельные группы группы Excel
    #38172999
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ок, понятно.
С чем требуется помощь? Есть какие-то вопросы, или нужно просто полностью дать код?
...
Рейтинг: 0 / 0
Скопировать отдельные группы группы Excel
    #38173089
GimTonik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProОк, понятно.
С чем требуется помощь? Есть какие-то вопросы, или нужно просто полностью дать код?

) пример кода хотелось бы, так понимаю нужно идти циклом а каждую строку проверять, вопрос как узнать что на в группе, или можно целиком группу скопировать
...
Рейтинг: 0 / 0
Скопировать отдельные группы группы Excel
    #38173160
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну, собственно, да, цикл по строкам.
Вхождение в группу проверяем через
Код: vbnet
1.
.Rows(i).OutlineLevel


как только начался OutlineLevel=1 - кидаем строки в отдельный файл (ну или запоминаем начало, потом кидаем скопом), как только OutlineLevel=0 - сохраняем файл
...
Рейтинг: 0 / 0
Скопировать отдельные группы группы Excel
    #38173182
GimTonik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProНу, собственно, да, цикл по строкам.
Вхождение в группу проверяем через
Код: vbnet
1.
.Rows(i).OutlineLevel


как только начался OutlineLevel=1 - кидаем строки в отдельный файл (ну или запоминаем начало, потом кидаем скопом), как только OutlineLevel=0 - сохраняем файл

отлично спасибо!
...
Рейтинг: 0 / 0
Скопировать отдельные группы группы Excel
    #38174091
GimTonik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
блин проверил свой файл, а там все время OutlineLevel = 1 что не так?
...
Рейтинг: 0 / 0
Скопировать отдельные группы группы Excel
    #38174144
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GimTonikчто не так?Что-то не так
вот я выполняю на вашем файле:
Код: vbnet
1.
2.
3.
For i = 1 To 30
Debug.Print Worksheets("Лист3").Rows(i).OutlineLevel
Next


получаю набр единичек и двоек (не 0 и 1, как я ошибочно сказал, но это не принципиально)
...
Рейтинг: 0 / 0
Скопировать отдельные группы группы Excel
    #38174176
GimTonik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProGimTonikчто не так?Что-то не так
вот я выполняю на вашем файле:
Код: vbnet
1.
2.
3.
For i = 1 To 30
Debug.Print Worksheets("Лист3").Rows(i).OutlineLevel
Next


получаю набр единичек и двоек (не 0 и 1, как я ошибочно сказал, но это не принципиально)

да проверил еще раз код, при перенос основной части забыл убрать создание книги, а обращался по индексу к первой а не
второй)

кстати у меня 1 и 2 выдает, я делаю через СОМ я так понимаю это с этим связано?
...
Рейтинг: 0 / 0
Скопировать отдельные группы группы Excel
    #38174252
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GimTonikкстати у меня 1 и 2 выдает, я делаю через СОМ я так понимаю это с этим связано?все правильно, я же написал:Shocker.Proполучаю набр единичек и двоек (не 0 и 1, как я ошибочно сказал, но это не принципиально)
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скопировать отдельные группы группы Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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