pb 通过ole操作excel常用函数

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;