VBA句子改成lisp

852456

请问下各位大神我想把下边这个句子改成lisp语句
Range(ActiveCell, ActiveCell.Offset(UBound(namearray, 1) - 1, UBound(namearray, 2) - 1)) = namearray
这句话的代码是vba里边直接把数组赋值给对应的范围的单元格
(setq sa (vlax-make-safearray vlax-vbString  (cons 0 2) ))
(vlax-safearray-fill sa '(1 2 3 ))
(setq a1 (Vlax-Get-Property (vlax-get xsl 'Activesheet ) 'Range "A1:h1"))
(vlax-put-property a1 sa)
这是我按照自己的理解写得不过报错了这里是错误的类型
错误: 参数类型错误: (or stringp symbolp): #<safearray...>