用法
评论
建议
取 消
确 定
(defun excel:add-sheet (xlapp name / rtn) "添加个工作表\n参数:XLApp:已打开的excel文件对象\n参数:Name:工作表名" "成功返回t" "(excel:add-sheet exobj \"123\")" (if (member name (excel:sheets xlapp)) (setq rtn nil) (progn (vlax-put-property (vlax-invoke (vlax-get-property xlapp "sheets") "Add") "name" name) (setq rtn (equal (excel:get-activesheet xlapp) name)))) rtn)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新