procedure XOpen;
begin
form1.Cursor:=crHourGlass;
xls := CreateOleObject('Excel.Application');
xls.Application.EnableEvents := true;
xls.Visible := true;
xls.DisplayAlerts := true;
xls.WorkBooks.Open(form1.label3.caption);
xls.WorkSheets[1].Activate;
form1.Cursor:=crdefault;
end;
procedure TForm1.Button2Click(Sender: TObject); // закрытие
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Visible := True;
ComboBox1.Items.Add('Daria Artemova');
ComboBox1.Items.Add('SEIC Supply');
end;
procedure TForm1.Button3Click(Sender: TObject); // открытие по нажатию кнопки
begin
if OpenDialog1.Execute then
begin
Label3.Caption:=OpenDialog1.FileName;
XOpen;
end;
end;
procedure TForm1.Button1Click(Sender: TObject); //добавление значений в ячейки
begin
xls.Range['A9']:=Edit1.Text;
xls.Range['C9']:=ComboBox1.Text;
end;
end.
|