如何使用lisp得到excel文件的有效数据行

一只傲娇喵

求大佬指点一下怎么使用lisp得到一个excel文件的有效数据行数


利用gpt写了一个这样的

(defun Get_Row_Count(ss / excel ws sht)
  (setq excel (vlax-get-or-create-object "excel.application"))
  (setq vg vlax-get-property )
  (setq ws (vg excel 'Workbooks))
  (setq sht(vg (vg (vlax-invoke ws 'Open ss) 'Worksheets) 'item 1))


   ; 获取表格范围
  (setq col (vg sht 'Columns))
  (princ col)
  ; 过滤非空单元格
  (setq used_range (vlax-invoke col 'SpecialCells 4))
  (princ used_range)
  (setq range (vg used_range 'Rows))
  (princ range)

  (setq row_count (vg range 'Count))

  ; 输出行数
  (princ row_count)

  ; 关闭 Excel
  (vlax-invoke ws 'Close)

  ; 释放 COM 对象
  (vlax-release-object excel)
  row_count
)



但是这个总是输出2，明显不对劲，但是不过滤就会输出1048576更不对了，应该怎么写呀

sandyvs

http://bbs.mjtd.com/forum.php?mo ... ght=%C8%A1%2B%B1%ED
http://bbs.mjtd.com/forum.php?mo ... hlight=%B0%D9%CD%F2
正好这两天也在找

飞雪神光

来源于网络开源内库

1. ;;;名称:BF-Excel-getUsedRange
   
2. ;;;说明:获取已使用的range区域
   
3. ;;;参数:XLApp:已打开的excel文件对象
   
4. ;;;参数:Name:工作表名
   
5. ;;;返回:成功返回range对象
   
6. ;;;示例BF-Excel-getUsedRange exobj "345")
   
7. (Defun BF-Excel-getUsedRange (XLApp Name / Rtn sh)
   
8.   (if (null Name)
   
9.     (setq Name (BF-Excel-getActiveSheet XLApp))
   
10.   )
    
11.   (vlax-for sh (vlax-get-property XLApp "sheets")
    
12.     (if        (= (vlax-get-property sh "Name") Name)
    
13.       (setq Rtn (vlax-get-property sh "UsedRange"))
    
14.     )
    
15.   )
    
16.   Rtn
    
17. )

;;;名称:BF-Excel-getUsedRange<br /> ;;;说明:获取已使用的range区域<br /> ;;;参数:XLApp:已打开的excel文件对象<br /> ;;;参数:Name:工作表名<br /> ;;;返回:成功返回range对象<br /> ;;;示例<img src="static/image/smiley/default/sad.gif" smilieid="2" border="0" alt="" />BF-Excel-getUsedRange exobj "345")<br /> (Defun BF-Excel-getUsedRange (XLApp Name / Rtn sh)<br />   (if (null Name)<br />     (setq Name (BF-Excel-getActiveSheet XLApp))<br />   )<br />   (vlax-for sh (vlax-get-property XLApp "sheets")<br />     (if        (= (vlax-get-property sh "Name") Name)<br />       (setq Rtn (vlax-get-property sh "UsedRange"))<br />     )<br />   )<br />   Rtn<br /> )

一只傲娇喵

直接得到有效行没找到，只好这样写了，
;;功能：载入工作表指定区域数据为 VisualLisp 数组
;;参数：ss 路径及文件名； n 工作表的下标或名称； usg 指定的数据区域
;;返回：VL数组
;;示例：(Get_Sheet_arry "d:\\cpp\\data.xlsx" 1 "a2:e2000")
;;VisualLisp 数组用法，查找第 2 行，第 3 列数据，转 lisp 表用 mapcar
;;(vlax-variant-value(vlax-safearray-get-element arr 2 3))

(defun Get_Sheet(ss n usg / vg ws sht)
(setq excel (vlax-get-or-create-object "excel.application")
    vg vlax-get-property ws (vg excel 'Workbooks)
    sht(vg (vg (vlax-invoke ws 'Open ss) 'Worksheets) 'item n)
    arr (vlax-variant-value (vg (vg sht 'Range usg) 'Formula)))

  (setq row_count 1)
  (while (not (= (vlax-variant-value(vlax-safearray-get-element arr row_count 1)) ""))
    (setq row_count (+ row_count 1))
    (if (> row_count 2000)
      (progn
        (princ "文件数据太多，为保证性能，不应超出2000行")
        (exit)
        )
      )
    )
(vlax-invoke ws 'close)
(list arr row_count)
)

(princ (Get_Sheet "C:\\Users\\86155\\Desktop\\埋件数据模板.xlsx" 1 "a1:q2000"))

循环判断一下

菜鸟初来乍到

飞雪神光 发表于 2023-11-13 19:10
来源于网络开源内库

感谢大佬分享

菜鸟初来乍到

菜鸟初来乍到 发表于 2023-11-14 10:49
感谢大佬分享

好的好的，我去看看