求<em>PB</em>通过OLE来显示WORD文档的方法-pb 保存excel,pb导出exc

射灯

1、不用ole直接用word嵌入到程序窗口中，需要用到几个apiShellExecute函数原型及参数含义如下：
　　ShellExecute(
　　HWND hwnd, //父窗口句e799bee5baa6e997aee7ad94e4b893e5b19e362柄 （如：NULL，Handle等）
　　LPCSTR lpOperation, //操作类型 （如："open"）*要加英文双引号
　　LPCSTR lpFile, //要进行操作的文件或路径
　　LPCSTR lpParameters, //当lpOperation为“explore”时指定要传递的参数，通常设为NULL
　　LPCSTR lpDirectory, //指定默认目录，通常设为NULL
　　INT nShowCmd //文件打开的方式，以通常方式还是最大化或最小化显示，一般为SW_SHOWNORMAL
　　)
2、用pb中word的函数操作word文档，可以参考olebrowser里面的函数说明，pb里面就可以查看的 来这里看看吧，有点用的，pb嵌入word的http://hi.baidu.com/pbzzfbbs/blog/item/1b8614354efeda3d5ab5f57e.html
导入 直接拷贝 excel内容到datawindow，导出 直接saveas ("dd.xls",xls!)

1、创建连接到excel应用的ole对象
OleObject ole_excel
ole_excel = create OleObject
If ole_excel.ConnectToNewObject("Excel.Application") <> 0 Then
MessageBox('连接到Excel错误','请确认是否已经安装了Excel!',Exclamation!)
Destroy old_excel
Return
End If
2、打开指定的excle文件
ole_excel.Application.Workbooks.Open("excel文件")
3、操作excel单元格
excel单元格有一系列的操作，它们的使用格式一般如下：
ole对象.ActiveWorkBook.Sheets("工作表名").操作对象.动作或属性
读取或赋值工作表1中单元格的格式：
ole_excel.ActiveWorkBook.Sheets("工作表1").cells[1,1].value
合并工作表1中的7a686964616fe58685e5aeb9334第ll_rows_buget行的A列到I列的单元格：
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Merge，还有如下一些与合并单元格相类似的动作或属性
.HorizontalAlignment = xlGeneral //单元格的横向对齐方式
.VerticalAlignment = xlBottom //单元格的纵向对齐方式(1、2左，3居中,4右)
.WrapText = True //自动换行
.Orientation = 0
AddIndent = False
ShrinkToFit = False
.MergeCells = False
设置工作表1中的第ll_rows_buget行的A列到I列的单元格四周为实现边框
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(1).LineStyle=1
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(2).LineStyle=1
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(3).LineStyle=1
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Borders(4).LineStyle=1
第ll_rows_buget行从A到I单元格的背景色和字体颜色设置如下：
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Interior.ColorIndex = 48 //背景色为棕黑色
ole_excel.ActiveWorkBook.Sheets("工作表1").Range("A"+string(ll_rows_buget)+":I"+string(ll_rows_buget)).Font.ColorIndex = 3 //字体颜色为红色
有一点需要注意的是单元格的背景色和字体颜色的属性ColorIndex不能超过56，否则程序崩溃，自动退出。ColorIndex = 0 为白色，ColorIndex = 56 则接近黑色，其他颜色请自行摸索。
4、保存excel文件，退出excel，并销毁ole对象
ole_excel.ActiveWorkBook.save()
ole_excel.Application.Quit()
Destroy ole_excel //注销对象