PB导出EXCEL.docx

1.
OLEObject   ole_object   ,   ole_workbooks  
   
  ole_object   =   CREATE   OLEObject  
  IF   ("")   <>   0   THEN  
  MessageBox('OLE错误','OLE无法连接!')  
  return  
  END   IF  
    
     =   True  
  ole_workbooks   =   (1)  
  (1,1).value="id"   //数据窗口的标题   就是表头  
  (1,2).value="用户名"  
  (1,3).value="密码"  
//  (1,4).value="机器号"  
//  (1,5).value="开始时间"  
//  (1,6).value="结束时间"  
  long   l_row  
  for   l_row   =   1   to   ()  
  (l_row+1,1).value=(l_row ,1)  
  (l_row+1,2).value=(l_row ,2)  
  (l_row+1,3).value=(l_row ,3)  
//  (l_row,4).value=(l_row,4)  
//  (l_row,5).value=(l_row,5)  
//  (l_row,6).value=(l_row,6)  
  next  
     ("d:\")  
  ()  
  ()  
  Destroy   Ole_Object  
  destroy   ole_workbooks
2
 
 PB数据窗口导出到EXCEL函数
function f_oletoexcel(adw datawindow,title string,as_file string)