Author: ikvello Date: Tue May 13 12:08:05 2008 New Revision: 13
Modified: trunk/rdnzl/RDNZL.dll trunk/rdnzl/examples/excel.lisp Log: RDNZL.dll compiled with recent changes and examples updated
Modified: trunk/rdnzl/RDNZL.dll ============================================================================== Binary files. No diff available.
Modified: trunk/rdnzl/examples/excel.lisp ============================================================================== --- trunk/rdnzl/examples/excel.lisp (original) +++ trunk/rdnzl/examples/excel.lisp Tue May 13 12:08:05 2008 @@ -78,16 +78,15 @@ (defun get-excel-range (file-name range) (let* ((app (new "ApplicationClass")) (workbooks [%Workbooks app]) - (workbook (cast [Open workbooks file-name + (workbook [Open workbooks file-name +missing+ nil +missing+ +missing+ +missing+ +missing+ +missing+ +missing+ +missing+ +missing+ +missing+ +missing+ - +missing+ +missing+] - "WorkbookClass")) + +missing+ +missing+]) (worksheets [%Worksheets workbook]) - (sheet (cast [get_Item worksheets 1] "Worksheet")) - (range [get_Range sheet range +missing+])) + (sheet [%Item worksheets 1]) + (range [%Range sheet range +missing+])) (prog1 (cast [%Value2 [%Cells range]] "System.Array") [Quit app])))