LISP 冻结excel窗格

啵浪鼓

请问LISP 冻结excel窗格是哪个函数？

yxp

https://docs.microsoft.com/zh-cn ... .Window.FreezePanes

1. (defun excelSetFreeze( / )
   
2. (setq *appxls* (vlax-get-or-create-object "excel.application")
   
3.   actp (vlax-get-property *appxls* 'ActiveWindow)
   
4.   Putp vlax-put-property)
   
5. ;;先取消可能存在的窗口冻结
   
6. (Putp actp 'SplitRow 0)
   
7. (Putp actp 'SplitColumn 0)
   
8. (Putp actp 'FreezePanes 0)
   
9. ;;再设置新的窗口冻结，冻结：顶部2行和左1列
   
10. (Putp actp 'SplitRow 2)
    
11. (Putp actp 'SplitColumn 1)
    
12. (Putp actp 'FreezePanes 1)
    
13. (vlax-release-object *appxls*)
    
14. )

(defun excelSetFreeze( / )<br /> (setq *appxls* (vlax-get-or-create-object "excel.application")<br />   actp (vlax-get-property *appxls* 'ActiveWindow)<br />   Putp vlax-put-property)<br /> ;;先取消可能存在的窗口冻结<br /> (Putp actp 'SplitRow 0)<br /> (Putp actp 'SplitColumn 0)<br /> (Putp actp 'FreezePanes 0)<br /> ;;再设置新的窗口冻结，冻结：顶部2行和左1列<br /> (Putp actp 'SplitRow 2)<br /> (Putp actp 'SplitColumn 1)<br /> (Putp actp 'FreezePanes 1)<br /> (vlax-release-object *appxls*)<br /> )