如何把excel數據導入vfp

1. excel琛ㄥ備綍瀵煎叆鍒癡FP錛

Excel 鏄鎴戜滑緇忓父浣跨敤鐨勶紝鏈夋椂闇瑕佸皢Excel鐢靛瓙琛ㄦ牸鏂囦歡杞鎹涓篋BF鏍煎紡錛屼篃灝辨槸杞鎴怓oxpro 鏁版嵁搴撴枃浠躲俈FP鏄寰堝ソ鐢ㄧ殑鏁版嵁搴撹蔣浠訛紝鐜板湪渚濈劧寰堝氫漢鍦ㄧ敤錛屼絾鏄鎿嶄綔涓嶦xcel鐩告瘮錛屼笓涓氭уお寮猴紝浜轟滑榪樻槸鍠滄㈡搷浣淓xcel鐢靛瓙琛ㄦ牸銆備笅闈浠嬬粛涓涓嬪備綍瀹炵幇excel涓嶸isual FoxPro涔嬮棿鐨勬暟鎹杞鎹銆

涓銆乪xcel杞鎹㈡垚DBF

1銆佹墦寮浣犺佽漿鏍煎紡鐨凟xcel鐢靛瓙琛ㄦ牸鏂囦歡錛岀偣鍑繪枃浠惰彍鍗曘

2銆佺偣鍑誨彟瀛樹負銆

3銆佷繚瀛樼被鍨嬮夋嫨DBF 錛堣繖閲屾湁DBF 2銆3銆4 閫 DBF4灝辮岋級

4銆佹彁紺轟笉鏀鎸佸氫喚宸ヤ綔琛ㄧ殑宸ヤ綔綈褲傝繖閲屽彧鑳藉煎嚭褰撳墠宸ヤ綔琛ㄥ埌 DBF銆傜偣紜瀹氥

5銆佹彁紺烘湁涓嶅吋瀹瑰姛鑳姐傜偣鍑鏄 錛堝幓鎺夋墍鏈変笉鍏煎圭殑鍔熻兘錛

6銆佸叧鎺塃xcel鎴栨渶灝忓寲銆傛垜瀵煎嚭鍒版岄潰涓婏紝鍦ㄦ岄潰涓婁細鏈鎴愮嘩琛.dbf鏂囦歡錛屽煎嚭鎴愬姛銆

浜屻丏BF杞鎹㈡垚XLS

1銆乂isual FoxPro 琛ㄦ枃浠禿bf 杞 鐢靛瓙琛ㄦ牸鏂囦歡xls銆傜敤FoxPro鎵撳紑涓寮犺〃錛屽崟鍑鏂囦歡鑿滃崟

2銆佸崟鍑 瀵煎嚭

3銆佸湪綾誨瀷閲岄夋嫨Microsoft Excel 5.0(xls)錛屽湪鍒頒腑閫夋嫨瀵煎嚭鍒板摢閲屻

4銆佹垜閫夋嫨淇濆瓨鍦ㄦ岄潰錛屾枃浠跺悕鍛藉悕涓鎴愮嘩琛123錛岃瘋嚜琛屽懡鍚嶃傚崟鍑 淇濆瓨銆

5銆佸彲浠ユ寜鏉′歡瀵煎嚭閮ㄥ垎鏁版嵁錛屼笉閫夋嫨灝卞煎嚭鍏ㄩ儴銆傚叏閮ㄥ彧鑳芥槸16383鏉′互鍐咃紝濡傛灉鏁版嵁瓚呰繃16383鏉★紝灝辨寜鏉′歡澶氭″煎嚭鍦ㄥ悎騫跺惂錛屽崟鍑紜瀹

6銆佸叧闂 FoxPro 銆傜湅妗岄潰涓婃枃浠剁被鍨嬭漿鎹㈡垚鍔熶簡銆

2. 怎麼將Excel電子表格導入VF

製作excel表格時，做好數據標題欄，這是導入到VFP中的欄位名

