Четверг, 10.10.2024, 14:48
Приветствую Вас, Гость | RSS
Реклама
Категории раздела
Статьи посвещенные работе с Excel с использованием Delphi 7 [2]
Работа с базами данных [2]
Прочее [1]
Разработки Воропай Андрея [3]
Публикация разработок автора: Воропай Андрей (waw) Разработка прикладного, системного ПО, БД, Delphi, SQL. Стаж работы 13 лет.
Фрактальная геометрия [3]
Фракталы (от лат. fractus - изломанный) Обладают двумя основными признаками - изломанностью и свойством самоподобия. В данной категории мы рассмотрим примеры программ на Delphi для создания фракталов.
Не программирование [0]
Реклама
личность и деятельность ивана болотникова
принципы кооперации труда
особенности стратегий для гостиницы
viagra 100mg cialis 5mg
cialis precio accutane
where to get green coffee
achater viagra en ligne
cialis canada  viagra  viagra prix  viagra   Подключил опцию Одноклассники онлайн  comprar viagra  cialis france  acheter viagra en ligne  viagra generique  prix du viagra  acheter viagra en ligne  Siamo qui per fornire tutto viagra sessualmente eccitato  prix du viagra  cialis generique  viagra pas cher  dysfonction erectile  viagra generico
Вход
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

К началу

Главная » Статьи » Статьи посвещенные работе с Excel с использованием Delphi 7

Работа с Excel из Delphi 7 работа с таблицей
Получение доступа к листу.

 
// Выберем лист с которым работаем, для первой книги, первый лист
WorkSheet := Excel.Workbooks[1].WorkSheets[1];

Задание диапазонов ячеек, для дальнейшей обработки.

 
// Можно выделить диапазон
Range := WorkSheet.Range[WorkSheet.Cells[LineNum + 1, ColNum],
WorkSheet.Cells[Rows, ColNum]];



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

Ускорение получения и сохранения значений в таблицу. Работа с вариантными массивами.

 PerentRow: OleVariant; // Значения из указанной строки // Сохраним значения из LineNum строки в вариантный массив 
PerentRow := WorkSheet.Range[WorkSheet.Cells[LineNum, 1],WorkSheet.Cells[LineNum, Columns].Formula;


Поиск в заданном диапазоне.

 Cell := Range.Find('Строка поиска', LookAt := xlPart, 
LookIn := xlValues, SearchOrder := xlByColumns, SearchDirection
:=
xlNext); iFirstAddress := Cell.Address;
repeat
// тут делаем любые преобразования с найденными ячейками
// Найдем очередную строку
Cell := Range.FindNext(After := Cell);
iAddress := Cell.Address;
until VarIsEmpty(Cell) or (iFirstAddress = Cell.Address);
{до тех пор, пока находит значения в колонке}


Получение адреса ячейки.

 iAddress := Cell.Address; 


Обращение к ячейке по номеру строки/столбца.

 


Категория: Статьи посвещенные работе с Excel с использованием Delphi 7 | Добавил: waw (06.01.2011)
Просмотров: 4835 | Рейтинг: 0.0/0
Всего комментариев: 0
g to the place, where the Comments block will be -->
Имя *:
Email:
Код *:
Информация

Смотреть фильмы в хорошем качестве эротика мультфильмы ужасы фантастика боевики комедия приключения всё это можно скачать бесплатно с помощью торрента с фильмом или мультфильмом
Банковские услуги
Запорожье