excel

Question

hi, experts:请将下面这段vb代码翻译成delphi代码：
for each rowRange in xlSheet.usedrange
    for each colRange in rowRange
       ....
    next colRange
next rowRange必感激涕淋！下面两种是错误的：
1. //==============================================================
    xlSheet.Used.Range.select();
    For rowcnt := 1 to xlSheet.selection.rows.count do
    begin          
      If found = True Then
        break;      For colcnt := 1 to xlSheet.selection.columns.count do           
      begin
        range := xlSheet.cells(rowcnt, colcnt);
        If Range.value = value Then      
        begin
          found := True;                    
          break;
        End;
      end;
    end;2.//===============================================================
    For rowcnt := 1 to xlSheet.Used.Range.rows.count do
    begin          
      If found = True Then
        break;      For colcnt := 1 to xlSheet.Used.Range.columns.count do           
      begin
        range := xlSheet.cells(rowcnt, colcnt);
        If Range.value = value Then              
        begin
          found := True;                    
          break;
        End;
      end;
    end;

Answer 1

xlApp := createOleObject('Excel.Application');
    copyTemplateFile(source, destfileName);
    xlsWorkBook := xlApp.Workbooks.Open(destFileName); //打开EXCEL工作簿
    xlsWorkSheet := xlsWorkBook.Worksheets[1]; //打开EXCEL工作表改成
For rowcnt := 1 to xlApp.ActiveSheet.used.range.rows.count do
begin          //类似单元格行区域
  For colcnt := 1 to xlApp.ActiveSheet.used.range.columns.count do           
  begin
    range := xlApp.ActiveSheet.cells(rowcnt, colcnt);
    ...
  end;
end;
后还是错，报ole自动化不支持activeSheet方法...