Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: 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 вся ветка

Текущий архив: 2006.05.28;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.034 c
2-1147606601
Mr tray
2006-05-14 15:36
2006.05.28
dll с хуком клавы - печатается 2 символа


15-1146570229
DVM
2006-05-02 15:43
2006.05.28
Программно передать координаты в Ozi Explorer. Как?


15-1146402032
ArtemESC
2006-04-30 17:00
2006.05.28
C КПК в сеть...


2-1147078700
cardexc
2006-05-08 12:58
2006.05.28
не получается сделать запрос


3-1144409433
RomanH
2006-04-07 15:30
2006.05.28
Умный триггер в InterBase