Работа с ячейкой листа Microsoft ExcelDelphi , Технологии , OLE Automation MSOfficeРабота с ячейкой листа Microsoft Excel
Автор: Lookin { **** UBPFD *********** by delphibase.endimus.com **** >> Работа с ячейкой листа Microsoft Excel Получает и заносит число типа double в ячейку листа Microsoft Excel Зависимости: ComObj Автор: lookin, lookin@mail.ru, Екатеринбург Copyright: lookin Дата: 30 апреля 2002 г. ***************************************************** } //ВНИМАНИЕ: ОБЯЗАТЕЛЬНОЕ условие работы - наличие запущенного Excel //получение double из заданной ячейки первого листа в заданной рабочей книге function DoubleValueFromExcelCell(ExcelWorkBook, ExcelCell: string): double; var i: integer; Excel, v: Variant; begin Excel := GetActiveOleObject('Excel.Application'); for i := 1 to Excel.Application.Workbooks.Count do if Excel.Application.Workbooks[i].FullName = ExcelWorkBook then begin v := Excel.Application.Workbooks[i].Sheets[1].Range[ExcelCell]; DoubleValueFromExcelCell := VarAsType(v, varDouble); v := 0; Excel := 0; end; end; //занесение double в заданную ячейку первого листа в заданной рабочей книге procedure DoubleValueToExcelCell(Value: double; ExcelWorkBook, ExcelCell: string); var i: integer; Excel, v: Variant; begin Excel := GetActiveOleObject('Excel.Application'); for i := 1 to Excel.Application.Workbooks.Count do if Excel.Application.Workbooks[i].FullName = ExcelWorkBook then begin Excel.Application.EditDirectlyInCell := false; v := Value; Excel.Application.Workbooks[i].Sheets[1].Range[ExcelCell] := v; end; end; Работа с ячейкой листа Microsoft Excel - статья, в которой описывается создание функции и процедуры для получения и занесения чисел типа double из/в ячейки листа Microsoft Excel. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: OLE Automation MSOffice ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |