*網(wǎng)上看到的．．．應該沒(méi)什么問(wèn)題．．
CLOSE DATABASES ALL
SET DATE YMD
SET CENTURY ON
cDbfFile = GETFILE("dbf")
IF EMPTY(cDbfFile)
RETURN
ENDIF
USE (cDbfFile) ALIAS FoxTable IN 0
IF NOT USED("FoxTable")
=MESSAGEBOX("打開(kāi)表失敗，程序將中止！", 16, "Error")
RETURN
ENDIF
cexcelFile = PUTFILE("保存為(&N):",JUSTSTEM(cDbfFile)+".xls","xls")
IF EMPTY(cexcelFile)
CLOSE DATABASES ALL
RETURN
ENDIF
SELECT FoxTable
oexcelSheet = GETOBJECT("","Excel.Sheet") && 產(chǎn)生Excel對象
IF NOT TYPE("o=MESSAGEBOX("excel對象創(chuàng )建失敗，程序將中止！", 16, "Error")
RETURN
ENDIF
oexcelApp = oExcelSheet.Application
oexcelApp.Workbooks.Add()
oexcelApp.ActiveWindow.WindowState=2
oSheet = oexcelApp.ActiveSheet
nFldCount = AFIELDS(aFldList, "FoxTable")
FOR i = 1 TO nFldCount
oSheet.Cells(1,i).Value = aFldList[i, 1]
ENDFOR
cRecc = STR(RECCOUNT("FoxTable"))
SCAN
WAIT WINDOW ALLTRIM(STR(RECNO())) + "/" + cRecc NOWAIT
FOR i = 1 TO nFldCount
vValue = .NULL.
IF AT(aFldList[i, 2], "CDLMNFIBYT") = 0
LOOP
ENDIF
cFldName = aFldList[i, 1]
vValue = EVALUATE(cFldName)
DO CASE
CASE aFldList[i, 2] = "C" && 字符/字符串
vValue = TRIM(vValue)
CASE aFldList[i, 2] = "D" && 日期
vValue = DTOC(vValue)
CASE aFldList[i, 2] = "T" && 日期時(shí)間
vValue = TTOC(vValue)
CASE INLIST(aFldList[i, 2], "N", "F", "I", "B", "Y") && 數值
CASE aFldList[i, 2] = "L" && 邏輯
CASE aFldList[i, 2] = "M" && 備注型
OTHERWISE
vValue = .NULL.
ENDCASE
IF VARTYPE(vValue) = "C" AND EMPTY(vValue)
LOOP
ENDIF
IF NOT ISNULL(vValue)
oSheet.Cells(RECNO("FoxTable")+1, i).Value = vValue
ENDIF
ENDFOR
ENDSCAN
cChrStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
FOR i = 1 TO nFldCount
cColumn = SUBSTR(cChrStr, INT((i-1)/26), 1) + SUBSTR(cChrStr, IIF(MOD(i, 26)= 0, 26, MOD(i, 26)) , 1)
oSheet.Columns(cColumn + ":" + cColumn).ColumnWidth = 12
IF aFldList[i, 2] = "M"
oSheet.Columns(cColumn + ":" + cColumn).WrapText = .F.
ENDIF
ENDFOR
ALLTRIM(IIF(bucost=0,'',STR(bucost))) as bcost
oexcelApp.ActiveWorkbook.SaveAs(cExcelFile)
oexcelApp.ActiveWorkbook.Close(.F.)
oexcelApp.ActiveWorkbook.Close(.F.)
oexcelApp.Quit
oexcelSheet = .NULL.
oexcelApp = .NULL.
WAIT CLEAR
=MESSAGEBOX("轉換完畢！", 64, "OK")
CLOSE DATABASES ALL
