prg中更改excel的sheet名出现的问题
之前在论坛上学到了好多,感谢各位大神!问题是这样的
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文件命名中没有空格,想请问各位如何解决,谢谢!