сделал так:
| Код |
uses ... ComObj, OleServer, ExcelXP;
...
procedure TForm1.ConnectClick(Sender: TObject);
begin
ExcelApplication1.AutoConnect:=true;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.OpenXML('C:\ROMT\ROMT_config.xls',EmptyParam));
ExcelApplication1.ConnectTo(ExcelWorkbook1.Application);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.ActiveSheet as ExcelWorksheet);
ExcelApplication1.Visible[0]:=false;
If BSC_choice.Text= 'BSC2' Then begin ip := ExcelWorksheet1.Range['b2',EmptyParam];
port:= ExcelWorksheet1.Range['c2',EmptyParam]; end;
...
IdTelnet1.Host:=ip;
IdTelnet1.port:=port;
ExcelApplication1.Quit;
IDTelnet1.Connect;
end;
procedure TForm1.IdTelnet1Connected(Sender: TObject);
begin
ExcelApplication1.AutoConnect:=true;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.OpenXML('C:\ROMT\ROMT_config.xls',EmptyParam));
ExcelApplication1.ConnectTo(ExcelWorkbook1.Application);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.ActiveSheet as ExcelWorksheet);
ExcelApplication1.Visible[0]:=false;
If BSC_choice.Text= 'BSC2' Then begin
dev_BSC:= ExcelWorksheet1.Range['g2',EmptyParam] ;
dev_BS:= ExcelWorksheet1.Range['h2',EmptyParam] ; end;
...
ExcelApplication1.Quit;
end;
|
В первой процедуре все работает нормально, но когда добавляется тот же набор команд по работе с EXCEL во второй процедуре, но с другими ячейками, выдается ошибка INVALID VARIANT OPERATION. Где ошибка? |
)