如何实现批量把excel文件导入为dbf文件？

[annkie]

有几十个excel表需要导入为dbf文件，可以写程序实现批量导入吗？

[cuij]

好象没有这么复杂啊，我记得好象是从：“表 -》 追加记录”

然后，选择XLS

[coolyylu]

因为需要成批处理 ，所以使用楼上方法当excel多的时候工作量大

[qqqdong]

使用
IMPORT FROM c:\temp\book1.xls TYPE XL8 SHEET "Sheet1"
命令作个循环

[yqsman]

首先你先建一個目錄.然後將你的要導進去的excel文件都放到這個目錄里面.
然後用


LPARAMETERS lScanDir
CLEAR


IF NOT DIRECTORY(lScanDir)
MESSAGEBOX("Directory not found !!! ",16,"Error")
RETURN
ELSE
ScanFile(lScandir)
?
?

?"** process complete **"

RETURN


PROCEDURE ScanFile
LPARAMETERS lCurDir,mode
LOCAL ScanStr,lScanDir,sFiles,ListArray[1],cFile,stp
ScanStr = lcurDir + "\*.*"
sFiles = ADIR(ListArray,ScanStr,"AHRSD")
IF sFiles > 0
FOR stp=1 TO ALEN(ListArray,1)
IF NOT INLIST(ListArray(stp,1),".","..")
IF NOT "D" $ ListArray(stp,5)
cFile = lCurDir + "\" + ListArray(stp,1)
?"Process File .... " + cFile
ExcelToDbf(cFile)

ELSE
lScanDir = lCurDir + "\" + ListArray(stp,1)
scanFile(lScanDir)
ENDIF
ENDIF
ENDFOR
ENDIF
ENDFUNC


FUNCTION ExcelToDbf
LPARAMETERS fName,mode
LOCAL stp
ExtName = UPPER(JUSTEXT(fName))
IF ISBLANK(ExtName)
RETURN
ENDIF

IF FILE(fName)
IF ExtName ="xls"
tmptext = FILETOSTR(fName)
寫入要你導入的文件的代碼

ERASE &fname
STRTOFILE(tmptext,fName)
ENDIF
ENDIF
ENDFUNC


寫得亂你得將他復制到你的prg里面再看