Приветствую Вас, Гость · RSS Среда, 27.10.2021, 11:25








Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » 2019 » Январь » 23 » Загрузка данных из Excel
Загрузка данных из Excel
08:10

Если кратко:

uses
ComObj;

const
xlCellTypeLastCell = $0000000B;
var
ExcelApp, ExcelSheet: OLEVariant;
MyMass: Variant;
x, y: Integer;
begin
// создание OLE-объекта Excel
ExcelApp := CreateOleObject('Excel.Application');

// открытие книги Excel
ExcelApp.Workbooks.Open('C:\my_excel.xls');

// открытие листа книги
ExcelSheet := ExcelApp.Workbooks[1].WorkSheets[1];

// выделение последней задействованной ячейки на листе
ExcelSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate;

// получение значений размера выбранного диапазона
x := ExcelApp.ActiveCell.Row;
y := ExcelApp.ActiveCell.Column;

// присвоение массиву диапазона ячеек на листе
MyMass := ExcelApp.Range['A1', ExcelApp.Cells.Item[X, Y]].Value;

// закрытие книги и очистка переменных
ExcelApp.Quit;
ExcelApp := Unassigned;
ExcelSheet := Unassigned;
end;

// назначение размера 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];

 

Если с описанием:

https://space-base.ru/library/?book=8

Просмотров: 789 | Добавил: windog | Рейтинг: 5.0/1 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]