Скачать: CL | DM;

Как передать данные из 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.046 c