Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Проблема с Excel (https://forum.antichat.xyz/showthread.php?t=152126)

Absinthe 29.10.2009 17:09
Проблема с Excel
 
Привет всем!..
Возникла проблема.
Нужно изменить значение checkbox в Excel из под Delphi :confused:

slesh 29.10.2009 18:42
Вообще всё очень просто ) достаточно открыть через ComObject экселевский файл.
и выполнить команды:
ActiveSheet.Shapes("Check Box 1").Select
Selection.Value = True // поставить галочку
Selection.Value = False // снять

P.S. не нужно везде одно и тоже сообщение постить

Absinthe 29.10.2009 18:45
Извиняюсь ..что так сделал :rolleyes:
Спасибо за помощь!

...
Можно по-подробнее
Пожалуйста

slesh 29.10.2009 19:10
примерно так делается:
Код:
uses comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
 XL : variant;
 x:integer;
begin
 XL := CreateOleObject('Excel.Application');
 XL.WorkBooks.Open('c:\Êíèãà1.xls');
 XL.Visible := true;

 for x:= 1 to XL.ActiveSheet.Shapes.Count do
 begin
  if XL.ActiveSheet.Shapes.Item(x).Name = 'Check Box 1' then
  begin
    XL.ActiveSheet.Shapes.Item(x).Select;
    XL.Selection.Value := false;
    break;
  end;
 end;
end;

Absinthe 29.10.2009 19:15
Огромнейшее СПАСИБО!!!!!!!
За помощь!!!!
Я очень благодарен!!!!


Время: 02:37