菜單，文件，另存為DBF3（dBASEIII）（*.dbf）格式（見下圖）,欄位類型和欄位長度在VFP庫結修中修改。

3. 濡備綍鍦╒FP6涓瀵煎叆EXCEL鏁版嵁

宸ュ叿: 瀹夎 WINDOWS XP浠ヤ笂鐨勭數鑴
杞浠 VFP6.0
鏂囦歡 excel 鏂囦歡 涓涓 123.xls
姝ラ
1 鎵撳紑瑕佸煎叆鐨刣bf 琛
use 琛ㄤ竴

2 灝 excel 鏂囦歡瀵煎叆 鏁版嵁琛
sele 琛ㄤ竴
append from 123.xls type XL8/xl5 SHEET cSheetName
3 瀹屾垚 媯鏌ユ暟鎹鏄鍚︽ｇ『
4娉ㄦ剰浜嬮」
a.:xl8 鏄 Microsoft Excel 97 vfp9.0 鎵嶈兘鐢. vfp6 璇風敤 XL5
b: 涓嬈″彧鑳藉煎叆涓涓猄HEET,鏈夊氫釜sheet 鏃 闇瑕佸驚鐜瀵煎叆
c: 鐢變簬鏃ユ湡鏍煎紡璁劇疆鍙鑳戒笉涓鑷, 鏃ユ湡鍨嬪瓧孌靛彲鑳戒細鍑虹幇絀哄 鏈濂藉叏閮ㄤ嬌鐢ㄥ瓧絎﹀瀷

4. 鐢‥XCEL褰曞叆鏁版嵁鍚庡備綍瀵煎叆visualfoxpro瀵煎叆excel鏁版嵁鍛戒護

