You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
497 B
22 lines
497 B
program generate
|
|
|
|
use libxl
|
|
|
|
type(BookHandle) book
|
|
type(SheetHandle) sheet, nullSheet
|
|
type(FormatHandle) nullFormat
|
|
integer i
|
|
|
|
book = xlCreateBook()
|
|
|
|
if(book%point.ne.0) then
|
|
sheet = xlBookAddSheet(book, "Sheet1", nullSheet)
|
|
if(sheet%point.ne.0) then
|
|
i=xlSheetWriteStr(sheet, 2, 1, "Hello, World !", nullFormat);
|
|
i=xlSheetWriteNum(sheet, 3, 1, 1000, nullFormat);
|
|
end if
|
|
i=xlBookSave(book, 'example.xls')
|
|
call xlBookRelease(book)
|
|
end if
|
|
|
|
end program generate
|