用createobj的方法创建了excel对象，然后把dbf表的内容写入到一个xls文件中，
有部分语句如下：


OLEAPP=CREATEOBJECT("Excel.Application")
OLEAPP.VISIBLE=.F. &&bu显示 Excel。
OLEAPP.WORKBOOKS.ADD
****这几行代码是写入数据的

OLEAPP.ACTIVEWORKBOOK.SAVEAS("&xlsfile")  &&xlsfile对应某个具体文件
OLEAPP.WORKBOOKS.CLOSE


 写入数据成功了的，但是，用excel2013打开这个xls文件的时候提示“。。。。的文件格式和扩展名不匹配，文件可能已经损坏或不安全，除非您信任其来源，否则请勿打开。是否仍要打开它？”，点击“是”按钮后，可以打开，文件内容也可读。但是，只要不另存为excel的格式而直接保存，下次打开该文件仍要出现这个提示。
请问这是什么原因？如何才能避免？？

有文件有真相
就用这几句随便写入几个数据保存的文件放上来给测试

好吧，我把那excel文件放上来

随便写几个数据不会成这样，不知道你写了些什么进去？
看看下面出除了“****这几行代码是写入数据的”这里不同，其他是照搬。

我的电脑也是这样，我的是2007

OLEAPP=CREATEOBJECT("Excel.Application")
OLEAPP.VISIBLE=.F. &&bu显示 Excel。
OLEAPP.WORKBOOKS.ADD
****这几行代码是写入数据的
OLEAPP.cells[1,1].value="1111"
OLEAPP.cells[1,2].value="2222"

OLEAPP.ACTIVEWORKBOOK.SAVEAS("c:\kkk.xls")  &&xlsfile对应某个具体文件
OLEAPP.WORKBOOKS.CLOSE

可能是版本兼容问题
我的是 Microsoft Office 2003 绿色精简版 + Microsoft Office 文件格式兼容包

OLEAPP=CREATEOBJECT("Excel.Application")
OLEAPP.VISIBLE=.F. &&bu显示 Excel。
OLEAPP.WORKBOOKS.ADD
****这几行代码是写入数据的
OLEAPP.cells[1,1].value="1111"
OLEAPP.cells[1,2].value="2222"
OLEAPP.ACTIVEWORKBOOK.SAVEAS("c:\kkk.xls")  &&xlsfile对应某个具体文件
OLEAPP.ACTIVEWORKBOOK.SAVEAS("c:\kkk.xlsx")  &&文件保存为XLSX就不会不错误
OLEAPP.WORKBOOKS.CLOSE

vfp如何判断用户装的EXCEL是2003还是2007及以上呢？

VFP 版：
Clear
Try
    Obj = Createobject("Word.Application")
    ? "MS Office Ver. : ", Obj.Version
    Obj.Quit(.F.)
Catch To oException
    ? "Not Installed", oException.ErrorNo
Endtry


DOS 版：
@echo off
setlocal enabledelayedexpansion
for /l %%a in (8,1,14) do (
    reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%%a.0\Common\LanguageResources /v SKULanguage>nul 2>nul
    if !errorlevel!==0 (
        if %%a==8 (
            set OffiVer=Office 97
        ) else if %%a==9 (
            set OffiVer=Office 2000
        ) else if %%a==10 (
            set OffiVer=Office XP
        ) else if %%a==11 (
            set OffiVer=Office 2003
        ) else if %%a==12 (
            set OffiVer=Office 2007
        ) else if %%a==14 (
            set OffiVer=Office 2010
        ) else if %%a==15 (
            set OffiVer=Office 2013
        ) else if %%a==15.11 (
            set OffiVer=Office 2016
        ) else (
            set OffiVer=Not installed
        )
    )
)
echo MS Office Version : %OffiVer%
pause

判别你的机子上是否已安装了 MS Office (MS Outlook、MS Word、MS Excel)

Clear
ckey = "Software\Microsoft\Windows\CurrentVersion\App Paths\outlook.exe"
OutlookExists = readregstring(-2147483646, ckey, "path")

ckey = "Software\Microsoft\Windows\CurrentVersion\App Paths\winword.exe"
WinWordExists = readregstring(-2147483646, ckey, "path")

ckey = "Software\Microsoft\Windows\CurrentVersion\App Paths\excel.exe"
ExcelExists = readregstring(-2147483646, ckey, "path")

? Iif(!Empty(Nvl(OutlookExists,"")), "已安装 MS Outlook", "未安装 MS Outlook")
? Iif(!Empty(Nvl(WinWordExists,"")), "已安装 MS Word", "未安装 MS Word")
? Iif(!Empty(Nvl(ExcelExists,"")), "已安装 MS Excel", "未安装 MS Excel")


Function ReadRegString
    ***----------------------------------------------------------------------
    *** Function: Reads a string value from the registry.
    *** Pass: tnHKEY - HKEY value (in CGIServ.h)
    *** tcSubkey - The Registry subkey value
    *** tcEntry - The actual Key to retrieve
    *** Return: Registry String or .NULL. on error
    ***----------------------------------------------------------------------
    Lparameters tnHKey, tcSubkey, tcEntry
    Local lnRegHandle, lnResult, lnSize, lcDataBuffer, tnType

    tnHKey=Iif(Type("tnHKey")="N",tnHKey,This.HKEY_LOCAL_MACHINE)

    lnRegHandle=0

    Do DeclareInit && Declare WinAPI function. You only have to do this once.

    *** Open the registry key
    lnResult=RegOpenKey(tnHKey,tcSubKey,@lnRegHandle)
    If lnResult # 0
        Return .Null.
    Endif

    *** Need to define here specifically for Return Type
    *** for lpdData parameter or VFP will choke.
    *** Here it's STRING.
    Declare Integer RegQueryValueEx ;
        IN Win32API As RegQueryString;
        INTEGER nHKey,;
        STRING lpszValueName,;
        INTEGER dwReserved,;
        INTEGER @lpdwType,;
        STRING @lpbData,;
        INTEGER @lpcbData

    *** Return buffer to receive value
    lcDataBuffer=Space(256)
    lnSize=Len(lcDataBuffer)
    lnType=0

    lnResult=RegQueryString(lnRegHandle,tcEntry,0,@lnType,;
        @lcDataBuffer,@lnSize)

    =RegCloseKey(lnRegHandle)

    If lnResult # 0
        Return .Null.
    Endif

    If lnSize<2
        Return ""
    Endif

    *** Return string based on length returned
    Return Substr(lcDataBuffer,1,lnSize-1)
Endfunc


*!*    And the DeclareInit function that is called:
Function DeclareInit
    *** Open a registry key
    Declare Integer RegOpenKey ;
        IN Win32API ;
        INTEGER nHKey,;
        STRING cSubKey,;
        INTEGER @nHandle

    *** Close an open registry key
    Declare Integer RegCloseKey ;
        IN Win32API ;
        INTEGER nHKey
Endfunc