*第一步1.建立了 a123.xks 模表
*第二步2.将 a123.xks 模表 另存为 b123+"年月（201804）" 如:b123^201804
*第三步3.把a123.dbf 的内容 转换到 b123^201804.xls 中去.
*第四步4.选择打开b123^201804.xls 后可以浏览并决定是否打印.
*第五步5.关闭xls表.程序结束.

*附代码如下: 试了,不完善.请予以指导.

ASTACKINFO(a程序)
cPath = ADDBS(JUSTPATH(a程序[2]))
SET DEFAULT TO (cPath)
SET SAFETY OFF
COPY FILE a123.xls TO cPath+"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

    IF MESSAGEBOX("完成，数据转换。要导出EXCEL吗？.",1+256,'提示')=6

    eole=creatobject("excel.appltcation")
    oExcel.Workbooks.Open(cPath+"b123.xls")  && 打开指定工作簿
    oExcel.Visible=.T.
    ELSE
      RETURN
    ENDIF  

怎么不完善,看你的,好像可以使用阿.
你是速度不够,还是什么

测试可行啊。

回复2、3楼

把你上面的2个文件目录，改为简单点的，先测试看看，如
C:\A123.XLS,
C:\B123.XLS看看，如果这样可以的话，就是你路径有问题，如果这样还是不行，那就是其他问题。

生成的EXCEL表：没有显示在窗口前,从文件夹中找到后.双击不能打开,2.也不能直接删除.

生成的EXCEL表：没有显示在窗口前,从文件夹中找到后.双击不能打开,2.也不能直接删除.

查看一下，是否没有关闭退出excel。

谢谢你。我以为也是这个原因。
oExcel.Workbooks.Close
objexcel.activeworkbook.Close(.F.)
oExcel.Quit
Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭
是不是要加上上面几个命令，若要加应加在哪里。请指教。

请求版主出手，谢谢。