Создаваемое нами приложение Delphi может получать доступ к объектам Excel несколькими способами. Наиболее распространённые из них: использование объектов Variant и технология ADO.
Я не буду полностью расписывать все примеры того, как можно в Delphi обрабатывать данные из Excel, а просто добавлю исходный код программы, которую создал, делая урок по работе Delphi и Excel. В коде есть комментарии к каждому действию.
Плюс, вы можете посмотреть видео по разработке приложений MS Excel в Delphi
Код из видео:
Вас может заинтересовать
- Delphi и Word. Создание, редактирование, открытие документа MS Word в Delphi
- Типы данных в Delphi. Урок №4
- Комментарии и переменные в Delphi. Урок №3
- Менеджер проектов и файлы проекта Delphi. Урок №2
- Интегрированная среда разработки Delphi (Delphi IDE). Урок №1
- Delphi как язык программирования и среда разработки ПО. Вступление
Источник: d-nik.site
Delphi и Excel – разработка приложений MS Excel в Delphi
Загрузка данных из Excel в Delphi StringGrid или массив
Довольно распространенная задача в программировании – загрузка данных в проект из внешнего файла. В отличие от загрузки из обычного текстового файла, загрузка из Excel, как и любого другого специального файла или подключение к базе данных, требует отдельного механизма реализации.
В данной статье рассматривается один из наиболее удобных способов работы с подгружаемыми из Excel данными. Значения всех ячеек страницы Excel вносятся в двумерный массив типа Variant. Затем с этим массивом уже можно работать любыми привычными способами.
В общем виде все сводится к подключению программы к файлу Excel, получению необходимого диапазона ячеек и присвоении вашему массиву значения заданного диапазона ячеек.
* Метод SpecialCells используется для выделения определенных ячеек на основании оценки их содержимого или других характеристик. Применяемое здесь значение параметра-константы xlCellTypeLastCell указывает методу выделить последнюю ячейку используемого диапазона, т.е. саму нижнюю правую ячейку в диапазоне, где введено хоть какое-то значение. Это позволяет копировать не все ячейки листа, а лишь диапазон, содержащий какие-либо данные.
Для использования команд работы с OLE-объектами для этого кода нужно добавить библиотеку:
uses ComObj;
После указанных операций данные введены в массив, из которого их можно перенести в компонент StringGrid или использовать их по своему усмотрению. Стоит заметить, что в полученном таким образом массиве данные индексы располагаются в следующем порядке: [номер строки, номер столбца]. Это видно из следующего примера вывода данных массива в компонент StringGrid.
// назначение размера StringGrid по размеру полученного диапазона ячеек MyStringGrid.RowCount := x; MyStringGrid.ColCount := y; // заполнение таблицы StringGrid значениями массива for x := 1 to MyStringGrid.ColCount do for y := 1 to MyStringGrid.RowCount do MyStringGrid.Cells[x-1, y-1] := MyMass[y, x];
Источник: space-base.ru
Работа с листами и ячейками Excel в Delphi
Для работы с Excel в Delphi, первым делом нужно в Uses указать модуль ComObj.
Как запустить Excel и открыть новый документ в Delphi
procedure TForm1 . Button1Click ( Sender : TObject ) ;
XL : Variant ;
XL : = CreateOLEObject ( ‘Excel.Application’ ) ; // Создание OLE объекта
XL . WorkBooks . add ; // Создание новой рабочей книги
XL . visible : = true ;
Как обратиться к отдельным ячейкам листа Excel в Delphi
XL . WorkBooks [ 1 ] . WorkSheets [ 1 ] . Cells [ 1 , 1 ] . Value : = ’30’ ;
//Результатом является присвоение ячейке [1,1] первого листа значения 30. Также к ячейке
//текущего листа можно обратиться следующим образом:
XL . Cells [ 1 , 1 ] : = ’30’ ;
Как добавить формулу в ячейку листа Excel в Delphi
XL . WorkBooks [ 1 ] . WorkSheets [ 1 ] . Cells [ 3 , 3 ] . Value : = ‘=SUM(B1:B2)’ ;
Форматирование текста в ячейках Excel, производится с помощью свойств Font и Interior объекта Cell:
// Цвет заливки
XL . WorkBooks [ 1 ] . WorkSheets [ 1 ] . Cells [ 1 , 1 ] . Interior . Color : = clYellow ;
// Цвет шрифта
XL . WorkBooks [ 1 ] . WorkSheets [ 1 ] . Cells [ 1 , 1 ] . Font . Color : = clRed ;
XL . WorkBooks [ 1 ] . WorkSheets [ 1 ] . Cells [ 1 , 1 ] . Font . Name : = ‘Courier’ ;
XL . WorkBooks [ 1 ] . WorkSheets [ 1 ] . Cells [ 1 , 1 ] . Font . Size : = 16 ;
XL . WorkBooks [ 1 ] . WorkSheets [ 1 ] . Cells [ 1 , 1 ] . Font . Bold : = True ;
Работа с прямоугольными областями ячеек, с помощью объекта Range:
XL . WorkBooks [ 1 ] . WorkSheets [ 1 ] . Range [ ‘A1:C5’ ] . Value : = ‘Blue text’ ;
XL . WorkBooks [ 1 ] . WorkSheets [ 1 ] . Range [ ‘A1:C5’ ] . Font . Color : = clBlue ;
//В результате в области A1:C5 все ячейки заполняются текстом ‘Blue text’.
Как выделить группу (область) ячеек Excel в Delphi
XL . Range [ ‘A1:C10’ ] . Select ;
Как установить объединение ячеек, перенос по словам, и горизонтальное или вертикальное выравнивание Excel в Delphi
//Выделяем группу (область) ячеек
XL . Range [ ‘A1:C10’ ] . Select ;
// объединение ячеек
XL . Selection . MergeCells := True ;
// перенос по словам
XL . Selection . WrapText := True ;
// горизонтальное выравнивание
XL . Selection . HorizontalAlignment := 3 ;
//вериткальное выравнивание
XL . Selection . VerticalAlignment := 1 ;
//Возможны следующие значения:
//1 — выравнивание по умолчанию,
//2 — выравнивание слева,
//3 — выравнивание по центру,
//4 — выравнивание справа.
Как задать границы ячеек Excel в Delphi
XL . Selection . Borders . LineStyle := 1 ;
// значение может быть установлено от 1 до 10
Как выровнять столбцы Excel по ширине, в зависимости от содержания
XL . selection . Columns . AutoFit ;
Как удалить столбец Excel в Delphi
XL . columns [ 1 ] . delete ;
Как задать формат ячеек Excel в Delphi
XL . columns [ 1 ] . NumberFormat : = ‘m/d/yyyy’ ; // формат дата
XL . columns [ 1 ] . NumberFormat = ‘0.00%’ // формат процентный
Одноклассники
Все материалы и продукты на этом сайте опубликованы для целей ознакомления для зарегистрированных пользователей фирм производителей материала или продукта, или его авторов. Помните, что скачанные материалы или продукты, Вы используете на свой страх и риск. Автор и администрация этого сайта не несет никакой ответственности за использование этих материалов или продуктов третьими лицами. В случае, если вы используете один из перечисленных здесь материалов или продуктов, Вы обязаны официально приобрести его у фирмы производителя или автора.
Источник: okolokompa.com