求delphi高手帮我查下error原因

zhangshuai1015 2013-06-16 10:32:43
for i := 1 to 10 do
begin
Range := Sheet.Range[sheet.cells[i,1],sheet.cells[i,5]];
if Range.MergeCells then
ShowMessage('存在合并单元格');
调试出现错误。
求高手知道如何在选定excel区域内查找是否有合并单元格。
...全文
170 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
短歌如风 2013-06-17
  • 打赏
  • 举报
回复

function IsInMergeArea(XSheet: Variant; Row,
  Col: Integer): boolean;
var
  Area: Variant;
  AreaRow, AreaCol : Integer;
begin
  Area := XSheet.Cells[Row, Col].MergeArea;
  AreaRow := Area.Row;
  AreaCol := Area.Column;
  Result := ( AreaRow <> Row ) or ( AreaCol <> Col );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  XBooks : Variant;
  XBook : Variant;
  XSheet: Variant;
  UsedRange : Variant;
  HasMerged: Boolean;
  Row, Col, MinRow, MinCol, MaxRow, MaxCol: Integer;
begin
  XBooks := ExcelApplication1.Workbooks;
  XBook := XBooks.Open('e:\test.xls');
  XSheet := XBook.ActiveSheet;
  UsedRange := XSheet.UsedRange;
  MinRow := UsedRange.Row;
  MaxRow := MinRow + usedRange.Rows.Count - 1;
  MinCol := UsedRange.Column;
  MaxCol := MinCol + UsedRange.Columns.Count - 1;
  HasMerged := false;
  Row := MinRow;
  while( ( not HasMerged ) and ( Row <= MaxRow ) ) do
  begin
    Col := MinCol;
    while( ( not HasMerged ) and ( Col <= MaxCol ) ) do
    begin
        HasMerged := IsInMergeArea( XSheet, Row, Col );
        Inc(Col);
    end;
    Inc(Row);
  end;
  if( HasMerged ) then
  begin
    ShowMessage( '有合并区域!');
  end;
end;

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