_ExcGetType

(    nRow  : LongInt;
     nCol  : LongInt;
 dim Type  : Byte) : Byte

Čte typ hodnoty z pole v řádku nRow sloupce nCol v aktuální listu MS Excel. Pro typy použijte konstanty:

• 0 (buňka je prázdná - neobsahuje žádná data a tedy ani typ)
• cTypeReal
• cTypeStringZ
• cTypeDateTime

Řádky a sloupce se indexují od jedné. Před použitím funkce musí být volána funkce _ExcOpen a otevřen dokument funkcí _ExcOpenDoc nebo _ExcNewDoc jinak dojde k chybě.

Podaří-li se funkce úspěšně ukončit, vrací hodnotu True(1). Jinak vrací False(0).

Podívejte se na: Funkce pro napojení na aplikaci MS Excel

Příklad:

call Cti;
Exit

procedure Cti
    _ExcOpen; 
    _ExcOpenDoc(FName,false);

    call ZobrazBunku(1,1);
    call ZobrazBunku(1,2);
    call ZobrazBunku(1,3);
    call ZobrazBunku(1,4);
    call ZobrazBunku(1,5);
    call ZobrazBunku(1,6);
	
    ExcClose; 
endproc { Cti }

procedure ZobrazBunku(    Row : Longint; 
						  Col : Longint)
    dim Typ 	: Byte;
    dim rVal	: Real;
    dim dtVal	: DateTime;
    dim sVal	: StringZ;

    if _ExcGetType(Row, Col, Typ) then
        if(Typ = cTypeReal)then
            _ExcGetValue(Row, Col, rVal);
            Trace(Row,":",Col," real=",rVal);
        else
            if(Typ = cTypeStringZ)then
                _ExcGetValue(Row, Col, sVal);
                Trace(Row,":",Col," string='",sVal,"'");
            else
                if(Typ = cTypeDateTime)then
                    _ExcGetValue(Row, Col, dtVal);
                    Trace(Row,":",Col," datetime='",dtVal,"'");
                else
                    if(Typ = 0)then
                        Trace(Row,":",Col," prázdno");
                    else
                    endif
                endif
            endif
        endif
    endif
endproc { ZobrazBunku }