请问怎样用代码合并一个文件夹所有以后缀为xls文件，成为一个新的excel文件呢？

可怜！！！

你可以下载一个数据助手呀！功能很强的可以将多个工作簿合并成一个工作表，也可以将多个工作表合并成一个工作作，反之也一样。很方便的！

用VFP做这种东西，属于不对路

myml=GETDIR()
eole=CREATEOBJECT("Excel.application")
WITH eole
.Workbooks.add
.Workbooks[1].SaveAs("e:\ALLFIEL.XLS",39)
FOR i=1 TO ADIR(alj,myml-"\*.xls")
    aljstr="alj("-TRANSFORM(i)-',1)'
    myfile=myml-&aljstr
    .Workbooks.Open(myfile)
    .DisplayAlerts = .F.
    .ActiveSheet.UsedRange.Cells.Copy
    .Windows("ALLFIEL.XLS").Activate
    h1=TRANSFORM(.activesheet.usedrange.rows.count+IIF(i=1,0,1))
    .Cells(h1,1).Select
    .ActiveSheet.Paste
    .Windows(JUSTSTEM(myfile)).Close(.f.)
NEXT
.ActiveWorkbook.close(.t.)
.quit
ENDWITH

5楼的好像可以。