真心感谢，b123不能在程序中直接打开浏览吗？
我想这样：

    if   导出完成了，确定要打开吗
       打开这个表
     elsel
        结束
      endif

吹佬：这样可行吗？

IF MESSAGEBOX("完成，数据转换。要导出EXCEL吗？.",1+256,'提示')=6
        eole=creatobject("excel.appltcation")
        oExcel.Workbooks.Open(cPath+"b123.xls")  && 打开指定工作簿
        oExcel.Visible=.T.
      ELSE
       RETURN
     ENDIF  
加了上面几句，没有看到打开b123.xls,
这样不行吗，问题在哪儿呢？

可以
ASTACKINFO(a程序)
cPath = ADDBS(JUSTPATH(a程序[2]))
SET DEFAULT TO (cPath)
SET SAFETY OFF
COPY FILE a123.xls TO b123.xls
oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = .F.
oExcel.WorkBooks.Open(cPath+"b123.xls")
USE a123
nColCount = FCOUNT()
SCAN
    FOR nCol=1 TO nColCount
        oExcel.Cells[RECNO()+1,nCol].Value = EVALUATE(FIELD(nCol))
    ENDFOR
ENDSCAN
oExcel.ActiveWorkbook.Save
IF MESSAGEBOX("完成数据转换导出，要打开吗？",1+256,'提示')==1
    oExcel.Visible = .T.
    RETURN
ENDIF
oExcel.Workbooks.Close
oExcel.Quit
Release oExcel

学习了，真心感谢版主。这个贴子现在可以真正的完美结贴了。