CLOSE DATABASES
USE aaa
nRows = RECCOUNT() + 1
_vfp.DataToClip("aaa", RECCOUNT(), 3)
oExcel = CREATEOBJECT("Excel.Application")
oExcel.WorkBooks.Add
oExcel.Workbooks(1).Sheets(1).Paste
oExcel.Workbooks(1).Sheets(1).Name = "基本信息"
oExcel.Workbooks(1).Sheets(2).Name = "教育信息"
oExcel.Workbooks(1).Sheets(3).Name = "薪酬信息"
oExcel.Workbooks(1).Sheets(1).Cells(1, 8).Resize(nRows, 3).Select()
oExcel.Selection.Copy
oExcel.Workbooks(1).Sheets(2).Paste
oExcel.Workbooks(1).Sheets(1).Cells(1, 11).Resize(nRows, 2).Select()
oExcel.Selection.Copy
oExcel.Workbooks(1).Sheets(3).Paste
oExcel.Workbooks(1).Sheets(1).Cells(1, 8).Resize(nRows, 5).Delete
oExcel.Workbooks(1).Sheets(1).Cells(1, 1).Resize(nRows, 7).Select()
oExcel.Workbooks(1).Sheets(1).Columns.AutoFit
oExcel.DisplayAlerts = .F.
oExcel.ActiveWorkbook.Saveas(SYS(5)+SYS(2003)+"\bbb.xls",39)
oExcel.DisplayAlerts = .T.
oExcel.Quit
RELEASE oExcel