OLEObject ole1 ,xlsub
ls_tempfilename="c:\temp\assign_modle.xls"
ole1= CREATE OLEObject //建立ole
result=ole1.ConnectTonewObject("Excel.application") //连接excel
if result<>0 then
messagebox("提示！","连接Excel表出错,请重新选择")
return lbb_return
end if
ole1.Application.Visible = true //ole是否可见
ole1.Workbooks.add //新增工作溥
xlsub = ole1.Application.ActiveWorkbook.Worksheets[1] //激活第一页
//取得excel行数
ll_rowcount= xlsub.UsedRange.Rows.Count
//给exce赋值
xlsub.cells[2,1].Value = "001"
xlsub.cells[2,2].Value = "A"
//设置单元格格式
for i=2 to 8
xlsub.Cells[i,1].NumberFormatLocal = "000"
next
//读取excel值有二种方法
// 1. 复制单格内容
xlsub.cells[2,1].copy
ls_personno = clipboard()
ls_personno = left(ls_personno,len(ls_personno) - 2)
通过copy取得值都带有回车符，读取数据后要通过left取得数据部分
// 2.ls_personno=string(xlsub.cells[2,1].value)
//不提示保存
ole1.Application.DisplayAlerts = false
ole1.ActiveWorkbook.SaveAs( ls_tempfilename,-4143)
不提示保存
//ole1.Application.DisplayAlerts = false
xlsub.DisConnectObject()
DESTROY xlsub;
//关闭文件
ole1.Application.ActiveWorkbook.save()
ole1.Application.ActiveWorkbook.close(True)
//退出excel
ole1.quit;
ole1.DisConnectObject()
DESTROY ole1;
|
