一张EXCEL2007表用什么方法才能导入到DBF6.0表，期待各位高手予以解答，解决实际工作中的困难。


[ 本帖最后由 tjdeming 于 2013-8-19 05:15 编辑 ]

没用过2007，IMPORT命令不能用么？

可以另存为“5.0/95工作簿”格式，就能导入了。但是，若Excel本身就有字段名的话，最好用字母，而不要用中文。

可以解决的，但过程很复杂痛苦————因为IP行业有一句名言：没有做不到，只有想不到。

被excel2007保存过的文件，即使再另存为低版本，也不能用import和append命令处理

可以通过OLE或者ODBC方式读取后写表。

实在不行的话就用VFP控制EXCEL，逐行读入每个单元的内容保存到DBF中。

请教:具体操作方法.谢谢.

M_File='test.xlsx'
IF FILE(M_File)
    myexcel=createobject('excel.application')
    myexcel.visible=.f.
    bookexcel=myexcel.workbooks.open(M_File)
    o_SheetName=myexcel.application.ActiveSheet.Name
    UsedRange =bookexcel.worksheets(o_SheetName).UsedRange
    o_rows=UsedRange.rows.count
    o_cols=UsedRange.columns.count
        cFields="("+ALLTRIM(myexcel.cells(1,1).value)+" C(100)"        &&假设各列均为字符型，具体根据实际而定；也可先定义DBF结构。记得也有自动判断的，不过代码一时找不到了
        FOR i=2 TO o_cols
            cFields=cFields+","+ALLTRIM(myexcel.cells(1,i).value)+" C(100)"
        ENDFOR
            cFields=cFields+")"
        SELECT 0
            CREATE TABLE test &cFields
       FOR i=2 TO o_rows
           APPEND BLANK
               FOR j=1 TO o_cols
                   cField=FIELD(j)
                REPLACE &cField WITH myexcel.cells(i,j).value
            ENDFOR
        ENDFOR
    myexcel.workbooks.close
    myexcel.quit
    BROWSE
ELSE
   =MESSAGEBOX("指定文件不存在！",0+16,"提示")
ENDIF

改用EXCEL2003吧

知难而退?向高手学习! 继续!