[求助]：关闭输出文件后，如何再打开？

SGP007

输出到xls，中途想打开修改123.xls，然后继续在不退出程序的情况下，接着往123.xls里面增加数据，怎么做呢？我已经(close fp)，再怎么打开呢，而且数据能接着往下增加。
还有一个疑问，能否在循环中把点的次数进行计数呢？
(defun c:k ()
  (vl-load-com)
  (setq filename "d:\\123.xls")
  (setq fp (open filename "w"))
  (while (= 1 1)
    (if        (setq d (getpoint "\n 请拾取点:"))
      (progn
        (setq dx (car d))
        (princ dx fp)
        (princ (chr 10) fp)

      )
      (progn
        (close fp)
        (startapp
          "C:/Program Files/Microsoft Office/OFFICE11/EXCEL.EXE"
          filename
        )
      )
    )
  )
)