之前在论坛上学到了好多，感谢各位大神！
问题是这样的
 SELECT 2
  USE wx
  SELECT 1
 USE dw3
 DO whil NOT EOF()
  myxmc=yxmc
  myxmc1=yxmc1
  SELECT 2
   COPY TO &myxmc1 FOR myxmc=yxmc TYPE XL5
    OEXCEL = CREATEOBJECT('Excel.application')
    OEXCEL.WORKBOOKS.OPEN(SYS(5)+SYS(2003)+"\&myxmc1")
    oExcel.Sheets(myxmc1).NAME = "数据"
    oExcel.ActiveWorkBook.Save
    OEXCEL.WORKBOOKS.CLOSE
    OEXCEL.QUIT
    RELEASE OEXCEL
   SELECT 1
    SKIP   
  ENDDO
wx.DBF是一张大表，dw3是为了根据某一字段内容做的零时表，dw3中有2个字段，yxmc是大表中需要导出的字段内容，yxmc1是导出xls命名的方式，默认导出的sheet名和xls命名的一样，
现在是要在导出后更改sheet名为数据，因为yxmc1中的内容长短不一，在寻路径的时候会出现长空格，会提示xxxx     .xlsx不存在，目录下生成的xls文件命名中没有空格，想请问各位如何解决，谢谢！

用ALLTRIM()函数压缩空格。

感谢，我在OEXCEL.WORKBOOKS.OPEN(ALLTRIM(SYS(5)+SYS(2003)+"\&myxmc1"))
          oExcel.Sheets(ALLTRIM(myxmc1)).NAME = "数据"  
加了alltrim后变的很不稳定，出现OLE报错，未知的com状态代码，成功生成1,2个之后就不行了，excel假死，重启也无效，我一共生成40多个文件
系统环境win10+office2016+vfp9.0

1、用Addbs(SYS(5)+SYS(2003)) 代替 Alltrim
2、用一个字符串变量先过渡，例如： strFname = Addbs(SYS(5)+SYS(2003)) + myxmc1
然后，OEXCEL.WORKBOOKS.OPEN(strFname）

myxmc=yxmc
myxmc1=yxmc1
改这个地方，
myxmc=alltrim(yxmc)
myxmc1=alltrim(yxmc1)

好的，感谢，不过后来发现在win7+office2007下运行ok，win10看来不是很稳定，已经解决了。