NativeExcel 读取文件

class function T_EShopDataBill.ImportData(const AFileName: String;
  AList: T_EShopDataModelList; var AErr: string): Boolean;
var
    Book: IXLSWorkbook;
    ws: IXLSWorksheet;
    i : Integer;
    nOrderIDRow,nTrackNoRow : Integer;
    obj : T_EShopDataModel;
    tmpIden,tmpTrackNo : String;
    sSql : String;
    tmpQry : TADOQuery;
begin
   Book := TXLSWorkbook.Create ;
   try
     i := Book.Open(AFileName);
     ws := Book.WorkSheets[];

     if ws.UsedRange.Rows.Count =  then
       Exit;

     nOrderIDRow := ;
     nTrackNoRow := ;
     for I :=  to ws.UsedRange.Rows[].Count - do
     begin
        if nOrderIDRow =  then
            if CompareText( VarToStr( ws.UsedRange.Cells[,i].Value),'单据备注') =  then
              nOrderIDRow := i;

        if nTrackNoRow =  then
           if CompareText( VarToStr( ws.UsedRange.Cells[,i].Value),'运单编号') =  then
              nTrackNoRow := i;

        if (nOrderIDRow >  ) AND (nTrackNoRow > ) then
          Break;
     end;

      // ShowInformationMsg(inttostr(nOrderIDRow)+' '+IntTostr(nTrackNoRow));
     if (nOrderIDRow = ) or (nTrackNoRow = ) then
       Exit;

     for i :=  to  ws.UsedRange.Rows.Count  do
     begin
        with ws.UsedRange do
        begin
          if VarIsNull(Cells[i,nTrackNoRow].Value) then
            Break;
          if VarIsNull(Cells[i,nOrderIDRow].Value) then
            Break;
        end;

        tmpTrackNo := ws.UsedRange.Cells[i,nTrackNoRow].Value;
        tmpIden := ws.UsedRange.Cells[i,nOrderIDRow].Value;

        if ( Trim(tmpTrackNo) = '') or (tmpIden = '') then
        begin
          Break;
        end;

        obj := T_EShopDataModel.Create;
        obj.fOrderID := tmpIden;
        obj.fTrackNo := tmpTrackNo;
        AList.List.Add(obj);
     end;
   finally
     Book.Close;
   end;
end