(defun c:ReadExcelColumn (/ excelApp workBook workSheet filePath 目标列 列数据)
  (VL-load-com)
    ; ===================== 1. 必改参数（仅需修改这2行）=====================
    (setq filePath "D:\\Test.xlsx" ; ??  Excel文件完整路径（双反斜杠！）
          目标列 "A"               ; 要读取的列（"A"/"B" 或 1/2/3）
          )

    ; ===================== 2. 启动Excel =====================
    (setq excelApp (vlax-create-object "Excel.Application"))
    (if (not excelApp)
        (progn (alert "无法启动Excel！请确保已安装Excel。") (exit))
    )

    ; 后台运行，禁用警告
    (vlax-put-property excelApp 'Visible :vlax-false)
    (vlax-put-property excelApp 'DisplayAlerts :vlax-false)

    ; ===================== 3. 打开工作簿（核心修复：传递路径参数）=====================
    ; 关键：'Open 后面必须跟文件路径（filePath），这是必填参数
    (setq workBook (vlax-invoke-method (vlax-get-property excelApp 'Workbooks) 'Open filePath))

    ; ===================== 4. 定位工作表（默认Sheet1）=====================
    (setq workSheet (vlax-invoke-method workBook 'Worksheets "Sheet1"))

    ; ===================== 5. 读取指定列数据 =====================
    (setq 列索引 (if (numberp 目标列) 目标列 (vlax-invoke-method workSheet 'Columns 目标列 'Column))
          最后行 (vlax-get-property (vlax-invoke-method (vlax-invoke-method workSheet 'Columns 列索引) 'Find "*" nil nil nil :vlax-true) 'Row)
          数据区域 (vlax-invoke-method workSheet 'Range (vlax-invoke-method workSheet 'Cells 1 列索引) (vlax-invoke-method workSheet 'Cells 最后行 列索引))
          原始数据 (vlax-get-property 数据区域 'Value)
          列数据 nil
          )

    ; 转换为VLISP一维列表
    (if (vlax-safearray-p 原始数据)
        (progn
            (setq i 1)
            (while (<= i 最后行)
                (setq 列数据 (cons (vlax-safearray-get-element 原始数据 i 1) 列数据))
                (setq i (1+ i))
            )
            (setq 列数据 (reverse 列数据))
        )
        (setq 列数据 (list 原始数据))
    )

    ; ===================== 6. 关闭Excel并释放资源 =====================
    (vlax-invoke-method workBook 'Close)
    (vlax-release-object 数据区域)
    (vlax-release-object workSheet)
    (vlax-release-object workBook)
    (vlax-release-object excelApp)

    ; ===================== 7. 显示结果 =====================
    (alert (strcat "提取成功！\n文件：" filePath "\n列：" 目标列 "\n数据：\n" (vl-prin1-to-string 列数据)))
    (princ)
)

我在网上摘录了这段程序，可在这报错，“实参太少”是怎么回事？
(setq workBook (vlax-invoke-method (vlax-get-property excelApp 'Workbooks) 'Open filePath))


网友答: WPS当初山寨的时候，很傻的将一些方法的COM化的参数搞的跟标准Excel不一样。


网友答:
vlax-invoke-method一般对参数检查严格，vlax-invoke一般情况只要有必要参数就行，有的方法用这两种不同的方式去调用，有可能得到不太一样的结果
vlax-get-propery和vlax-get也有类似的区别，一般认为它们是一样，但实际上经常不一样，有可能vlax-get得到的东西更便于进一步处理
反正使用前要多测试再决定怎么用

网友答: 本帖最后由 tryhi 于 2025-11-20 23:18 编辑

你电脑是不是装了WPS，我有个excel处理程序，就是因为装了WPS后 (setq workBook (vlax-invoke-method (vlax-get-property excelApp 'Workbooks) 'Open filePath))报实参太少，然后WPS删又删不掉，劫持太厉害注册表也被禁止修改，直接废了换电脑

网友答: 又拿AI写的代码训练坛友了

网友答: 这道是附加题，专门拷打群里大佬的。

网友答: 多半是因为装了WPS，再装一个OFFICE。在电脑默认程序中设置.xls和.xlsx用EXCEL打开，可以解决。有时被WPS改回去，你再改一次就好了，后面它再改也不影响了。有时需要先用EXCEL打开一次你的数据，再运行程序，就好了。

网友答: 可用户用什么都有，office、wps,程序要满足各类人群的需求啊，看还有什么解决办法？

网友答: vl-catch-all-apply把office和wps的格式都顺次写上。

网友答: 可不可以来个完整的代码学习学习...

网友答: "Excel.Application"，"Et.Application"，"ket.Application"都来一遍，哪个能用就用哪个

网友答:
海大师，不要用excel了，用html，做出来的表格漂亮，还简单