Главная страница
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.038 c
2-1147258116
Quattro
2006-05-10 14:48
2006.05.28
Разноцветные буквы.


3-1144073895
Anton_beginer
2006-04-03 18:18
2006.05.28
XP и MDAC - не встает


2-1146969649
TBAPb
2006-05-07 06:40
2006.05.28
Помогите сделать поект


2-1147186661
XiAndr
2006-05-09 18:57
2006.05.28
Монопольный запуск


9-1130193018
TButton
2005-10-25 02:30
2006.05.28
поворот спрайта (програмно)