;
; ------------------------------------------------------------
;
;   PureBasic - File example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

XIncludeFile "libxl.pb"

book = xlCreateXMLBook()

sheet = xlBookAddSheet(book, "my")

xlSheetWriteStr(sheet, 2, 1, "Country")
xlSheetWriteStr(sheet, 2, 2, "Road injures")
xlSheetWriteStr(sheet, 2, 3, "Smoking")
xlSheetWriteStr(sheet, 2, 4, "Suicide")

xlSheetWriteStr(sheet, 3, 1, "USA")
xlSheetWriteNum(sheet, 3, 2, 64)
xlSheetWriteNum(sheet, 3, 3, 69)
xlSheetWriteNum(sheet, 3, 4, 49)

xlSheetWriteStr(sheet, 4, 1, "UK")
xlSheetWriteNum(sheet, 4, 2, 94)
xlSheetWriteNum(sheet, 4, 3, 55)
xlSheetWriteNum(sheet, 4, 4, 64)

xlSheetWriteStr(sheet, 5, 1, "Germany")
xlSheetWriteNum(sheet, 5, 2, 88)
xlSheetWriteNum(sheet, 5, 3, 46)
xlSheetWriteNum(sheet, 5, 4, 55)

xlSheetWriteStr(sheet, 6, 1, "Switzerland")
xlSheetWriteNum(sheet, 6, 2, 93)
xlSheetWriteNum(sheet, 6, 3, 54)
xlSheetWriteNum(sheet, 6, 4, 50)

xlSheetWriteStr(sheet, 7, 1, "Spain")
xlSheetWriteNum(sheet, 7, 2, 86)
xlSheetWriteNum(sheet, 7, 3, 47)
xlSheetWriteNum(sheet, 7, 4, 69)

xlSheetWriteStr(sheet, 8, 1, "Italy")
xlSheetWriteNum(sheet, 8, 2, 75)
xlSheetWriteNum(sheet, 8, 3, 52)
xlSheetWriteNum(sheet, 8, 4, 71)

xlSheetWriteStr(sheet, 9, 1, "Greece")
xlSheetWriteNum(sheet, 9, 2, 67)
xlSheetWriteNum(sheet, 9, 3, 23)
xlSheetWriteNum(sheet, 9, 4, 87)

xlSheetWriteStr(sheet, 10, 1, "Japan")
xlSheetWriteNum(sheet, 10, 2, 91)
xlSheetWriteNum(sheet, 10, 3, 57)
xlSheetWriteNum(sheet, 10, 4, 36)

autoFilter = xlSheetAutoFilter(sheet)
xlAutoFilterSetRef(autoFilter, 2, 10, 1, 4)

; sorting by road injures

xlAutoFilterSetSort(autoFilter, 1, 1)

xlSheetApplyFilter(sheet)

xlBookSave(book, "out.xlsx")

xlBookRelease(book)

End



; IDE Options = PureBasic 6.30 (Windows - x64)
; CursorPosition = 69
; EnableXP
; DPIAware