Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.01.2015, 22:02   #1
GeFors
Новичок
Джуниор
 
Регистрация: 02.12.2014
Сообщений: 1
По умолчанию Скопировать только видимые ячейки в Excel (на delphi)

Всем привет!
Такое дело:
У меня есть 2 файла Excel`я
1 - Файл откуда мне нужно копировать
В нем, я через delphi делаю автофильтр:
Код:
Ex.Cells[1, 3].AutoFilter(3,'=ИПКарпенко',xlAnd,EmptyParam,True);
Теперь мне нужно скопировать результаты фильтра в другой файл (2)
Именно результат, т.е. только те строки что остались видимыми
Если делать обычное копирование, то копируются все строки как до фильтра
Я облазил просто весь гугл вдоль и поперек, нет ни одного примера реализации этого именно на DELPHI, кругом сплошной vba
Я делал так:
1) В 2-ом документе получаю ВСЕ строки какие участвовали в фильтре
Код:
Ex.WorkBooks.Item[1].Sheets[1].AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy;
Ex.WorkBooks.Item[2].Sheets[1].Paste;
2) В 2-ом документе получаю ВСЕ строки, но уже с заданного диапазона
Код:
Ex.WorkBooks.Item[1].Sheets[1].Range['A1:I20'].SpecialCells(xlCellTypeVisible).Copy;
Ex.WorkBooks.Item[2].Sheets[1].Paste;
3) Как и в 1) - В 2-ом документе получаю ВСЕ строки какие участвовали в фильтре
Код:
Ex.WorkBooks.Item[1].Sheets[1].UsedRange.SpecialCells(xlCellTypeVisible).Copy;
Ex.WorkBooks.Item[2].Sheets[1].Paste;
Спасайте
GeFors вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi и ячейки excel Ks2010 Общие вопросы Delphi 0 24.04.2012 11:37
ячейки в массив Excel и Delphi Fistashka Помощь студентам 0 18.12.2011 13:07
Delphi + Excel проверка ячейки на ошибку Tirendus Общие вопросы Delphi 0 26.02.2010 15:49
Сортировка ячейки Excel по цвету шрифта из Delphi dixieswing Помощь студентам 0 03.08.2009 16:57