程序代码：

SET SAFETY off
SET DATE ANSI
SET CENTURY on
lcFileName=GETFILE("xlsx,xls")
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName')
oExcel.ActiveWorkbook.SaveAs('e:\book1.csv',6)
*根所EXCEL表格内容动态建立DBF表                   
wj=JUSTSTEM(lcFileName)                                                
lncol = oExcel.activesheet.usedrange.columns.count     
zd=SUBSTR(oExcel.activesheet.usedrange.cells(1,1).value,1,10)　　　行列根据内容自行调整
zd1=oExcel.activesheet.usedrange.cells(2,1).value                       
*先建第一个字段创建表              
If Isnull(zd1) OR Type("zd1")='C'
   CREATE TABLE &wj (&zd c(20)) 
ELSE
   IF Type("zd1")="T" OR Type("zd1")="D"
      CREATE TABLE &wj (&zd D)                                         
   ELSE
      IF Type("zd1")="N"
         CREATE TABLE &wj (&zd n(10,2))
      ELSE
         CREATE TABLE &wj (&zd c(20))
      ENDIF
   ENDIF
ENDIF
*****************************************************
*循环建立表结构                   
FOR i=2 TO lncol                                                                                                     
    zd=SUBSTR(oExcel.activesheet.usedrange.cells(1,i).value,1,10)          
    zd1=oExcel.activesheet.usedrange.cells(2,i).value
    If Isnull(zd1) OR Type("zd1")='C'
       ALTER TABLE &wj ADD COLUMN &zd c(20)
    ELSE
       IF Type("zd1")="T" OR Type("zd1")="D"
          ALTER TABLE &wj ADD COLUMN &zd d     
       ELSE
          IF Type("zd1")="N"
             ALTER TABLE &wj ADD COLUMN &zd n(10,2)
          ELSE
             ALTER TABLE &wj ADD COLUMN &zd c(20)
          ENDIF
       ENDIF
   ENDIF
endif
oExcel.Workbooks.Close                                                     
oExcel.quit                                                                            
Release oExcel                                                              
USE &wj
appe from e:\book1.csv type csv                                              
*************************                                                  
BROWSE
CLOSE all