在对excel的操作中报错,被呼叫方拒绝接收呼叫
我在ExcelApplication1SheetChange事件中进行操作````在excel中输入数据太快的时候就会报错,被呼叫方拒绝接收呼叫,越快越有可能报错,如果速度不是很快就没问题,代码如下:
procedure TForm1.ExcelApplication1SheetChange(ASender: TObject;
const Sh: IDispatch; const Target: ExcelRange);
var
str:widestring;
ExcelApp: Variant;
begin
str:=ExcelApplication1.Cells.Item[target.row,target.column];
str:='*data*'+str+'*row*'+inttostr(target.Row)+'*column*'+inttostr(target.Column);
Excelapp:=excelapplication1.ActiveSheet as _worksheet;
str:='*AcSheet*'+excelapp.name+str;
clientsocket1.Socket.SendText(str);
end;