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

碎玉す全瓦 · 发表于 2021-7-14 20:52

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

yshf · 发表于 2021-7-14 20:52

;试用以下片段
                              (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) ;冻结首行
      )
   )

碎玉す全瓦 · 发表于 2021-7-15 20:16

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

谢谢，非常感谢。

账号		自动登录	找回密码
密码			注册

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

最佳答案