Excel新建工作表

Humanway · 发表于 2022-11-2 11:42:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

新创建一个工作薄

(setq excel (vlax-get-or-create-object "excel.application"))
(Vlax-Invoke-Method (Vlax-Get excel 'Workbooks) 'Add 1)
(setq sheet (vlax-get excel 'sheets))

使用vlax-dump-object查询 sheet

(vlax-dump-object sheets t)
; Sheets: nil
;特性值:
; Application (RO) = #<VLA-OBJECT _Application 0000028f5debbc68>
; Count (RO) = 1
; Creator (RO) = 1480803660
; HPageBreaks (RO) = #<VLA-OBJECT HPageBreaks 0000028f5debc6e8>
; Item (RO) = ...不显示带索引的内容...
; Parent (RO) = #<VLA-OBJECT _Workbook 0000028f62b37b18>
; Visible = 发生意外。
; VPageBreaks (RO) = #<VLA-OBJECT VPageBreaks 0000028f5debba38>
; _Default (RO) = ...不显示带索引的内容...
; _NewEnum (RO) = #<IUnknown 0000028f625252e0>
;支持的方法:
; Add (4)
; Add2 (4)
; Copy (2)
; Delete ()
; FillAcrossSheets (2)
; Move (2)
; PrintOut (9)
; PrintPreview (1)
; Select (1)
T

复制代码

可以知道方法中有Add
通过Excel宏录制，新建工作表的VBA语句如下

Sheets.Add(undefined, "Sheet1", 1, undefined);

复制代码

转化成Vlisp语句如下：

(vlax-invoke-method sheet 'add 0 "Sheet1" 1 0)

复制代码

出错信息如下：
; 错误: Automation 错误。未提供说明。
请教，如何正确在一个工作薄中新建工作表，谢谢。

liu-he · 发表于 2022-11-3 12:10:10

;0·新增页
;|
Examples:
(vlxls-sheet-add *xlapp* "Sheet1")  ==>  T
(vlxls-sheet-add *xlapp* NIL)  ==>  T
(vlxls-sheet-add *xlapp* "NewSheet")  ==>  NIL
|;
(defun vlxls-sheet-add (xlapp Name / Rtn)
(if (member name (vlxls-sheet-get-all xlapp))
   (setq Rtn nil)
   (progn
      (vlax-put-property
         (vlax-invoke-method
            (vlax-get-property Xlapp "sheets" )
            "Add"
         )
         "name"
         Name
      )
      (setq Rtn (equal (vlxls-sheet-get-active xlapp) name))
   )
)
Rtn
)

liu-he · 发表于 2022-11-3 12:13:02

(vlax-put-property
         (vlax-invoke-method
            (vlax-get-property excel "sheets" )
            "Add"
         )
         "name"
         Name
      )

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

[求助] Excel新建工作表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。