请问如何用lisp控制当前excel冻结首行？

碎玉す全瓦

如题,麻烦大家指点一下。

yshf

;试用以下片段
                                  (if (setq ExcelApp (vlax-get-object "Excel.Application"))
                                      (progn
                                          (setq Sheet (vlax-get-property Excelapp "ActiveSheet")) ;当前活动工作表
                                          (setq Range (vlax-get-property Sheet "Range" "1:1"))    ;当前活动工作表的首行
                                          (vlax-invoke Range "Select") ;选取首行
                                          (setq Window (vlax-get-property ExcelApp "ActiveWindow")) ;当前活动窗口
                                          (vlax-put-property Window "SplitRow" 1)
                                          (vlax-put-property Window "FreezePanes" :vlax-true) ;冻结首行
                                      )
                                  )

碎玉す全瓦

yshf 发表于 2021-7-14 20:52
;试用以下片段
                                  (if (setq ExcelApp (vlax-get-object "Excel.Applicat ...

谢谢，非常感谢。