Здравствуйте!
Я начинаю только писать на D7. Первая моя задача такова: Есть Excel файл 97-2003 мне в нём забита инфа с A1 до J18. В первой строке наименования столбцов, в каждой строке инфа об одном человеке. Мне необходимо просматривать каждого человека по-очереди и если необходимо изменять одно из этих полей. Допустим ячейку из столбца I.
Т.к. не имею инфы о всех компонентах попытался в поле мемо что-то выгрузить, но D7 сразу ругнулся на несоответствие типов.
Помогите пожалуйста.
Я начинаю только писать на D7. Первая моя задача такова: Есть Excel файл 97-2003 мне в нём забита инфа с A1 до J18. В первой строке наименования столбцов, в каждой строке инфа об одном человеке. Мне необходимо просматривать каждого человека по-очереди и если необходимо изменять одно из этих полей. Допустим ячейку из столбца I.
Т.к. не имею инфы о всех компонентах попытался в поле мемо что-то выгрузить, но D7 сразу ругнулся на несоответствие типов.
Помогите пожалуйста.
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls, Buttons;
type
TForm1 = class(TForm)
btnClose: TBitBtn;
mmo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Excel: Variant;
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Excel:=CreateOleObject('Excel.Application');
Excel.Workbooks.open['F:\Delphi\Projects\Excel\1.xls'];
Excel.visible:=False;
mmo1:=Excel.Range['A5:J5'];
Excel.ActiveWorkbook.Close;
Excel.Application.Quit;
end;
end.
.