如何用PB程序在excel画表格边框线

如何用PB程序在excel画表格边框线，如何改变文字大小
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－窄行8511 39－宽行1411) eole.ActiveSheet.PageSetup.PaperSize=1
25．打印单元格网线
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26．拷贝整个工作表
edRange.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)=″黑体″
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
先把标题放到剪贴板上，再PASTE()到EXCEL中，代码如下： ::clipboard(ls_value)
ao_object.range(ls_col+string(1)+":"+ls_col+string(1)).select() ao_object.activesheet.Paste()
/**********************************************************/ /*函数名称：uf_dwsaveas_excel
功能：将数据窗口数据导出EXCEL文件，并将EXCEL文件默认英文标题替换成中文。

参数：datawindow datawin，为用户要导出数据窗口的数据窗口控件名返回值：integer 1，success；-1，error
流程描述：(原程序)先用saveas()倒出为excel文件，再替换表头为中文名 (新程序)直接用saveasAscii()倒出为excel文件原因：为提高程序的可读性作了少量的修改(如：增加注释、改变排版风格等) */
/**********************************************************/
/***************以下程序将导出为EXCEL文档******************/
integer li_rtn,ii,li_asc string ls_name,ls_pathname boolean lb_exist
if datawin.RowCount()<1 then
MessageBox("提示信息","请先检索数据再导出至Excel!") return -1//error end if
li_rtn=GetFileSaveName("保存文件",ls_pathname,ls_name,"xls","Excel文件(*.xls),*.xls")
if li_rtn=1 then
lb_exist = FileExists(ls_pathname) IF lb_exist THEN
li_rtn = MessageBox("保存", ls_pathname+"已经存在,是否覆盖?",Exclamation!, YesNo!) end if
if li_rtn=1 then
//当文件存在用户选择覆盖，或是文件本就不存在时。

注意变量li_rtn li_rtn=datawin.SaveAsAscii(ls_pathname) if li_rtn=1 then MessageBox("提示信息","导出数据成功!") return 1 else
MessageBox("错误信息","导出数据失败!") return -1//error end if else
return -1//error
end if else
return -1 end if
//在程序中调式没有问题，可以把数据窗口原样的输出，包括中英文，如果你用这个函数导出来的
也是乱码的话，可能是你的操作系统有问题了
PB下全面控制Excel
红色部分未验证 Excel对象控制
创建Excel对象 OLEObject ExcelServer
ExcelServer = Create OLEObject
连接Excel
ExcelServer.ConnectToObject("", "Excel.Application") //如果Excel还没有打开，则新建。

ExcelServer.ConnectToNewObject("Excel.Application") 返回值Integer，0正常，负值为错误码
断开连接
Excel ExcelServer.DisconnectObject()
打开指定工作簿
ExcelServer.WorkBooks.Open("c:\temp\ll.xls")
添加新工作簿
ExcelServer.WorkBooks.Add
关闭工作簿
ExcelServer.WorkBooks.Close
添加新的工作表
ExcelServer.Sheets.Add
激活工作表“sheet3”
ExcelServer.ActiveWorkBook.Sheets("sheet3").Select
工作表改名
= "课程表"
显示Excel窗口
ExcelServer.Application.Visible = True
更改Excel标题栏
ExcelServer.Caption="PB应用程序调用Microsoft Excel"
工作表另为
ExcelServer.ActiveWorkBook.SaveAs("c:\temp\22.xls")
放弃存盘
ExcelServer.ActiveWorkBook.Saved = True
退出Excel
ExcelServer.quit
单元格控制
给单元格赋值
ExcelServer.Cells(1,4).Value = XM(XM为数据库字段名)
在第2行之前插入一行
ExcelServer.ActiveSheet.Rows(2).Insert
在第2列之前插入一列
ExcelServer.ActiveSheet.Columns(2).Insert
设置指定列的宽度(单位：英文字符个数)
ExcelServer.ActiveSheet.Columns(1).ColumnWidth=5
设置指定行的高度(单位：磅) (设定行高为1厘米，1磅=0.035厘米)
ExcelServer.ActiveSheet.Rows(1).RowHeight=1/0.035
指定边框线宽度(Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；) ExcelServer.ActiveSheet.Range("b3:d3").Borders(2).Weight=3
a到i列自动调整列宽
ExcelServer.ActiveSheet.Columns(“a:i”).AutoFit
设置四个边框线条的类型(LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) ExcelServer.ActiveSheet.Range("b3:d3").Borders(2).LineStyle=1
合并单元格
ExcelServer.ActiveSheet.Range("A1:F1”).MergeCells = True
拷贝整个工作表
edRange.Copy
拷贝指定区域
ExcelServer.ActiveSheet.Range("A1:E2").Copy
ExcelServer.WorkSheet("Sheet2").Range("A1").PasteSpecial
设置字体
ExcelServer.ActiveSheet.Cells(2,1)="黑体"
设置字体大小
ExcelServer.ActiveSheet.Cells(1,1).Font.Size=25
设置字体为斜体
ExcelServer.ActiveSheet.Cells(1,1).Font.Italic = True
设置整列字体为粗体
ExcelServer.ActiveSheet.Columns(1).Font.Bold = True
设置整列水平居中
ExcelServer.ActiveSheet.Columns(1).HorizontalAlignment = 3 设置整行字体颜色
ExcelServer.ActiveSheet.Rows(1).Font.ColorIndex = 4
设置整行底色
ExcelServer.ActiveSheet.Rows(2).Interior.ColorIndex = 5
设置整行单元格中的文本自动换行
ExcelServer.ActiveSheet.Row(1).WrapText = True
清除单元格公式
ExcelServer.ActiveSheet.Cells(1,4).ClearContents
打印相关
设置页眉
ExcelServer.ActiveSheet.PageSetup.CenterHeader="报表1" 设置页脚
ExcelServer.ActiveSheet.PageSetup.CenterFooter="第＆P页" 设置页眉到顶端边距为2厘米
ExcelServer.ActiveSheet.PageSetup.HeaderMargin=2/0.035
设置页脚到底边距为3厘米
ExcelServer.ActiveSheet.PageSetup.FooterMargin=3/0.035
设置顶边距为2厘米
ExcelServer.ActiveSheet.PageSetup.TopMargin=2/0.035
设置底边距为4厘米
ExcelServer.ActiveSheet.PageSetup.BottomMargin=4/0.035
设置左边距为2厘米
ExcelServer.ActiveSheet.PageSetup.LeftMargin=2/0.035
设置右边距为2厘米
ExcelServer.ActiveSheet.PageSetup.RightMargin=2/0.035
设置页面水平居中
ExcelServer.ActiveSheet.PageSetup.CenterHorizontally = True 设置页面垂直居中
ExcelServer.ActiveSheet.PageSetup.CenterVertically = True
设置页面纸张大小(1－窄行8 5 11 39－宽行14 11) ExcelServer.ActiveSheet.PageSetup.PaperSize=1
在第18行之前插入分页符
ExcelServer.Worksheets("Sheet1").Rows(18).PageBreak=1
在第4列之前删除分页符
ExcelServer.ActiveSheet.Columns(4).PageBreak=0
打印单元格网线
ExcelServer.ActiveSheet.PageSetup.PrintGridlines = True
打印预览工作表
ExcelServer.ActiveSheet.PrintPreview
打印输出工作表
ExcelServer.ActiveSheet.PrintOut。