PrototypeC  xlCreateBook()
PrototypeC  xlCreateXMLBook()
PrototypeC  xlBookAddSheet(handle, name.p-unicode, nil)
PrototypeC  xlBookLoad(handle, filename.p-unicode)
PrototypeC  xlBookSave(handle, filename.p-unicode)
PrototypeC  xlBookRelease(handle)
PrototypeC  xlBookSetKey(handle, name.p-unicode, key.p-unicode)
PrototypeC  xlSheetReadStr(handle, row.i, col.i, format=#Null)
PrototypeC  xlSheetWriteStr(handle, row.i, col.i, value.p-unicode, format=#Null)

Global xlBookAddSheet.xlBookAddSheet
Global xlBookLoad.xlBookLoad
Global xlBookRelease.xlBookRelease
Global xlBookSave.xlBookSave
Global xlBookSetKey.xlBookSetKey
Global xlCreateBook.xlCreateBook
Global xlCreateXMLBook.xlCreateXMLBook
Global xlSheetReadStr.xlSheetReadStr
Global xlSheetWriteStr.xlSheetWriteStr

Procedure.i libxl_LoadDLL()
  Protected hDLL.i
  hDLL = OpenLibrary(#PB_Any, "libxl.dll")
  If hDLL <> 0
    xlBookAddSheet = GetFunction(hDLL, "xlBookAddSheetW")
    xlBookLoad = GetFunction(hDLL, "xlBookLoadW")
    xlBookRelease = GetFunction(hDLL, "xlBookReleaseW")
    xlBookSave = GetFunction(hDLL, "xlBookSaveW")
    xlBookSetKey = GetFunction(hDLL, "xlBookSetKeyW")
    xlCreateBook = GetFunction(hDLL, "xlCreateBookW")
    xlCreateXMLBook = GetFunction(hDLL, "xlCreateXMLBookW")
    xlSheetReadStr = GetFunction(hDLL, "xlSheetReadStrW")
    xlSheetWriteStr = GetFunction(hDLL, "xlSheetWriteStrW")
    ProcedureReturn hDLL
  EndIf
  Debug "dll not loaded"
EndProcedure

libxl_LoadDLL()
;*book = xlCreateBook()    ; xls format
*book = xlCreateXMLBook() ; xlsx format
;xlBookSetKey(*book, "Name", "Key")
If(*book)
  *sheet = xlBookAddSheet(*book, "Example", 0);
  If(*sheet)
    For row = 1 To 3
      xlSheetWriteStr(*sheet, row, 0, Str(row))
    Next 
    xlSheetWriteStr(*sheet, 1, 1, "Red")
    xlSheetWriteStr(*sheet, 2, 1, "Green")
    xlSheetWriteStr(*sheet, 3, 1, "Blue")
  EndIf
  xlBookSave(*book, "my_example.xlsx")
  xlBookRelease(*book)
EndIf