Question

求PB通过OLE来显示excel的方法（直接在PB窗口中显示修改保存）

求PB通过OLE来显示excel的方法（直接在PB窗口中显示修改保存），这样，就保证excel报表和程序合为一体，有什么方法吗？

Answer 1

pb控制，需要将eole改为 MyOLE=Create OLEObject ConnectErr=MyOLE.ConnectToNewObject ("excel.Application") 这个是必须的，名字为myole //打开指定的XLS文件激活workbooks MyOLE.application.workbooks.Open (FilePath) //对XLS文件进行了改动以后，在关闭该文件时是否需要向用户提出警告。 MyOLE.Application.DisplayAlerts = False 对应的将下面的vfp代码改为MyOLE.ActiveWorkBook.Sheets(worksheet). 1．创建Excel对象　　 　　 eole=CREATEOBJECT(′Excel.application′) 　　 2．添加新工作簿　　 　　 eole.Workbooks.add 　　 3．设置第3个工作表为激活工作表　　 　　 eole.Worksheets(″sheet3″).Activate　　 　　 4．打开指定工作簿　　 　　 eole.Workbooks.Open(″c:\temp\ll.xls″) 　　 5．显示Excel窗口 　　 eole.visible=.t. 　　6．更改Excel标题栏 　　 eole.Caption=″VFP应用程序调用Microsoft Excel″ 　　 　　 7．给单元格赋值 　　 　　 eole.cells(1,4).value=XM(XM为数据库字段名) 　　 　　 8．设置指定列的宽度(单位：字符个数) 　　 　　 eole.ActiveSheet.Columns(1).ColumnWidth=5 　　 　　 9．设置指定行的高度(单位：磅) 　　 　　 eole.ActiveSheet.Rows(1).RowHeight=1/0.035 　　 　　 (设定行高为1厘米，1磅=0.035厘米) 　　 　　 10．在第18行之前插入分页符 　　 　　 eole.Worksheets(″Sheet1″).Rows(18).PageBreak=1 　　 　　 11．在第4列之前删除分页符 　　 　　 eole.ActiveSheet.Columns(4).PageBreak=0 　　 　　 12．指定边框线宽度(Borders参数如下) 　　 　　 ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3 　　 　　 13．设置四个边框线条的类型 　　 　　 eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1 　　 　　 (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) 　　 　　 14．设置页眉 　　 　　 eole.ActiveSheet.PageSetup.CenterHeader=″报表1″ 　　 　　 15．设置页脚 　　 　　 eole.ActiveSheet.PageSetup.CenterFooter=″第＆P页″ 　　 　　 16．设置页眉到顶端边距为2厘米 　　 　　 eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 　　 　　 17．设置页脚到底边距为3厘米 　　 　　 eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 　　 　　 18．设置顶边距为2厘米 　　 　　 eole.ActiveSheet.PageSetup.TopMargin=2/0.035 　　 　　 19．设置底边距为4厘米 　　 　　 eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 　　 　　 20．设置左边距为2厘米 　　 　　 veole.ActiveSheet.PageSetup.LeftMargin=2/0.035 　　 　　 21．设置右边距为2厘米 　　 　　 eole.ActiveSheet.PageSetup.RightMargin=2/0.035 　　 　　 22．设置页面水平居中 　　 　　 eole.ActiveSheet.PageSetup.CenterHorizontally=.t. 　　 　　 23．设置页面垂直居中 　　 　　 eole.ActiveSheet.PageSetup.CenterVertically=.t. 　　 　　 24．设置页面纸张大小(1－窄行8�5�11 39－宽行14�11) 　　 　　 eole.ActiveSheet.PageSetup.PaperSize=1 　　 　　 25．打印单元格网线 　　 　　 eole.ActiveSheet.PageSetup.PrintGridlines=.t. 　　 　　 26．拷贝整个工作表 　　 　　 eole.ActiveSheet.UsedRange.Copy 　　 　　 27．拷贝指定区域 　　 　　 eole.ActiveSheet.Range(″A1:E2″).Copy 　　 　　 28．粘贴 　　 　　 eole.WorkSheet(″Sheet2″).Range(″A1″).PasteSpecial 　　 　　 29．在第2行之前插入一行 　　 　　 eole.ActiveSheet.Rows(2).Insert 　　 　　 30．在第2列之前插入一列 　　 　　 eole.ActiveSheet.Columns(2).Insert 　　 　　 31．设置字体 　　 　　 eole.ActiveSheet.Cells(2,1).Font.Name=″黑体″ 　　 　　 32．设置字体大小 　　 　　 eole.ActiveSheet.Cells(1,1).Font.Size=25 　　 　　 33．设置字体为斜体 　　 　　 eole.ActiveSheet.Cells(1,1).Font.Italic=.t. 　　 　　 34．设置整列字体为粗体 　　 　　 eole.ActiveSheet.Columns(1).Font.Bold=.t. 　　 　　 35．清除单元格公式 　　 　　 eole.ActiveSheet.Cells(1,4).ClearContents 　　 　　 36．打印预览工作表 　　 　　 eole.ActiveSheet.PrintPreview 　　 　　 37．打印输出工作表 　　 　　 eole.ActiveSheet.PrintOut 　　 　　 38．工作表另为 　　 　　 eole.ActiveWorkbook.SaveAs(″c:\temp\22.xls″) 　　 　　 39．放弃存盘 　　 　　 eole.ActiveWorkbook.saved=.t. 　　 　　 40．关闭工作簿 　　 　　 eole.Workbooks.close 　　 　　 41．退出Excel 　　 　　 eole.quit

Answer 2

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中的第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 //注销对象