请参考:
PRIVATE i,m_file
SET PATH TO SYS(5)+SYS(2003),excel\
myeole=CREATEOBJECT("Excel.application")
WITH myeole
.visible=.t.
.Workbooks.add
FOR i=1 TO 60
IF i>2
.sheets(i).Select
.Worksheets.Add
ENDIF
m_file=STR(200700+i,6)+".xls"
.workbooks.open(SYS(5)+SYS(2003)+"\excel\"+m_file)
.ActiveSheet.UsedRange.Cells.Copy
.Windows("Book1").Activate
.Sheets(i).Select
.ActiveSheet.Name = m_file
.ActiveSheet.Paste
.windows(m_file).Close
NEXT
.ActiveWindow.DisplayZeros = .F.
.ActiveWorkbook.close(.t.)
.quit
ENDWITH
RELEASE myeole