浣犲彲浠ユ寜鐓т互涓嬫ラゅ皢Excel鏁版嵁瀵煎叆Visual FoxPro涓錛
1. 鎵撳紑Visual FoxPro銆
2. 鏂板緩涓涓鏁版嵁搴撴垨鑰呮墦寮涓涓宸叉湁鐨勬暟鎹搴撱
3. 鍦ㄨ彍鍗曟爮涓閫夋嫨 "File" -> "Get External Data" -> "Import"銆
4. 鍦 "Import" 紿楀彛涓錛岄夋嫨 "Excel" 浣滀負鏁版嵁婧愮被鍨嬨
5. 閫夋嫨瑕佸煎叆鐨凟xcel鏂囦歡錛屽苟璁劇疆瀵煎叆閫夐」鍜岀洰鏍囪〃銆
6. 鍦 "Import" 紿楀彛涓錛岀偣鍑 "Import" 鎸夐挳錛屽紑濮嬪煎叆Excel鏁版嵁銆
7. 瀵煎叆瀹屾垚鍚庯紝浣犲彲浠ュ湪Visual FoxPro涓鏌ョ湅鍜屽勭悊瀵煎叆鐨勬暟鎹銆
闇瑕佹敞鎰忕殑鏄錛屽煎叆Excel鏁版嵁鏃墮渶瑕佺『淇滶xcel鏂囦歡涓鐨勬暟鎹涓嶸isual FoxPro涓鐨勭洰鏍囪〃緇撴瀯鐩稿悓銆傚傛灉Excel鏂囦歡涓鐨勬暟鎹涓庣洰鏍囪〃緇撴瀯涓嶅尮閰嶏紝鍙鑳戒細瀵艱嚧鏁版嵁瀵煎叆澶辮觸鎴栬呮暟鎹鏍煎紡閿欒銆傚洜姝わ紝鍦ㄥ煎叆鏁版嵁涔嬪墠錛屽緩璁鍏堟鏌Excel鏂囦歡鍜岀洰鏍囪〃鐨勭粨鏋勬槸鍚︿竴鑷淬
Visual FoxPro鏄涓縐嶅叧緋誨瀷鏁版嵁搴撶＄悊緋葷粺鍜岀紪紼嬭璦錛岀敱寰杞鍏鍙稿紑鍙戙傚畠浜1984騫撮栨″彂甯冿紝涓鐩翠嬌鐢ㄥ埌2007騫村仠姝㈢淮鎶ゃ俈isual FoxPro鏄涓縐嶅熀浜庨潰鍚戝硅薄鐨勭紪紼嬭璦錛屽苟涓斿叿鏈夊己澶х殑鍏崇郴鍨嬫暟鎹搴撶＄悊鍔熻兘銆傚畠鍙浠ョ敤浜庡紑鍙戝悇縐嶇被鍨嬬殑搴旂敤紼嬪簭錛屽寘鎷妗岄潰搴旂敤紼嬪簭銆乄eb搴旂敤紼嬪簭銆佸㈡埛絝/鏈嶅姟鍣ㄥ簲鐢ㄧ▼搴忕瓑銆
Visual FoxPro鐨勪富瑕佺壒鐐瑰寘鎷錛
1. 瀵瑰叧緋誨瀷鏁版嵁搴撶殑鏀鎸侊細Visual FoxPro鏀鎸佸氱嶆暟鎹搴撴牸寮忥紝鍖呮嫭DBF銆丼QL Server銆丱racle絳夈
2. 瀵歸潰鍚戝硅薄緙栫▼鐨勬敮鎸侊細Visual FoxPro鏄涓縐嶅熀浜庨潰鍚戝硅薄鐨勭紪紼嬭璦錛屾敮鎸佸氭併佺戶鎵褲佸皝瑁呯瓑闈㈠悜瀵硅薄緙栫▼鐗規с
3. 涓板瘜鐨勬暟鎹澶勭悊鍔熻兘錛歏isual FoxPro鎻愪緵浜嗕赴瀵岀殑鏁版嵁澶勭悊鍔熻兘錛屽寘鎷鏁版嵁鏌ヨ銆佹姤琛ㄧ敓鎴愩佹暟鎹緇熻＄瓑銆
4. 鍙瑙嗗寲鐨勫紑鍙戠幆澧冿細Visual FoxPro鎻愪緵浜嗗彲瑙嗗寲鐨勫紑鍙戠幆澧冿紝鍖呮嫭闆嗘垚寮鍙戠幆澧冦佽〃鍗曡捐″櫒銆佹姤琛ㄨ捐″櫒絳夈
鎬諱箣錛孷isual FoxPro鏄涓縐嶅姛鑳藉己澶х殑鏁版嵁搴撶＄悊緋葷粺鍜岀紪紼嬭璦錛屽彲浠ョ敤浜庡紑鍙戝悇縐嶇被鍨嬬殑搴旂敤紼嬪簭銆
瑕佸皢 Excel 涓鐨勬暟鎹瀵煎叆鍒 Visual FoxPro 涓錛屼綘鍙浠ユ寜鐓т互涓嬫ラよ繘琛屾搷浣滐細
1. 鍦 Excel 涓閫夋嫨騫跺嶅埗瑕佸煎叆鐨勬暟鎹銆備綘鍙浠ヤ嬌鐢ㄥ揩鎹烽敭 Ctrl+C錛圵indows錛夋垨 Command+C錛圡ac錛夋潵澶嶅埗閫夊畾鐨勫唴瀹廣
2. 鎵撳紑 Visual FoxPro錛屽苟鍒涘緩涓涓鏂扮殑琛ㄦ牸鎴栨墦寮浣犳兂瑕佸煎叆鏁版嵁鐨勭幇鏈夎〃鏍箋
3. 鍦 Visual FoxPro 鐨勮〃鏍間腑錛岄変腑闇瑕佹彃鍏ユ暟鎹鐨勪綅緗錛堜緥濡傦紝閫変腑涓涓鍗曞厓鏍兼垨涓鍒楋級銆
4. 鍦ㄥ伐鍏鋒爮涓鎵懼埌鈥滅紪杈戔濊彍鍗曪紝鐐瑰嚮瀹冧互灞曞紑閫夐」銆
5. 浠庝笅鎷夎彍鍗曚腑閫夋嫨鈥滅矘璐粹濄傝繖灝嗘妸浣犲湪 Excel 涓澶嶅埗鐨勬暟鎹綺樿創鍒 Visual FoxPro 涓銆
6. 鍦ㄥ脊鍑虹殑瀵硅瘽妗嗕腑錛岄夋嫨鈥滅矘璐撮夐」鈥濄傛牴鎹浣犵殑鏁版嵁綾誨瀷鍜岄渶奼傦紝閫夋嫨鍚堥傜殑閫夐」錛堜緥濡傦紝鏂囨湰銆佹暟瀛椼佹棩鏈熺瓑錛夈
7. 鐐瑰嚮鈥滅『瀹氣濇寜閽錛屽畬鎴愭暟鎹瀵煎叆銆俈isual FoxPro 灝嗕細灝嗕綘浠 Excel 涓澶嶅埗鐨勬暟鎹綺樿創鍒伴夊畾鐨勪綅緗銆
閫氳繃涓婅堪姝ラわ紝浣犲彲浠ュ皢 Excel 涓鐨勬暟鎹鎴愬姛瀵煎叆鍒 Visual FoxPro 涓鐨勮〃鏍間腑銆傝鋒敞鎰忥紝鍦ㄨ繘琛屾暟鎹瀵煎叆鏃訛紝紜淇 Excel 涓鐨勬暟鎹鏍煎紡涓 Visual FoxPro 琛ㄦ牸涓鐨勫垪鐩稿尮閰嶏紝榪欐牱鍙浠ョ『淇濇暟鎹鐨勫噯紜鎬у拰瀹屾暣鎬с
鎮ㄥ彲浠ヤ嬌鐢ㄤ互涓嬫柟娉曞皢Excel鏁版嵁瀵煎叆Visual FoxPro:
1. 灝咵xcel鏂囦歡鍙﹀瓨涓衡滄枃鏈鏂囦歡(鍒惰〃絎﹀垎闅)鈥濇牸寮忋
2. 鎵撳紑Visual FoxPro,鎵撳紑鏁版嵁琛(鑷宸卞厛寤虹珛涓涓鏁版嵁琛)銆
3. 鐢ˋPPE FROM 鏂囨湰鏂囦歡.TXT WITH TAB灝嗘枃鏈鏂囦歡鍐呭瑰煎叆鍒拌嚜宸辨柊寤虹殑鏁版嵁琛ㄤ腑銆傛敞鎰忥細鑷宸辨墍寤虹殑琛ㄤ腑瀛楁靛藉害瑕佺粰瀹戒竴鐐癸紝綾誨瀷涓寰嬬敤瀛楃﹀瀷錛屽惁鍒欑粰鍑虹幇鏁版嵁涓㈠け.

