!合并多个EXCEL到DBF中cDefPath=ADDBS(JUSTPATH(SYS(16)))SETDEFAULTTO(c
DefPath)CREATETABLEtt(编号c(10),姓名c(10),出生年月c(10),语文I,数学I,
英语I)oExcel=CREATEOBJECT(''Excel.Application'')oExcel.DisplayAler
ts=0FORi=1TOADIR(aXLS,".xls")sh=oExcel.WorkBooks.Open(cD
efPath+aXLS[i,1]).ActiveSheetsh.Rows("1:2").Deleterow1=oExc
el.CountA(sh.Columns(1))row2=oExcel.CountA(sh.Columns(7))arr1
=sh.Cells(1,1).Resize(row1,6).Valuearr2=sh.Cells(1,7).Resi
ze(row2,6).ValueINSERTINTOttFROMARRAYarr1INSERTINTOtt
FROMARRAYarr2oExcel.WorkBooks.CloseENDFORoExcel.QuitSELECT
FROMtt |
|
