“实参太少”是怎么回事？

挚友02

(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))