TdxSpreadSheet 取单元格的值

functionTfrmQuotaImportMainMaterial.GetCellValue(ARow,ACol:Integer):Variant;

var

   vMergeCell:TdxSpreadSheetMergedCell;

begin

   vMergeCell := dxsprdshtContent.ActiveSheetAsTable.MergedCells.FindCell(ARow,ACol);

ifAssigned(vMergeCell)then

begin

if dxsprdshtContent.ActiveSheetAsTable.Cells[vMergeCell.Area.Top, vMergeCell.Area.Left].IsFormulathen

Result:=XLSRead.Sheets[dxsprdshtContent.ActiveSheetIndex].AsString[FNameCol,FCurrentRow].Trim

else

Result:= dxsprdshtContent.ActiveSheetAsTable.Cells[vMergeCell.Area.Top, vMergeCell.Area.Left].AsString;

end

elseifnot dxsprdshtContent.ActiveSheetAsTable.Cells[ARow,ACol].IsEmptythen

Result:= dxsprdshtContent.ActiveSheetAsTable.Cells[ARow,ACol].AsVariant

else

Result:='';

end;