請問ExcelWorksheet1->Cells->Find( )如何使用? BCB提示參數有8個... 請大家幫忙~~謝謝!! 發表人 - gattaca 於 2004/07/27 01:58:10

Variant pm[7]; pm[0] = "昫"; //What pm[1] = false; //After pm[2] = xlValues; //LookIn pm[3] = xlWhole; //LookAt pm[4] = xlByRows; //SearchOrder //SearchDirection pm[5] = false; //MatchCase pm[6] = false; //MatchByte Excel_2k::Range* rg = NULL; rg = ExcelWorksheet1->Cells->Find(pm[0], pm[1], pm[2], pm[3], pm[4], xlNext, pm[5], pm[6]); 這是原碼 可是無效 請大家幫忙~~謝謝!!

雖然有點晚，不過我把我找到的答案提供給大家。 原始網頁： http://delphi.developpez.com/faq/?page=excelfeucellules

Var MonClasseur : _workbook;
    MaFeuille :_Worksheet;
    rMaPlage : ExcelRange;
    Adresse : wideString;
begin
  ExcelApplication1.Connect;
  MonClasseur:=ExcelApplication1.Workbooks.Open('c:\tutoriel\tuto.xls',False,False,
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
  ExcelApplication1.Visible[0]:=true;
  MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
  
  rMaPlage:=MaFeuille.Cells.Find('toto',EmptyParam,xlValues,xlPart,
               xlByRows,xlNext,EmptyParam,EmptyParam);
  
  if not (rMaPlage = nil) then
  begin
    Adresse:=rMaPlage.Address[true,true,xlR1C1,false,false];
    showmessage(adresse);
    repeat
      rMaPlage:=MaFeuille.Cells.FindNext(rMaPlage);
      showmessage(adresse);
    Until (rMaPlage = nil) or (Adresse=rMaPlage.Address[true,true,xlR1C1,false,false])
  end;
end;

而我自己則是使用 rMaPlage := MaFeuille.Cells.Find('toto',EmptyParam,xlFormulas,xlPart,xlByRows,xlNext,false,false); 沒有問題，可以正確找出目標的Row及Column。 發表人 - Alger 於 2005/01/03 18:08:19