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.
25 lines
638 B
25 lines
638 B
7 years ago
|
program edit
|
||
|
|
|
||
|
|
use libxl
|
||
|
|
|
||
|
|
type(BookHandle) book
|
||
|
|
type(SheetHandle) sheet
|
||
|
|
type(FormatHandle) nullFormat
|
||
|
|
integer i
|
||
|
|
double precision d
|
||
|
|
|
||
|
|
book = xlCreateBook()
|
||
|
|
if(book%point.ne.0) then
|
||
|
|
if(xlBookLoad(book, "..\generate\example.xls").ne.0) then
|
||
|
|
sheet = xlBookGetSheet(book, 0)
|
||
|
|
if(sheet%point.ne.0) then
|
||
|
|
d = xlSheetReadNum(sheet, 3, 1, nullFormat)
|
||
|
|
i=xlSheetWriteNum(sheet, 3, 1, d * 2, nullFormat)
|
||
|
|
i=xlSheetWriteStr(sheet, 4, 1, "new string", nullFormat)
|
||
|
|
end if
|
||
|
|
i=xlBookSave(book, "..\generate\example.xls")
|
||
|
|
end if
|
||
|
|
call xlBookRelease(book)
|
||
|
|
end if
|
||
|
|
|
||
|
|
end program edit
|