程序代码：

SET SAFETY OFF 
CREATE CURSOR tt (操作员 V(10), 采购合同号 V(20), 供应商 V(30), 签约日期 V(10),;
                  交货日期 V(10), 产品编码 V(10), 规格编号 V(20), 商品名称 V(30),;
                  规格说明 V(100), 商品总量 I, 单位 V(10), 币种 V(10), 采购金额 N(12,2)) 
cPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)
cXLS = cPath + "pupi_CUR_TEST.xls"
cTXT = cPath + "pupi_CUR_TEST.txt"
oExcel = NEWOBJECT("Excel.Application")
WITH oExcel
    .WorkBooks.Open(cXLS)
    .ActiveSheet.UsedRange.Select
    WITH .Selection
        .Columns.WrapText = .F.
        .Columns.AutoFit
        nRow = .Rows.Count - 1
        nColumn = .Columns.Count
         LOCAL ArrayName[nRow, nColumn]
        ArrayName = .Cells(2, 1).Resize(nRow, nColumn).Value
    ENDWITH 
    INSERT INTO TT FROM ARRAY ArrayName
    .DisplayAlerts = .F.
    .WorkBooks.Close
    .Quit
ENDWITH 
BROWSE  

[此贴子已经被作者于2021-5-28 16:05编辑过]

程序代码：

f_t1='E:\futong\pupi_CUR.xls'

f_tp= JUSTpath(f_t1)+'\'
f_tn=JUSTSTEM(f_t1)
f_tt=JUStext(f_t1)
f_t3=f_tp+f_tn+'.txt'

IF USED('feildname ')
SELECT feildname 
USE 
ELSE 
CREATE CURSOR feildname (fname c(20))
ENDIF 

myexcel=createobject('excel.application') 
WITH myexcel
   .visible=.F.
   .DisplayAlerts=.f.
   .workbooks.open(f_t1) 

    Usedrow1 =.workbooks(f_t1).sheets(1).UsedRange.Rows.Count
    Usedcol1 =.workbooks(f_t1).sheets(1).UsedRange.columns.Count


  FOR i1=1 TO Usedcol1 
     cell2=+'1,'+ALLTRIM(STR(i1))
     feild_t=.ActiveWorkbook.sheets(1).cells(&cell2).value
 
     ?feild_t
     ?ISNULL(feild_t)
  
     SELECT * FROM feildname WHERE  ALLTRIM(fname)=ALLTRIM(feild_t)into CURSOR temp1
     rec_t=recc()
 
     DO CASE 
     CASE ISNULL(feild_t)=.t.
      feild_t='a'+ALLTRIM(STR(i1))
     CASE (BETWEEN(asc(LEFT(feild_t,1)),65,90)or BETWEEN(asc(LEFT(feild_t,1)),97,122)) AND rec_t#0
      feild_t=ALLTRIM(feild_t)
     CASE  ASC(LEFT(feild_t,2))>10000
      feild_t=ToPy(feild_t)
     ENDCASE
 
     INSERT INTO feildname (fname )values (feild_t)
 
      IF i1=1
         CREATE CURSOR &f_tn (&feild_t v(100))
      ELSE 
         ALTER table &f_tn ADD COLUMN &feild_t v(100)
      ENDIF  

   ENDFOR 

          .ActiveSheet.UsedRange.Select
           WITH .Selection
               .Columns.WrapText = .F.
               .Columns.AutoFit
                nRow = .Rows.Count - 1
                nColumn = .Columns.Count
                LOCAL ArrayName[nRow, nColumn]
                ArrayName = .Cells(2, 1).Resize(nRow, nColumn).Value
           ENDWITH 
    INSERT INTO &f_tn FROM ARRAY ArrayName

   .ActiveWorkbook.saved=.f.
   .Workbooks.Close
   .DisplayAlerts=.t.
   .quit 
ENDWITH