我将顺次打印表文件（dywj.dbf)中的文件，如打印word文档、打印excel文档、显示表文件、运行程序，下列程序 有点问题，恳请高手帮忙修正，万分感谢！！！

程序代码（待完善）
CLOSE ALL
CLEAR ALL
SET TALK OFF
SET SAFETY OFF
SET COMPATIBLE OFF

cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
SET Default TO (mypath)

use dywj
SCAN

  wjm=ALLTRIM(EVALUATE(fields(2)))+ALLTRIM(EVALUATE(fields(4)))
  DO CASE
     CASE 文件类型="doc"
      wordapp=CREATEOBJECT("word.application")
      wordapp.visible=.t.
      wordtable=wordapp.application.Documents.open(wjm)
      wordapp.ActiveDocument.printout()
      wordapp.quit
      
    CASE 文件类型="xls"
     oExcel = GETOBJECT("","Excel.Sheet")
     oExcelApp= oExcel.Application
     oExcelApp.workbooks.open(wjm)
     oExcelApp.Visible=.t.
     oExcelApp.ActiveWorkbook.PrintOut()
     oExcelApp=.NULL.
     *oExcelApp.quit
     
    CASE 文件类型="dbf"
      use &wjm
      BROWSE
      
      
    CASE 文件类型="prg"
    do (wjm)
   
  ENDCASE   
ENDSCAN
RETURN

试试

ALLTRIM(文件类型)=="doc"

   CASE ALLTRIM(文件类型)=="xls"
     oExcel = CREATEOBJECT("Excel.Application")
     oExcel.workbooks.open(ALLTRIM(路径)+ALLTRIM(Wjm)+"."+ALLTRIM(文件类型))
     oExcel.Visible=.t.
     oExcel.ActiveSheet.PrintOut()
     oExcel.quit
     RELEASE oExcel

按照楼上两位的方法修改之后测试，完全正确，没有一点问题的哈。

首先感谢各位的付出！但修改后的程序在运行时出现下列问题：
（1）找不到别名 'DYWJ'
 (2)文件类型="prg"的未运行相应的程序
还请高手赐教！

贴上你修改后的代码

修改后的代码仍有问题，请高手赐教！

CLOSE ALL
CLEAR ALL
SET TALK OFF
SET SAFETY OFF
SET COMPATIBLE OFF

cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
SET Default TO (mypath)

use dywj
SCAN

  wjm=ALLTRIM(路径)+ALLTRIM(文件名)+"."+allt(文件类型)
  DO CASE
     CASE ALLTRIM(文件类型)=="doc"
      wordapp=CREATEOBJECT("word.application")
      wordapp.visible=.t.
      wordtable=wordapp.application.Documents.open(wjm)
      wordapp.ActiveDocument.printout()
      wordapp.quit
      
    CASE ALLTRIM(文件类型)=="xls"
     oExcel = CREATEOBJECT("Excel.Application")
     oExcel.workbooks.open(wjm)
     oExcel.Visible=.t.
     oExcel.ActiveSheet.PrintOut()
     oExcel.quit
     RELEASE oExcel
     
    CASE ALLTRIM(文件类型)=="dbf"
     use &wjm
     BROWSE
      
      
    CASE ALLTRIM(文件类型)=="prg"
     do (wjm)
   
  ENDCASE   
  SELECT dywj
ENDSCAN
RETURN

cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
SET Default TO (mypath)

这 5 行代码没有用处

dywj.dbf 文件必须在当前目录下

如果讲完善的话， CASE ALLTRIM(文件类型)=="prg"
最好改成 CASE lower(ALLTRIM(文件类型))=="prg"