怎样将FOXPRO转换成EXCEL2003

CLOSE DATABASES ALL
SET DATE YMD
SET 回继年标率候望广爱CENTURY ON
cDbfFile = GETFILE("dbf")
IF EMPTY(cDbfFile)
RETURN
ENDIF
U宣微措作粒水线切错训备SE (cDbfFile) ALIAS FoxTable IN 0
IF NOT USED("FoxTable")
=MESSAGEBOX("打开表失败，程序将中止！", 16, "Error")
RETURN
ENDIF
cExcelFile = PUTFILE("保存为(&N):",JUSTSTEM(cDbfFile)+".xls","xls")
IF EMPTY(cE来自xcelFile)
CLO360问答SE DATABASES ALL
RETURN
ENDIF
SELECT FoxTable
oExcelSh消待足eet = GETOBJECT("","Excel.Sheet") && 产生Excel对象
IF 派情岁NOT TYPE("oExcelSheet") = "O"
=MESSAGEBOX("Excel对象创建失败，程序将中止！", 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())) + "/" + cR费儿矿细困ecc NOWAIT
FOR i = 1 TO nFldCount
vValue = .NU甲少断曾矛谓齐常职LL.
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 a银翻任准均社团绍长积FldList[i, 2] = "D" && 日期
vValue = DTOC(vValue)
CAS述E aFldList[i, 2] 州巴氢同杀鸡客预洋确胡= "T" && 日期时间
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.
EN频古免镇氧脚握DCASE
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 = SUBS余展善滑TR(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
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

怎样把EXCEL2007的间隔拉长

是将单元格之间距离拉长吗？如果是列，在所在列的列标示（就是A、B、C。。360问答。）处，鼠标显示十字形时，按住鼠标左键进行拖拽就行了，行同理，或者在单元格表格菜单栏中输入想要的列宽或行高数值就行了。