Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скопировать отдельные группы группы Excel / 11 сообщений из 11, страница 1 из 1
04.03.2013, 07:47
    #38172855
GimTonik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скопировать отдельные группы группы Excel
добрый день!

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

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

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


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


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

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


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


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