5. 如何將exle文件導入vf，哪位大俠給幫幫忙

Excel 轉 VFP 數據表示例
Excel 轉 VFP 數據表示例*本實例演示了如何將Excel工作表中的數據轉換為VFP的dbf。
*轉換之前必須先按照原來Excel工作表的結構創建一個dbf表
*本例中創建了20個字元型欄位和1和備注欄位
*本程序只能在VFP7以上版本運行
*cells(i,1)表示在Excel中的 i 行第 1 列
*注意本實例中的insert語句，最後一個單元格的內容並沒有存放在一個數組元素或者變數中
*而是直接引用，是因為該單元格的長度可能超過字元型變數所允許的最大長度
*因此直接將其寫入備注型欄位中，這樣可以防止寫入時被截斷。

set safe off
set talk off
*創建一個 Excel 應用程序實例
objExcel = CreateObject("Excel.Application")
*打開文件
wjm=getfile("xls")
objExcel.Workbooks.Open(wjm)
*確定工作表總行數
LOCAL nrow ,i
i = 0
DO WHILE .t.
i = i + 1
IF !VARTYPE(objexcel.cells(i,1).value) = "C"
nrow = i - 1
EXIT
ENDIF
ENDDO
*開始導入數據
USE excel
DIMENSION arr_temp(20)
FOR i = 3 TO nrow &&前兩行不導入
arr_temp(1) = objexcel.cells(i,1).value

