close all
set safety off set default to 'e:\'&&設(shè)置默認(rèn)目錄 messagebox('請選擇要導(dǎo)入的XLS文件'+chr(13)+; '注意表格不要有格式,首行的命名符合規(guī)則'; +chr(13)+'只把第一行做為字段','提示') ss=getfile('xls')&&打開選擇文件對話框,并賦值 if isblank(ss) return endif myexcel=createobject('excel.application')&&創(chuàng)建EXCEL對象 *myexcel.visible=.t. bookexcel=myexcel.workbooks.open(ss)&&打開選擇的文件 i=1 ***************獲得表的可用sheet************************************* for each omyvar in myexcel.sheets next omyvar ****************************************************** nrows=bookexcel.worksheets(a(1))&&設(shè)置第一個(gè)表為工作表 UsedRange =nrows.UsedRange&&設(shè)置工作區(qū)域 ***************把第一行的數(shù)據(jù)賦值給數(shù)組b,一會刪除第一行,便于導(dǎo)入***** ma=usedrange.columns.count&&返回列的總數(shù) dimension b(ma) for i=1 to ma b(i)=myexcel.cells(1,i).value next ****************************************************** myexcel.Worksheets(a(1)).Activate myexcel.activesheet.rows(1).select&&選中第一行 myexcel.Selection.EntireRow.Delete&&刪除選中的行 myexcel.Worksheets(a(1)).select *********檢查d:\hh.xls是否存在,若存在,刪除*********** IF FILE('d:\hh.xls') DELETE FILE d:\hh.xls ENDIF ********************************* myexcel.ActiveWorkbook.SaveAs('d:\hh.xls')&&文件另存為 myexcel.ActiveWorkbook.saved=.t.&&不保存修改 myexcel.workbooks.close&&關(guān)閉工作區(qū)不提示保存 myexcel.quit&&excel退出 *release myexcel ******************* import from d:\hh.xls type xl5&&導(dǎo)入到默認(rèn)目錄下的hh.dbf表中 DELETE FILE d:\hh.xls&&刪除表 ***********給表字段重命名************************** use hh ma=fcount() dimension c(ma) for la=1 to ma c(la)=field(la) next for la=1 to ma la,c(la),b(la) alter table hh rename &c(la) to &b(la) next ***************************************** messagebox('已成功將表導(dǎo)入到E:\hh.dbf','提示') close all |
|