Copy it to a variant, then read the resulting variant array. This will be much faster than reading from each Excel cell individually, and it will avoid an Excel resource leak that can be critical on Win9x systems.
{ ... } var ArrV: OleVariant; { ... }
ArrV := WS.UsedRange[LCID].Value2; for Row := 1 to VarArrayHighBound(ArrV, 1) - 1 do for Col := 1 to VarArrayHighBound(ArrV, 2) - 1 do Memo1.Lines.Add(Format('Row: %d Col: %d %s', [Row, Col, VarToStr(ArrV[Row, Col])])); end; { ... }
收藏
推荐
评论加载中…
