原来公司用的是vfp9.0    office2003  
现在由于系统更新 换成office2013了
那么问题来了，office2013不能另存为dbf格式的文件，无法导入到vfp中
用系统自带的导入后有一个问题，标题行不能导入，导入后的标题行是电子表格的行标，
想要实现表格的第一行作为标题
请问各位大神有什么思路，或者方法吗

[此贴子已经被作者于2018-12-12 10:52编辑过]

这是一个老问题了。从1997年开始，美国微软公司宣布，EXCEL不再支持VFP了。
你有两种选择
第一种，你另外安装个WPS。
第二种，你退回到EXCEL2003。

我的认识是这样的：如果你是依靠VFP吃饭的，建议你退回到EXCEL2003，因为
VFP与EXCEL的紧密联系，体现在EXCEL2003版本。
如果你只是业余爱好，你就另外安装个WPS吧。

我本人如今　WIN7＋VFP9＋EXCEL2003

用OLE对象读取是可以的。得修改代码

V9+EXCEL2007我使用已是没问题

只要掌握了ＥＸＣＥＬ　ＶＢＡ，其它的都不是问题。

读取第一条记录改成字段名很难吗?都走到门口了，不会再进一步?

我以前用的，你可以参考下。
首先你第一条记录得符段命名规则、长度限制

*/óÃóúμ¼èëXLSÎļtoó′|àíμúò»DDêy¾YÎaField
Procedure cFldName&&½«±í×Ö¶ÎÃûDT¸ÄÎaμúò»ìõ¼Ç¼¶Ôó|μÄÄúèY,2￠é¾3yμúò»ìõ
    Lparameters cDBF
    If !Used(cDBF)
        Use (cDBF) In 0 Exclusive
    Endif
    Select &cDBF
    Local oldFldName,newFldName,lError
    For num=1 To Fcount()
        oldFldName=Field(num)
        newFldName=Alltrim(&oldFldName)
        Try
            Alter Table &cDBF Rename (oldFldName) To (newFldName)
        CATCH TO oexception
            lError=.T.
            =MESSAGEBOX(oexception.message,64,'Hints',5000)
        Endtry
    Endfor
    Go 1
    Delete
    Pack
    If lError
        Return -1
    Else
        Return 0
    Endif
Endproc

两种方法：第一，在你的电脑上同时安装office2003和2013,具体方法是先安装excel2003，再安装2013，在安装2013时，选择保留较早版本。
第二，学学如何用VFP控制EXCEL，也就是说写程序从EXCEL文件里读数据写到DBF文件里。

*!* 1．创建Excel对象
oExcel=Createobject("Excel.application")
*!* 2．添加新工作簿
oExcel.Workbooks.Add
oExcel.WorkSheets.Count  获取工作表数量
*!* 3．设置第3个工作表为激活工作表
oExcel.Worksheets("sheet3").Activate
*!* 4．打开指定工作簿
oExcel.Workbooks.Open("c:/temp/ll.xls")
*!* 5．显示Excel窗口
oExcel.Visible=.T.
eole.visible=.T.                                         && 显示Excel窗口
eole.visible=.F.                                         && 不显示Excel窗口
eole.Application.WindowState = xlNormal                  && Excel 窗口还原
eole.Application.WindowState = xlMaximized               && Excel 窗口最大化
eole.Application.WindowState = xlMinimized               && Excel 窗口最小化
其中：xlNormal=-4143；xlMaximized=-4137；xlMinimized=-4140
*!* 6．更改Excel标题栏
oExcel.Caption="VFP应用程序调用Microsoft Excel"
*!* 7．给单元格赋值
oExcel.cells(1,4).Value=XM(XM为数据库字段名)
*!* 8．设置指定列的宽度(单位：字符个数)
oExcel.ActiveSheet.Columns(1).ColumnWidth=5
*!* 9．设置指定行的高度(单位：磅)
oExcel.ActiveSheet.Rows(1).RowHeight=1
(设定行高为1磅，1磅=0.035厘米)
oExcel.ActiveSheet.Rows("50:100").RowHeight=1 &&设置第50行至100行的高度

大开眼界,学习了,谢谢