Как передать данные из Excel в StringGrid?

← →
Viper_Omsk (2006-04-17 15:02) [0]

Привет всем!
Такой вопрос: есть Excel файл, в котором N столбцов и M строк с данными; как эти данные вставить в StringGrid?

← →
Дмитрий Л. © (2006-04-17 15:17) [1]

Примерно так.
var
FValues: OleVariant;
FExcelApp, FWorkBook, FWorkSheet: Variant;
RowCount, ColCount: Integer;
begin
try
ExcelApp := CreateOleObject("Excel.Application");
FWorkBook:=ExcelApp.WorkBooks.Open(W);
FWorkSheet:=FWorkBook.WorkSheets[1];
FValues:=FWorkSheet.UsedRange.Value;
RowCount:=CurrentWorkSheet.UsedRange.Rows.Count;
ColCount:=CurrentWorkSheet.UsedRange.Columns.Count;

Label.Caption:=FValues[1{Row}, 1{Col}];

finally
FExcelApp:=Unassigned;
FWorkBook:=Unassigned;
FWorkSheet:=Unassigned;
end;
end;

Как передать данные из Excel в StringGrid? Найти похожие ветки