Use 数据表
nCount=AFIELDS(aPrtArray)
oExl=CreateObject('Excel.Application')
oExl.workbooks.open( "样板表.xls")
nRow=4    &&起始行
SCAN 
    FOR nColumn=1 TO nCount
        cField=aPrtArray(nColumn,1)
         oExl.Cells(nRow,nColumn).Value=&cField
    ENDFOR 
    nRow=nRow+1
ENDSCAN 
oExl.Visible=.T.

首先谢谢1楼，在您的编码中，运行到 oExl.Workbooks.open('样板表.xls')一句时出错，屏幕提示：“OLE TDispatch 异常代码0 出自Microsoft office Excel:无法找到’样板表.xls‘。请检查文件名的拼写，并检查文件位置是否正确。”字样。其实文件就在那里，文件名也没错。我又在文件名前加上盘符和全路径，VFP仍找不到文件‘样板表.xls’。我用Window的索可以找到，用Excel也可以将它打开，弄不清问题在那里？请指教。另外还想请教一下：要在Excel表某单元格内填入.DBF库某字段内容应怎样编程？谢谢!

可能是文件名的拼写问题，把 oExl.workbooks.open( "样板表.xls") 改成以下两句试试。

cFILENAME=GETFILE('XLS','EXCEL文件名')
oExl.Workbooks.Open(cFILENAME)

SYWZS老师：您好，按您的办法修改后通过了，谢谢!