_ExcGetValue

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

Čte hodnotu z pole v řádku nRow sloupce nCol v aktuální listu MS Excel. Čtené hodnoty (Value) mohou být číselné, řetězcové nebo datumové. Řá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ě.

Je potřeba vložit správný typ proměnné Value, jinak bude hlášena chyba. Typ lze přečíst funkcí _ExcGetType.

Jestliže je buňka prázdná (neobsahuje žádná data a tedy ani typ) vrací hodnotu 0.

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 }