#define xlCellTypeLastCell 11 oExcel = CREATEOBJECT("Excel.Application") oExcel.Visible = .t. oExcel.DisplayAlerts = .f. *DIMENSION MyExcelFiles[5] DIMENSION MyExcelFiles(THISFORM.TEXT6.VALUE) THISFORM.TEXT1.Visible=.T. IF THISFORM.TEXT1.Value>SPACE(10) MyExcelFiles[1] = (THISFORM.TEXT1.VALUE) ENDIF IF THISFORM.TEXT2.Value>SPACE(10) MyExcelFiles[2] = (THISFORM.TEXT2.VALUE) ENDIF IF THISFORM.TEXT3.Value>SPACE(10) MyExcelFiles[3] = (THISFORM.TEXT3.VALUE) endif IF THISFORM.TEXT4.Value>SPACE(10) MyExcelFiles[4] = (THISFORM.TEXT4.VALUE) ENDIF IF THISFORM.TEXT5.Value>SPACE(10) MyExcelFiles[5] = (THISFORM.TEXT5.VALUE) endif IF THISFORM.TEXT7.Value>SPACE(10) MyExcelFiles[7] = (THISFORM.TEXT7.VALUE) endif IF THISFORM.TEXT8.Value>SPACE(10) MyExcelFiles[8] = (THISFORM.TEXT8.VALUE) ENDIF IF THISFORM.TEXT9.Value>SPACE(10) MyExcelFiles[9] = (THISFORM.TEXT9.VALUE) ENDIF IF THISFORM.TEXT10.Value>SPACE(10) MyExcelFiles[10] = (THISFORM.TEXT10.VALUE) endif IF THISFORM.TEXT11.Value>SPACE(10) MyExcelFiles[11] = (THISFORM.TEXT11.VALUE) ENDIF IF THISFORM.TEXT12.Value>SPACE(10) MyExcelFiles[12] = (THISFORM.TEXT12.VALUE) ENDIF IF THISFORM.TEXT13.Value>SPACE(10) MyExcelFiles[13] = (THISFORM.TEXT13.VALUE) ENDIF IF THISFORM.TEXT14.Value>SPACE(10) MyExcelFiles[14] = (THISFORM.TEXT14.VALUE) ENDIF IF THISFORM.TEXT15.Value>SPACE(10) MyExcelFiles[15] = (THISFORM.TEXT15.VALUE) ENDIF oExcel.WorkBooks.Open(MyExcelFiles[1]) oActive = oExcel.ActiveWorkbook.Name *FOR nXLS = 2 TO 5 FOR nXLS = 2 TO (THISFORM.TEXT6.VALUE) oExcel.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select lastrow = oExcel.Selection.Row oExcel.ActiveSheet.Cells(lastrow + 1, 1).Select oExcel.WorkBooks.Open(MyExcelFiles[nXLS]) cNewBook = oExcel.ActiveWorkbook.Name oExcel.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Select lastrow = oExcel.Selection.Row oExcel.ActiveWorkbook.ActiveSheet.Rows("3:"+TRANSFORM(lastrow)).Select oExcel.Selection.Copy() oExcel.Windows(oActive).Activate oExcel.ActiveWorkbook.ActiveSheet.Paste() oExcel.Windows(cNewBook).Activate oExcel.ActiveWorkbook.Close() oExcel.Windows(oActive).Activate NEXT oExcel.ActiveWorkbook.SaveAs("e:\SOSOSO.XLS") oExcel.Quit() oExcel = NULL RELEASE oExcelthanks.