XProfan

Declare Handle hLibxl, book, sheet, format, memory gelesen
hLibxl = ImportDLL("prlibxl.dll", "")
cls
book = xlCreateBookCA()

IF book

    sheet = xlBookAddSheetA(book, "sheet1", 0)

    IF sheet

        xlSheetWriteStrA(sheet, 2, 2, "Hello, World!", 0)
        xlSheetWriteNumA(sheet, 3, 1, single(1000), 0)
        gelesen = xlSheetReadStrA(sheet, 2, 2, 0)
        Print String$(Gelesen, 0)
        gelesen = xlSheetReadNumA(sheet, 3, 1, 0)
        Print String$(Gelesen, 0)

    ENDIF

    xlBookSaveA(book, "example.xls")
    MessageBox("File Written", "", 0)
    xlBookReleaseA(book)

ENDIF

WaitInput
END

 {$pushkeyword xlCreateXMLBookA}
 {$pushkeyword xlCreateBookCA}
 {$pushkeyword xlBookLoadA}
 {$pushkeyword xlBookSaveA}
 {$pushkeyword xlBookReleaseA}
 {$pushkeyword xlBookGetSheetA}
 {$pushkeyword xlSheetWriteStrA}
 {$pushkeyword xlSheetWritenUMA}
 {$pushkeyword xlSheetReadStrA}
 {$pushkeyword xlSheetReadNumA}
 {$pushkeyword dt}
 {$clq}
Declare hLibxl&, book&, sheet&
hLibxl& = ImportDLL("libxl.dll", "")
set("CallConv","CDECL")
Var File$="Beispiel.xlsX"
Var ZahlGelesen!=0
Declare Gelesen#
Dim     Gelesen#, 256

proc xlSheetWriteNumD

    parameters s&, x&, y& , d!, f&
    declare d1&, d2&, md#
    dim md#, 8' Ein Double hat 8 Byte = 64 Bit
    md# = addr(d!)' Das Double wird auf den Bereich gemappt
    d1& = long(md#,0)' Die ersten vier Bytes kommen nach d1
    d2& = long(md#,4)' Die zweiten vier Bytes kommen nach d2
    xlSheetWriteNumA(s&, x&, y&, d1&, d2&, f&)

endproc

cls
book& = xlCreateXMLBookA()
Print book&
xlBookLoadA(book&, File$)

IF book&

    sheet& = xlBookGetSheetA(book&, 0)
    Print sheet&

    IF sheet&

        xlSheetWriteStrA(sheet&,  9,0, "Eintrag aus XProfan: "+dt("getDate", 6), 0)
        'xlSheetWriteNumD(sheet&, 10,0, 8888.88, 0)
        Gelesen#=xlSheetReadStrA(sheet&, 5,0,0)
        Print STRING$(Gelesen#,0)
        Gelesen#=xlSheetReadStrA(sheet&, 7,0,0)' Hier ist eine Zahl gespeichert.
        Print STRING$(Gelesen#,0)

    ENDIF

    xlBookSaveA(book&, File$)
    xlBookReleaseA(book&)

ENDIF

Print "FERTIG!"
FreeDLL hLibXL&
WaitInput
END