PB对excel的操作.docVIP

Pb中对Excel文件的应用 Oleobject ? ? ole_object//建立OLE对象 ole_object=create ? ? oleobject//创建对象 integer ? ? li_ret li_ret=ole_object.connecttoobject( , Excel.Application )//建立连接 if ? ? li_ret 0 ? ? then //如果Excel还没有打开，则新建。 li_ret=ole_object.ConnectToNewObject( Excel.Application ) if　li_ret 0　then messagebox( OLE错误 , OLE无法连接！错误号： +string(li_ret)) return end　if ole_object.Visible=true end　if pointer　oldpointer//设置鼠标 oldpointer=setpointer(HourGlass!) ole_object.Workbooks.Add//新建工作薄 ole_object.Application.DisplayAlerts=False//关闭警告消息对话框，防止提示 ole_object.Application.Workbooks.Open(as_excel_filename)//打开Excel文件 //ole_object.Application.ActiveWorkbook.SaveAs(as_text_filename,-4158)//把打开的Excel文件另存为 //Text文件，第二参数表示数据以制表符TAB分隔 ole_object.Application.Quit()//退出Excel ole_object.activeworkbook.saved=true//放弃存盘 ole_object.workbooks.close//关闭工作簿 ole_object.Cells(1,1).Value=reptitle ole_object.Range( A1 ).Select ole_object.Selection.Font.Size=24 ole_object.selection.HorizontalAlignment=3//水平对齐方式: ole_object.Range( A1: +f_columname(ll_colnum)+ 1 ).Select ole_object.Range( A1: +f_columname(ll_colnum)+ 1 ).Merge ole_object.Columns(i).ColumnWidth=ld_width ole_object.Columns(i).HorizontalAlignment=3 ole_object.Columns(i).Borders.LineStyle=1 ole_object.Columns(i).Font.Bold=True ole_object.cells(i,j).NumberFormat= @ ole_object.cells(i,j).Font.Bold=false ole_object.cells(i,j).value=ls_value OLE_MyExcel.ActiveWorkbook.Activesheet.UsedRange.Rows.Count Sheets.Add 基本操作: Ole_object.Workbooks.add//新建一个Excel文件 Ole_object.Workbooks.Open( FileName )//打开一个已存在Excel文件 Ole_object.ActiveWorkBook.Sheets( SheetName ).Select//选择文件中一个工作表 Ole_object.Application.Run( MacroName )//运行宏 Ole_object.Application.Visible=TRUE//Excel文件可见 Ole_object.Application.ScreenUpdating=true//设置可见属性 ②格式设置 Ole_object.ActiveSheet.Columns( A:U ).AutoFit//列宽自动调整 Ole_object.ActiveSheet.Columns( A:Z ).ColumnWidth=6.75//列宽 Ole_object.ActiveSheet.Rows( 1:100 ).RowHeight=12//行高 Ole_object.Applic