如何把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

别人那里转载的一个实例