Как открыть книгу Excel в Delphi?
- TExceApplication,
- TExcelWorkBook,
- TExcelWorkSheet.
Если кто-нибудь знает что с этими компонентами делать, чтобы открыть рабочую книгу для просмотра в ней данных - подскажите пожалуйста.
Алексей.
на delphikingdom.ru видел примеры работы с word и excel.
var
sh: _WorkSheet;
.
.
.
try
try
ExcelApplication.Connect;
except
MessageDlg('Microsoft Excel не установлен', mtError, [mbOk], 0);
exit;
end;
ExcelApplication.Workbooks.Open(<file name>,0,true,1,'','',true,xlWindows,',',true,true,0,false,0);
ExcelApplication.Caption := 'Caption';
ExcelWorkbook.ConnectTo(ExcelApplication.Workbooks.Item[1]);
ExcelWorkbook.Activate;
ExcelWorkbook.Worksheets.Item[2].QueryInterface(IID__Worksheet,sh);
if sh = nil then begin
exit;
end;
ExcelWorksheet.ConnectTo(sh);
// Пишем данные
for i := 1 to CalcDataCount[ChanInd] do begin
ExcelWorksheet.Cells.Item[i+1,1] := format('%.6f',[CalcDataArr[i,ChanInd,1]]);
ExcelWorksheet.Cells.Item[i+1,2] := format('%.6f',[CalcDataArr[i,ChanInd,2]]);
ExcelWorksheet.Cells.Item[i+1,3] := format('%.4f',[CalcDataArr[i,ChanInd,3]]);
ExcelWorksheet.Cells.Item[i+1,4] := format('%.2f',[CalcDataArr[i,ChanInd,4]]);
ExcelWorksheet.Cells.Item[i+1,5] := format('%.6f',[CalcDataArr[i,ChanInd,5]]);
ExcelWorksheet.Cells.Item[i+1,6] := format('%.3f',[CalcDataArr[i,ChanInd,6]]);
ExcelWorksheet.Cells.Item[i+1,7] := format('%.3f',[CalcDataArr[i,ChanInd,7]]);
end;
ExcelWorkbook.Saved[0] := true;
ExcelApplication.Visible[0] := true;
ExcelWorksheet.Disconnect;
ExcelWorkbook.Disconnect;
ExcelApplication.Disconnect;
except
on E: Exception do begin
ShowMessage('Ошибка');
ExcelWorksheet.Disconnect;
ExcelWorkbook.Disconnect;
ExcelApplication.Disconnect;
end;
end;