close all
set safety off
set default to 'e:\'&&設置默認目錄
messagebox('請選擇要導入的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
dimension a(i)
a(i)=omyvar.name
i=i+1
next omyvar
******************************************************
nrows=bookexcel.worksheets(a(1))&&設置第一個表為工作表
UsedRange =nrows.UsedRange&&設置工作區(qū)域
***************把第一行的數(shù)據(jù)賦值給數(shù)組b，一會刪除第一行，便于導入*****
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&&關閉工作區(qū)不提示保存
myexcel.quit&&excel退出
*release myexcel
*******************
import from d:\hh.xls type xl5&&導入到默認目錄下的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('已成功將表導入到E:\hh.dbf','提示')
close all