Галактика в вопросах и ответах

Код: Выделить всё

		xlCreateExcelWithTemplate(путь к файлу excel, false);
		XlDisplayAlerts(false); 
		_XlRes := xlIsExcelValid();
		if not xlSetActiveSheetByName('Данные') // ищем лист с данными
    {
      message('Не верный EXCEL-файл! Нет листа "Данные"');
      xlKillExcel;
      CloseInterface(cmCancel);
      stop;
      exit;
    };
		
		_RowCount:=2;
		
		do
		{
			xlGetCellValue(_RowCount,1,_TmpStr);
			if (trim(_TmpStr) = '')
				{
					xlKillExcel;
					break;
				}

			else
			{
				//делаем наши грязные дела
				_RowCount:=_RowCount+1;
			};
		}while true;
		xlKillExcel

Код: Выделить всё

//=============================
#DEFINE _EXCEL_MATRIX_ 
Function ReadDataFromExcel(row:longint ; nmfile :string  ) :boolean ;
//
var wrow :longint ;
    KolEmptRow,KolEmptCol: word ;
    wklempt:boolean ;
    jj:word ;
    wstr2:string ;
    wkluch:boolean ;
    chet : longint ;
    maxjj :longint ;
#IFDEF _EXCEL_MATRIX_    
    mas_excel : longint ;
    row_matrix: longint ;
    
#ENDIF    
{ v_Imp.delete all tmp_excel ;
  ReadDataFromExcel:=false ;
  logfilekl:=true ;
  mylog('ReadDataFromExcel == Идет загрузка из '+nmfile );
  if not fileexist(nmfile) { message('Нет файла '+nmfile) ; exit ;}
//грузим с указанной строки +1(здесь должна быть шапка), при обработке шапка пропускается
//то есть если указана 6 строка, то данные должны юыть с 8
  maxjj:=50 ;// там где много записей надо задать точно, а еще лучше переделать на матрицу.
 RestartVisual('идет загрузка',0);
  wrow:=row ;
  if not inextvisual('Идет загрузка из '+nmfile) then exit ;
  xlCreateExcelWithTemplate(nmfile,true)
  wkluch:=true
  KolEmptRow:=0 ; KolEmptCol:=0 ;
/*
   Function CreateMatrixEx(Rows, Cols : longint) : LongInt; 
    Function FreeMatrixEx(ID : Longint ) : boolean; 
    Function ClearMatrixEx(ID : Longint ): boolean; 
    Function WriteToMatrixEx(ID, Row, Col : longint; Value : variant) : boolean; 
    Function WriteDateToMatrixEx(ID, Row, Col : longint; Year, Month, Day : word) : boolean; 
    Function ReadFromMatrixEx(ID, Row, Col : longint; var Value : variant) : boolean; 
    Function WriteMatrixToExcelEx(ID : Longint; RowU : longint = 0; ColL : longint = 0) : boolean; 
    Function ReadMatrixFromExcelEx(ID : LongInt; RowU : longint = 0; ColL : longint = 0; RowD : longint = 0; ColR : longint = 0) : boolean;
*/  
#IFDEF _EXCEL_MATRIX_    
  mas_excel:=XLCreateMatrixEx(1000,maxjj+1)
  row_matrix:=0 ;
  XLReadMatrixFromExcelEx(mas_excel,row+1,1,row+1000, maxjj) ;
#ENDIF  
  do 
  { 
    wrow:=wrow+1 ;
    chet:=chet+1 ;
    if chet mod 100=0 
      if not nextvisual then { wkluch:=false ; break ;}
#IFDEF _EXCEL_MATRIX_    
    row_matrix:=row_matrix+1 ;
    if row_matrix>1000
    { row_matrix:=1 ;
      XLClearMatrixEx(mas_excel) ;
      XLReadMatrixFromExcelEx(mas_excel,wrow,1,wrow+1000-1, maxjj) ;
    }
#ENDIF
    KolEmptCol:=0 ;
    v_Imp.clearbuffer(v_Imp.tntmp_excel) ;
    v_Imp.tmp_excel.numrow:=wrow ;
    wklempt:=true ;
    for(jj:=1;jj<=maxjj;jj:=jj+1 )
    { wstr2:='' ;
    
#IFDEF _EXCEL_MATRIX_    
      XLReadFromMatrixEx(mas_excel,row_matrix,jj,wstr2)
#ELSE
      xlGetCellValue(wrow,jj,wstr2) ;
#ENDIF      
      wstr2:=trim(replace(wstr2,'  ',' ')) ;
      if wstr2='' then KolEmptCol:=KolEmptCol+1 ;
      if KolEmptCol>20 then break ;
      v_Imp.tmp_excel.dmcell[jj]:=wstr2 ;
      if v_Imp.getfirst tmp_listsootv where (( 
             'ALL'==tmp_listsootv.nmtable
         and 'ALL'==tmp_listsootv.nmfld 
         and tmp_excel.dmcell[jj]== tmp_listsootv.oldval
           ))=0
      { v_Imp.tmp_excel.dmcell[jj]:= v_Imp.tmp_listsootv.newval ;  
      }
      if wstr2<>'' then { wklempt:=false ; KolEmptRow:=0 ; }
    } //for(jj:=1;jj<=100;jj:=jj+1 )
//    if not wklempt or KolEmptRow<10
    v_Imp.insert current tmp_excel ;
  mylog(v_Imp.tmp_excel.dmcell[1]+'/'+v_Imp.tmp_excel.dmcell[2]+'/'+v_Imp.tmp_excel.dmcell[3] );
    if not wklempt then KolEmptRow:=0 ;
    if wklempt
    { KolEmptRow:=KolEmptRow+1 ;
      if KolEmptRow>10 then break ;
    }
  } while wrow<65000
  //v_Imp.delete tmp_excel where (( row-KolEmptRow <<=tmp_excel.numrow)) ;
  mylog('Забрали для записи '+string(recordsintable(v_Imp.tntmp_excel)) );
  mylog('===================================' );
#IFDEF _EXCEL_MATRIX_    
  XLFreeMatrixEx(mas_excel) ;
#ENDIF
  XLGETACTIVEWORKBOOKNAME(wstr2) ;
  xlCloseWorkBookByName(wstr2) ;
  xlKillExcel ;
  ReadDataFromExcel:=wkluch ;
}