两个简单的读取excel表格函数

dalin1985

请问如何实现列数用数字呢？用字母列数太多了不能迭代呀，用着不方便。

sunny_8848

多谢楼主分享，标记留存

773786668

留个脚印，先

renxianjing

llsheng_73 发表于 2019-10-11 16:45
虽然绝大部分msxl函数都可能通过vlax-invoke、vlax-get、vlax-get来实现，并且要使用msxl函数确实需要初始 ...

您好！
此处msxl-xl24HourClock，如何理解？

renxianjing

llsheng_73 发表于 2019-10-11 16:45
虽然绝大部分msxl函数都可能通过vlax-invoke、vlax-get、vlax-get来实现，并且要使用msxl函数确实需要初始 ...

留个掌印，下次好过来找

hubeiwdlue

谢谢大佬们的分享。

Qwer1243

感谢楼主的分享和各位大佬的讨论

ljxkm

dalin1985 发表于 2023-5-27 16:49
请问如何实现列数用数字呢？用字母列数太多了不能迭代呀，用着不方便。

这个网上有：
;;;cell id 轉換
(Defun vlxls-cellid (id / xx id1 id2 Rtn)
  (if (= (type id) 'list)
    (setq id (vlxls-rangeid id))
  )
  (setq id (strcase id))
  (if (null (setq xx (vl-string-search ":" id)))
    (setq Rtn (list id ""))
    (setq id1 (substr id 1 xx)
   id2 (substr id (+ xx 2))
   id1 (vlxls-rangeid id1)
   id2 (vlxls-rangeid id2)
   Rtn (list (vlxls-rangeid (list (min (car id1) (car id2)) (min (cadr id1) (cadr id2))))
      (vlxls-rangeid (list (max (car id1) (car id2)) (max (cadr id1) (cadr id2))))
       )
    )
  )
  Rtn
)


;;;Examples:
(vlxls-cellid ‘(3 14)) return: ("C14" "")
(vlxls-cellid “D23”) return: ("D23" "")
(vlxls-cellid “C12:F3”) return: ("C3" "F12")
(vlxls-cellid “F15:G22”) return: ("F15" "G22")