【结贴】excel合并单元格代码运行总出错**

newjack

procedure TBD_BDZYXGL_JDBHJZDZZXX.ToolButton1Click(Sender: TObject);
var
lFileName: String;
lcells,range,tUsed, ATarget: DispatchHelper;
count,i,row,col :integer;
begin
// 导出
  fxls := ComObj.CreateOleObject('excel.Application');
  FApp := DispatchHelper.Create(fxls);
  FApp.PropertyPut('Visible', [True]);

  docs := FApp.PropertyGet('Workbooks',  []);

  FDocs := DispatchHelper.Create(docs);
  FDocs.InvokeMethod('ADD', []); //加载一个空的工作薄

  lcells := DispatchHelper.Create(FApp.PropertyGet('cells', [1,1]));
  lcells.PropertyPut ('ColumnWidth',[15]);
  lcells.PropertyPut('value',['屏名称']);

  lcells := DispatchHelper.Create(FApp.PropertyGet('cells', [1,2]));
  lcells.PropertyPut ('ColumnWidth',[20]);
  lcells.PropertyPut('value',['保护装置名称及型号']);

  tUsed := DispatchHelper.Create(ATarget.PropertyGet('Range', ['A1','B1']));
  tUsed.InvokeMethod('Merge',[]);
end;
此段代码是在往A1,B1赋值后在合并这2个单元格,但一运行到  tUsed := DispatchHelper.Create(ATarget.PropertyGet('Range', ['A1','B1']));就出错.帮忙看下

newjack

有人在帮解决吗?

shangxy

tUsed := DispatchHelper.Create(ATarget.PropertyGet('Range', ['A1','B1']));
你的ATarget是空对象会报告指针错误的。
换成FApp 看看

newjack

解决了,结贴