Как Прочитать данные из ячеек из файла EXCEL?

← →
sucer (2004-03-22 16:18) [0]

Есть файл в формате EXCEL XP.Там один-обычный- екселовский лист.
На листе 8 колонок и 1000 строк.В ячеках находятся строковые
данные.

Кто знает.напишите кусок кода пожалуста!!ПОЖАЛУСТА!! как прочитать данные с этого файла./или ссылку на статью с исходниками.

← →
senya (2004-03-22 16:24) [1]

Типа такого

var
Excel,WorkBook,Sheet: OLEVariant;
value : string;
begin
OpenDialog.Filter := "Microsoft Excel files (*.xls)|*.xls";
OpenDialog.FilterIndex := 1;
if OpenDialog.Execute then
begin
Excel := CreateOleObject("Excel.Application");
Excel.Workbooks.Open(OpenDialog.FileName, False);
WorkBook := Excel.WorkBooks.Item[1];
Sheet := Excel.Application.Worksheets.Item[1];

for i := 1 to 100 do //номер строки
for j := 1 to 8 //номер колонки
value := Trim(Sheet.Cells.Item[i,j].Value);

работать медленно будет просто жуть
сильно не уверен, но может можно брать значение из range сразу в вариантный массив. устанавливать значения таким образом можно, а вот можно ли брать - не знаю, не пробовал, можете попробовать. если получится, то работать будет раз 100 быстее.

Как Прочитать данные из ячеек из файла EXCEL? Найти похожие ветки