请教lisp如何调用excel的sort函数

Casa小宝

;首先是用vlxls的函数导入了msxl开头的excel库函数
;要先下载个vlxls.lsp
(vlxls-app-init)
;然后获得xlapp
(setq *xlapp* (vlax-get-or-create-object "Excel.Application"))


下一步想用excel里的排序函数
在vba里是这样的：
With Excel.Worksheets("辅助1")
.Range("B3:K" & 3 + 4 - 1).Sort Key1:=Excel.Worksheets("辅助1").Range("F3"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal

应该如何翻译成lisp呢？
(vlax-invoke-method
(msxl-get-range *xlapp* "B3:Z6")
'Sort
(msxl-get-range *xlapp* "F3")
msxl-xlDescending
msxl-xlGuess
1
:vlax-False
msxl-xlTopToBottom
msxl-xlPinYin
msxl-xlSortNormal
)
我这样写运行到第一个参数(msxl-get-range *xlapp* "F3")时提示实参太少。。
希望高手指点~~

liu_kunlun

*xlapp*即application,到range应该还有很多步：application->Worksheets->worksheet->Range

Casa小宝

liu_kunlun 发表于 2013-12-16 20:55
*xlapp*即application,到range应该还有很多步：application->Worksheets->worksheet->Range

嗯嗯。。确实是，在vba里第一个参数也是要详细列出Excel.Worksheets("辅助1").Range("F3")的
可惜不知道这个msxl-get-range函数还能有什么参数可以添加了

哎，vla没学好
暂时用了个比较折衷的方法，将sort函数写在excel里，然后用(vlax-invoke *xlapp* 'run "sort函数" arg1 arg2)去调用