数据怎么转换

渠辉

获得这样的数据

#<variant 9 100>
#<variant 9 text>

怎么转换为
100
text

baitang36

怎么获得的？把程序贴上来。

晨曦CAD

(vlax-variant-value #<variant 9 100>)

渠辉

;;  (getcell(vlax-get excel 'activesheet) 1 2))
(defun getcell (sht row col)
    (vlax-get-property
      (vlax-get-property sht 'cells)
      'item
      row
      col
    )
)

这个用不了

渠辉

;;(setcell  (vlax-getexcel 'activesheet)1 2 100)
;; (setcell (vlax-get excel 'activesheet) 1 3 "text")
(defun setcell (sht row col data)
  (vlax-put-property
    (vlax-get-property sht 'cells)
    'item
    row
    col
data
  )
)


这个能用

foolishzy

试试variant-value

渠辉

foolishzy 发表于 2022-7-13 10:09
试试variant-value

试过不行

自贡黄明儒

(vlax-variant-value cell)

渠辉

OK！ 已解决