>>要卸载相关的 Active 控件 C:\Program Files\Borland\Delphi7\Demos\ActiveX\TRegSvr從註冊表下手, 可能有一個地方記錄註冊了几次!至于是不是公共的, 可用查相關ocx的版本信息
procedure TSheet.ExportLabelsToExcel(workSheet: OleVariant); var i: integer; TextBox:variant; begin TextBox:= workSheet.Shapes.AddTextBox(1, 20, 20,50,20).name; workSheet.Shapes.Item(TextBox).TextFrame.TextRange.Text:='Text'; //出错行 end;出错信息:ProjectAcReport.exe raised exception class EOleError with Message 'Method 'TextRange' not supported by automation object'
C:\Program Files\Borland\Delphi7\Demos\ActiveX\TRegSvr從註冊表下手, 可能有一個地方記錄註冊了几次!至于是不是公共的, 可用查相關ocx的版本信息
var i: integer; TextBox:variant;
begin
TextBox:= workSheet.Shapes.AddTextBox(1, 20, 20,50,20).name;
workSheet.Shapes.Item(TextBox).TextFrame.TextRange.Text:='Text'; //出错行
end;出错信息:ProjectAcReport.exe raised exception class EOleError with Message 'Method 'TextRange' not supported by automation object'