1、VF中正確導入EXCEL表的幾種方法 一次在處理全縣小學生畢業(yè)會考成績時，由于各學校交的表格不一致，也不方便統(tǒng)計，為了統(tǒng)計方便、快速、準確無誤，把EXCEL表格轉(zhuǎn)換為VF的表，但在轉(zhuǎn)換過程中，打開VFP，點擊菜單的“文件”“導入”，將excel表格導入成VF的表時！出現(xiàn)了如下圖的C00005異常代碼！ 經(jīng)過認真思考，反復探索、多次實踐，終于探索出正常將excel表格導入成VF的表的幾種方法，以供大家分享。 (1)用向?qū)搿?現(xiàn)在的 xls 文件一般都是Excel 2000或更高版本做的。要用向?qū)霑r，必須注意其格式，用VFP6.0和EXCEL2000，在VFP6.0里導入EXCEL2000

2、表就會出現(xiàn)出現(xiàn)C00005代碼異常提示。出現(xiàn)這種錯誤后，不要急，沒有其它軟件也不怕，你只要在Excel中打開先要導入的文件表，然后另存為 Excel 5.0格式的表格，再用向?qū)雱偛帕泶娴腅xcel 5.0格式的表格就可以正確了。 (2)除了上面這種方法外，經(jīng)過認真思考，還可以通過VF中表與文本文件之間的數(shù)據(jù)交換命令appe from 來實現(xiàn)轉(zhuǎn)換。具體步驟如下，首先打開Excel文件，在另存對話框中選文本文件(制表符分隔)格式，然后保存；再進入VFP，打開數(shù)據(jù)表（自己先建立一個數(shù)據(jù)表）；然后用APPE FROM 文本文件.TXT DELI WITH TAB將文本文件內(nèi)容導入到自己新建的數(shù)據(jù)表

3、中。 注意：自己所建的表中字段寬度要給寬一點，類型一律用字符型，否則給出現(xiàn)數(shù)據(jù)丟失。 (3)用低級文件控制函數(shù)轉(zhuǎn)換TEXT文件到VF表中。 先將Excel文件另存為文本文件(制表符分隔)；再用VF中的低級文件控制函數(shù)轉(zhuǎn)換TEXT文件到VF表中。 首先看一下文本文件(制表符分隔)的格式：在WINDOWS文本文件格式中，每行文本的末尾包括兩個不可見字符，即一個是回車符CHR（13）與另一個換行符CHR（10），在讀取過程中，需要將這兩個字符刪除；文本文件中各項采用空格“ ”或換行符CHR（9）或逗號“，”分隔。 在低級文件控制函數(shù)中需要使用FOPEN（）、FREAD（）、FCLOSE（）、FEOF

4、（）四個函數(shù)。FOPEN（）函數(shù)來正確打開文件，F(xiàn)CLOSE（）函數(shù)來關(guān)閉文件，F(xiàn)EOF（）函數(shù)來判斷文件是否結(jié)束，F(xiàn)READ（）函數(shù)來讀取文件，F(xiàn)READ（）在讀取過程中同時移動文件指針，不需要使用FSEEK（）函數(shù)再來移動文件指針。 下面程序就是輸入一個文本文件（含擴展名和路徑）然后自動轉(zhuǎn)換成VF中的表。 (此程序在VF6.0下調(diào)試通過) set talk offcleaclose allclea all*輸入被轉(zhuǎn)換的文本文件的文件名（含擴展名）accept "輸入文件的路徑和文件名（含擴展名）" to abchdq1=fopen("&abc"

5、;)*打開文本文件是否正確if hdq1<0=messagebox("打開文件錯誤!",0+48,"錯誤")returnelseai=0zd1="("zd2="("kk=""*讀取第一條記錄的項目個數(shù)和寬度，注意第一條記錄不能為空，項目也不能為空 for i=1 to 100ab="aa"+allt(str(i)&ab=""*讀入一項目的內(nèi)容do whil .t.ctemp=fread(hdq1,1)if ctemp<>chr(9

6、) and ctemp#chr(13) and ctem<>”,”&ab=&ab+ctempai=ai+1elseexitendifenddo*判斷項目內(nèi)容是否為空if len(alltrim(&ab)#0zd1=zd1+"dd"+allt(str(i)+" char("+alltrim(str(2*len(&ab)+"),"zd2=zd2+"dd"+allt(str(i)+","kk=kk+ab+","endif*判斷一行是否讀結(jié)

7、束if ctemp=chr(13)gh=fread(hdq1,1)exitendifendforzd1=subs(zd1,1,len(zd1)-1)+")"zd2=subs(zd2,1,len(zd2)-1)+")"kk=subs(kk,1,len(kk)-1)*根據(jù)變量zd1的內(nèi)容在d盤根目錄下建立dbf1表 create table d:dbf1 &zd1*在d盤根目錄下的dbf1表中插入一條記錄insert into dbf1&zd2 values(&kk)*繼續(xù)讀入其它記錄內(nèi)容do whil .t.*讀入一條記錄的內(nèi)容for i=1 to 100ab="aa"+allt(str(i)&ab=""*讀入一項的內(nèi)容do whil .t.ctemp=fread(hdq1,1)if ctemp<>chr(9) and ctemp#chr(13) and ctem<>”,” &ab=&ab+ctempelseexitendifenddo*一條記錄結(jié)束if ctemp=chr(13)=fread(hdq1,1)e