Как передать данные из Excel в StringGrid? [D6, WinXP]
Viper_Omsk © (2006-04-17 15:02:00)
Привет всем!
Такой вопрос: есть Excel файл, в котором N столбцов и M строк
с данными; как эти данные вставить в StringGrid?
Дмитрий Л. (2006-04-17 15:17:00) [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;
Наверх 
ЧАТ |
Орешник |
|
