“实参太少”是怎么回事？
(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))
页:
[1]