long ll_excelok,ll_rtn,ll_rowcount,ll_row
string ls_emp_no,ls_emp_name,ls_emp_sex,ls_emp_age,ls_emp_birthday
string ls_pathname,ls_filename
integer li_emp_age
date ld_emp_birthday
oleobject ExcelServer
pointer oldpointer
delete from EMP_M_COPY;
oldpointer = setpointer(hourglass!)
ExcelServer = create Oleobject
ll_excelok = ExcelServer.connecttonewobject("Excel.application")
if ll_excelok <> 0 then
messagebox("提示!","无法连接EXCEL,请确认本机是否安装了EXCEL")
end if
ll_rtn = getfileopenname('打开EXCEL文件',ls_pathname,ls_filename,'XLS','EXCEL文件(*.xls),*.xls')
if ls_filename = '' then return
ExcelServer.workbooks.open(ls_pathname,0,0)
ExcelServer.application.visible = false
//excelserver.workbooks.add()
//ExcelServer.application.workbooks(1).worksheets(1) //设置第一个工作表为激活工作表
//ExcelServer.application.visible = true //显示EXCEL窗口
//ExcelServer.Caption='pb转excel' //更改标题
ll_rowcount = excelserver.activesheet.usedRange.rows.count
for ll_row = 1 to ll_rowcount
ls_emp_no = string(excelserver.activesheet.cells(ll_row + 1,1).value)
ls_emp_name = string(excelserver.activesheet.cells(ll_row + 1,2).value)
ls_emp_sex = string(excelserver.activesheet.cells(ll_row + 1,3).value)
ls_emp_age = string(excelserver.activesheet.cells(ll_row + 1,4).value)
ls_emp_birthday = string(excelserver.activesheet.cells(ll_row + 1,5).value,'yyyy/mm/dd')
li_emp_age = integer(ls_emp_age)
ld_emp_birthday = date(ls_emp_birthday)
st_1.text = "正在导入第: " + string(ll_row) + "笔数据"
insert into EMP_M_COPY values(:ls_emp_no,:ls_emp_name,:ls_emp_sex,:li_emp_age,:ld_emp_birthday);
next
ExcelServer.quit //exit
SetPointer(oldpointer)
ExcelServer.DisconnectObject()
DESTROY ExcelServer
dw_1.retrieve()
if dw_1.rowcount() = 0 then
rollback;
messagebox("提示","导入失败")
st_1.text ="导入失败!"
else
commit;
messagebox("提示","导入成功")
st_1.text ="导入成功!"
end if