比如：将基本信息导出到sheet1中，将教育信息导出到sheet2中，将薪酬信息导出到sheet3中。

    只能大概给出一个示例:
    myexcel = CREATEOBJECT("Excel.Application")
    myexcel.DisplayAlerts = .F.  &&  不弹出警告框   
    wb = myexcel.Workbooks.open("d:\cExl\X1.xlsx")
    myexcel.Visible = .T.  
    wb.sheets("sheet1").Activate
    ... 写入 基本信息
    wb.sheets("sheet2").Activate
    ... 写入 教育信息
    wb.sheets("sheet3").Activate
    ... 写入 薪酬信息
    wb.save()
    wb.close()
    myexcel.quit()

学习啦，谢谢！

[此贴子已经被作者于2020-10-17 05:33编辑过]

谢谢！我的意思是按每门课程建个工作表，不知怎么处理？

上传相应数据

将数据库aaa数据导出，生成aaa.xls.

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

十分感谢!

这个内容，以前有一个实例的帖子的，楼主你查找一下，应该能查到，大约是3年前的吧