https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=236635&view=findpost&p=2003276 Thu, 03 Jul 2008 05:59:49 +0000 https://forum.sources.ru/index.php?showtopic=236635&view=findpost&p=2003276 спасибо за то что не пожалели времени на написание ответа!!]]> bas_sanya Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=236635&view=findpost&p=1975203 Mon, 02 Jun 2008 11:09:04 +0000 https://forum.sources.ru/index.php?showtopic=236635&view=findpost&p=1975203 Дело в том что как ни крути Excel реальные данные из ячейки ты ни когда не получишь.
Максимум чего можно достичь это получить объект Range. А вот через него ты можешь читать и писать и вообще делать все что хочешь с ячейкой. В твоем коде отсутсвует после Cells[1,2]. , а далее то что ты хочешь получить. Потому как Cells, если зайти в VBA и посмотреть объектную модель, возращает Range. А вот у него можно уже взять Value т.е. содержимое ячейки.
Т.е. ... .Cells[1,2].Value
Вот пример моего метода.


procedure TFunctionBase.SheetInvestorSave(Investor: TInvestorWorking);
var
SheetNow : Variant; //лист рабочей книги
Row : Integer;
begin
SheetNow := GetSheet(1); //Получаю ссылку на лист.
Row := Investor.PersonInvestorData.ExcelProperty.Row;
SheetNow.Cells[Row,1].Value := Investor.PersonInvestorData.IdentNum;
SheetNow.Cells[Row,2].Value := Investor.PersonInvestorData.FIO.FirstName;
SheetNow.Cells[Row,3].Value := Investor.PersonInvestorData.FIO.NextName;
SheetNow.Cells[Row,4].Value := Investor.PersonInvestorData.FIO.LastName;
SheetNow.Cells[Row,5].Value := Investor.PersonInvestorData.Address.PostIndex;
SheetNow.Cells[Row,6].Value := Investor.PersonInvestorData.Address.City;
SheetNow.Cells[Row,7].Value := Investor.PersonInvestorData.Address.Street;
SheetNow.Cells[Row,8].Value := Investor.PersonInvestorData.Address.House;
SheetNow.Cells[Row,9].Value := Investor.PersonInvestorData.Address.Flat;
SheetNow.Cells[Row,10].Value := Investor.PersonInvestorData.Pasport.Series;
SheetNow.Cells[Row,11].Value := Investor.PersonInvestorData.Pasport.Number;
SheetNow.Cells[Row,12].Value := Investor.PersonInvestorData.Pasport.Getdepartment;
SheetNow.Cells[Row,13].Value := Investor.PersonInvestorData.Pasport.City;
SheetNow.Cells[Row,14].Value := Investor.PersonInvestorData.Pasport.GetDate;
SheetNow.Cells[Row,15].Value := Investor.PersonInvestorData.TelefonContct.Cellular;
SheetNow.Cells[Row,16].Value := Investor.PersonInvestorData.TelefonContct.TelephoneWorke;
SheetNow.Cells[Row,17].Value := Investor.PersonInvestorData.TelefonContct.TelephoneHome;
SheetNow.Cells[Row,18].Value := Investor.PersonInvestorData.Commentary;

end;

Investor. - это типизированная переменная. Все поля в основном string

function TFunctionBase.GetSheet(i: Integer): Variant; //Получение нужного листа рабочей книги.
var
SheetActNow : Sheets;
begin
SheetActNow := ExcelWorkbook.Sheets;
Result := SheetActNow.Item[i];
end;

Я работаю через сервера автоматизации. Там методы видны. Пишут, что более универсальный способ.

Либо есть еще доступ к ячейкам через метод Item[row,Column] помоему свойство листа.]]> GeForce Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=236635&view=findpost&p=1959453 Sun, 18 May 2008 13:08:05 +0000 https://forum.sources.ru/index.php?showtopic=236635&view=findpost&p=1959453 Albinos_X Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=236635&view=findpost&p=1957515 Fri, 16 May 2008 08:05:01 +0000 https://forum.sources.ru/index.php?showtopic=236635&view=findpost&p=1957515 Смотри на разделители дробной части.]]> Romkin Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=236635&view=findpost&p=1957441 Fri, 16 May 2008 07:00:27 +0000 https://forum.sources.ru/index.php?showtopic=236635&view=findpost&p=1957441
var excel: variant;
fileexcel : string;
Wbk: OleVariant;
i: integer;
sum : real;

begin
Excel:=CreateOleObject('Excel.Application');
fileexcel:='D:\...\Blank_for_sign_test.xls';

WBk:=Excel.WorkBooks.Open(FileExcel);
excel.visible:=true;

sum:=0;
for i:=1 to 1000 do

if Excel.ActiveWorkBook.WorkSheets[1].Cells[i+1, 4]=Excel.ActiveWorkBook.WorkSheets[2].Cells[2, 2] and
Excel.ActiveWorkBook.WorkSheets[1].Cells[i+1, 5]=1 then
begin
sum:=sum+Excel.ActiveWorkBook.WorkSheets[1].Cells[i+1, 8];
end;
end;
Как я понял не нравиться ему мой "sum", а чего, понять уже не могу (((
Прошу вашей помощи, заранее спасибо]]> bas_sanya Delphi: Система, Windows API