1 å°ä¸ä¸ªdbfæ件转æä¸ä¸ªxlsæ件
æ¹æ³ä¸ï¼Excelç´æ¥è°åºdbfæ件ï¼éè¿âå¦å为âä¿åæxlsæ件ã
å
·ä½æä½å¦ä¸ï¼
1ï¼å¯å¨Microsoft Excel
2ï¼æå¼dbfæ件ï¼éå®âæ件âèåï¼éæ©âæå¼âå½ä»¤ï¼å¨æå¼å¯¹è¯æ¡çªå£çâæ件类åâä¸æå表ä¸ï¼éåâdBaseæ件ï¼*.dbfï¼âå¨âæ¥æ¾èå´âä¸æå®ç符åæ件夹ï¼éä¸è¦æå¼çdbfæ件ï¼åå»âæå¼âæé®ã
3ï¼å°æ件å¦å为xlsæ件ï¼éå®âæ件âèåï¼éæ©âå¦å为âå½ä»¤ï¼å¨å¦å为对è¯æ¡çªå£çâä¿åç±»åâä¸æå表ä¸ï¼éåâmicrosoft excel å·¥ä½ç°¿(*.xls)âï¼å¨âæ件åâææ¬æ¡ä¸è¾å
¥æ件åï¼åå»âä¿åâæé®ã
注æï¼å¦æå¨æå¼dbfæ件æ¶ï¼åºç°âä¸å¯è¯å«çæä»¶æ ¼å¼âçæ示ï¼å¦å¾ä¸æ示ï¼è¯´ææ¤dbfæ件çæ¬è¾é«ï¼æ æ³æ£å¸¸è½¬æ¢ï¼ä¸è¬å¨foxBASEãFoxProç¨åºä¸äº§ççdbfæ件ç¨æ¤æ¹æ³è½æ£å¸¸è½¬æ¢ï¼ï¼åºå¦éå
¶å®è½¬æ¢æ¹æ³ã
å¾ä¸(è§ä¸å¾ï¼
æ¹æ³äºï¼ç¨Visual Foxproæä¾çâ导åºâåè½ï¼å°dbfæ件转æ¢æxlsæ件
å
·ä½æä½å¦ä¸ï¼
1ï¼å¯å¨Visual Foxproç¨åº
2ï¼éå®âæ件âèåï¼éæ©â导åºâå½ä»¤ï¼å¨å¯¼åºå¯¹è¯æ¡çªå£âç±»åâä¸æå表ä¸ï¼éåâmicrosoft excel 5.0(xls)âæè
âmicrosoft excel 2.0ï¼3.0ï¼and 4.0(xls)âï¼å¨âæ¥æºäºâææ¬æ¡ä¸ææè¦è½¬åçdbfæ件çè·¯å¾åæ件åï¼å¨âå°âææ¬æ¡ä¸æææç»è½¬åæxlsæ件æåæ¾çè·¯å¾åæ件åï¼å¦åªæ³ædbfæ件ä¸ç¬¦åæäºæ¡ä»¶çæ°æ®è½¬æ¢æxlsæ°æ®ï¼å¯ç¹å»âé项âæé®ï¼å¨åºç°çâ导åºé项â对è¯æ¡ä¸è¿è¡ç¸åºç设置ï¼ç¶åç¹å»âç¡®å®âæé®ã
æ¹æ³ä¸ï¼å©ç¨copyå½ä»¤è¿è¡æ°æ®ç转å
å
·ä½æä½å¦ä¸ï¼
1ï¼å¯å¨Visual Foxproç¨åº
2ï¼å¨ç³»ç»çå½ä»¤çªå£è¾å
¥å¦ä¸ä¸¤æ¡å½ä»¤ï¼
use <表æ件å>
copy to <ç®æ æ件å>.xls type xls
æ¤æ¹æ³ä¹å¯ä»¥ä½¿ç¨èå´ææ¡ä»¶åå¥åªå°æ»¡è¶³æ¡ä»¶çæ°æ®è½¬æ¢æExcelæ件ã
2 ç¨ç¼ç¨æ¹æ³å°å¤ä¸ªdbfæ件转æä¸ä¸ªxlsæ件ä¸çä¸åå·¥ä½è¡¨
å
·ä½æä½å¦ä¸ï¼
1ï¼å¯å¨Visual Foxproç¨åº
2ï¼å¨ç³»ç»çå½ä»¤çªå£ä¸è¾å
¥å¦ä¸å½ä»¤ï¼
modify command
3ï¼å¨æå¼çææ¬ç¼è¾çªå£ä¸è¾å
¥ä»¥ä¸ä»£ç ï¼
c=0
do whil .t.
bm=space(20)
clear
@2,10 say â请è¾å
¥é转åç表åï¼å¸¦è·¯å¾åæ©å±åï¼ï¼â get bm
read
bm=alltrim(bm)
if file ("&bm")
use &bm
if c=0
exc=createobject(âexcel.applicationâ)
exc.workbooks.add
endi
if c>=3
exc.sheets.add
endi
c=c+1
sh="sheet"+str(c,1)
exc.worksheets(â&shâ).activate
exc.visible=.t.
zds=fcount()
for m=1 to zds
exc.cells(1,m).value=field(m)
endfor
jls=reccount()
for n=1 to jls
go n
scatter to sj memo
for x=1 to zds
exc.cells(n+1,x).value=sj(x)
endfor
endfor
use
exc.visible=.f.
else
wait â该æ件ä¸åå¨ï¼â windows at 20,50 timeout 2
endif
ss=messagebox(âè¿è¦ç»§ç»è½¬åå?â,36,â转åæ件â)
if ss=7
if c>0
exc.visible=.t.
endi
exit
endi
enddo
å°ä»¥ä¸ç代ç ä¿å为ä¸ä¸ªç¨åºæ件ï¼ç¶åå¨Visual Foxproå½ä»¤çªå£ä¸é®å
¥å¦ä¸å½ä»¤æ§è¡æ¤ç¨åºï¼
do <ç¨åºæ件å>
以ä¸ç¨åºå¨Visual Foxpro6.0ä¸è°è¯éè¿ï¼ä½å¦ææ°æ®è¡¨ä¸å«æâéç¨åâå段ä¼åºç°ç¨åºé误信æ¯æ¡æ示ï¼åªè¦ç¹å»â忽ç¥âæé®å³å¯ã
温馨提示:答案为网友推荐,仅供参考