arr_temp(2) = objexcel.cells(i,2).value

arr_temp(3) = objexcel.cells(i,3).value

arr_temp(4) = objexcel.cells(i,4).value

IF !VARTYPE(objexcel.cells(i,5).value) # "C"
arr_temp(5) = objexcel.cells(i,5).value
ELSE
arr_temp(5) = STR(objexcel.cells(i,5).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,6).value) # "C"
arr_temp(6) = objexcel.cells(i,6).value
ELSE
arr_temp(6) = STR(objexcel.cells(i,6).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,7).value) # "C"
arr_temp(7) = objexcel.cells(i,7).value
ELSE
arr_temp(7) = STR(objexcel.cells(i,7).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,8).value) # "C"
arr_temp(8) = objexcel.cells(i,8).value
ELSE
arr_temp(8) = STR(objexcel.cells(i,8).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,9).value) # "C"
arr_temp(9) = objexcel.cells(i,9).value
ELSE
arr_temp(9) = STR(objexcel.cells(i,9).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,10).value) # "C"
arr_temp(10) = objexcel.cells(i,10).value
ELSE
arr_temp(10) = STR(objexcel.cells(i,10).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,11).value) # "C"
arr_temp(11) = objexcel.cells(i,11).value
ELSE
arr_temp(11) = STR(objexcel.cells(i,11).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,12).value) # "C"
arr_temp(12) = objexcel.cells(i,12).value
ELSE
arr_temp(12) = STR(objexcel.cells(i,12).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,13).value) # "C"
arr_temp(13) = objexcel.cells(i,13).value
ELSE
arr_temp(13) = STR(objexcel.cells(i,13).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,14).value) # "C"
arr_temp(14) = objexcel.cells(i,14).value
ELSE
arr_temp(14) = STR(objexcel.cells(i,14).value)
ENDIF

arr_temp(15) = objexcel.cells(i,15).value
IF !VARTYPE(objexcel.cells(i,16).value) # "C"
arr_temp(16) = objexcel.cells(i,16).value
ELSE
arr_temp(16) = STR(objexcel.cells(i,16).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,17).value) # "C"
arr_temp(17) = objexcel.cells(i,17).value
ELSE
arr_temp(17) = STR(objexcel.cells(i,17).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,18).value) # "C"
arr_temp(18) = objexcel.cells(i,18).value
ELSE
arr_temp(18) = STR(objexcel.cells(i,18).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,19).value) # "C"
arr_temp(19) = objexcel.cells(i,19).value
ELSE
arr_temp(19) = STR(objexcel.cells(i,19).value)
ENDIF
IF !VARTYPE(objexcel.cells(i,20).value) # "C"
arr_temp(20) = objexcel.cells(i,20).value
ELSE
arr_temp(20) = STR(objexcel.cells(i,20).value)
ENDIF

INSERT INTO excel VALUES(arr_temp(1),arr_temp(2),arr_temp(3),arr_temp(4),arr_temp(5),;
arr_temp(6),arr_temp(7),arr_temp(8),arr_temp(9),arr_temp(10),;
arr_temp(11),arr_temp(12),arr_temp(13),arr_temp(14),arr_temp(15),;
arr_temp(16),arr_temp(17),arr_temp(18),arr_temp(19),arr_temp(20),;
objexcel.cells(i,21).value)
ENDFOR
*退出並釋放 Excel 對象
objexcel.quit

別人那裡轉載的一個實例