pb里怎样设置excel单元格格式太多

来源：蜘蛛抓取(WebSpider) 时间：2017-01-01 19:43 标签： excel单元格格式
PBExcel PB操作EXcle的介绍
如何用PB程序在 画表格边框线， 文字大小
1．创建Ex File Operate 文件
238万源代码下载-
&文件名称: PBExcel
& & & & &&]
&&所属分类:
&&开发工具: PowerBuilder
&&文件大小: 2 KB
&&上传时间:
&&下载次数: 8
&&提 供 者:
&详细说明：PB操作EXcle的介绍
如何用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标题栏
-PB program drawing table border lines in excel, how to change the text size. Create Excel the object eole = CREATEOBJECT (
Excel.Application
). Add a new workbook eole.Workbooks.add 3. Set 3 worksheet the active worksheet eole.Worksheets (sheet3 " ). The Activate 4. Open specified book eole.Workbooks.Open, (" c: \ temp \ ll.xls" ). Show Excel window eole.visible = t. 6. Change the Excel title bar
文件列表(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&PB操作Excel.doc
&近期下载过的用户:
&相关搜索:
&输入关键字，在本站238万海量源码库中尽情搜索：
&[] - PB的交叉报表转换成EXCEL(PB cross report into EXCEL)
&[] - 出名的dw2xls,我作了一些修改,更适用pb通过ole来控制excel_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
pb通过ole来控制excel
上传于|0|0|文档简介
&&pb通过ole来控制excel
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩1页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢&&国之画&&&& &&
版权所有 京ICP备号-2
迷上了代码！pb控制写入到excel的字体解决办法 - PB当前位置:& &&&pb控制写入到excel的字体解决办法pb控制写入到excel的字体解决办法&&网友分享于：&&浏览：19次pb控制写入到excel的字体在pb中通过ole控件插入了一个excel表格，在对表格操作的时候需要对一格写入多行，而且是不同的字体，比如在cells(1,1)先写入123，为Arial的，再另起一行，但还是cells(1,1)中，再写入345，为Simsun的，请问要怎么操作呢------解决方案--------------------手工在excel里改,录制成宏,编辑录制的宏把代码复制出来参照宏代码在pb里ole_xxx.object.xxxxx来写，多试几次就出来了
------解决方案--------------------　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,1).Characters(Start:=1, Length:=1).Font.colorindex=3//以下是我录制的宏,Range(&C5&).Select
ActiveCell.FormulaR1C1 = &a& & Chr(10) & &b& & Chr(10) & &c&
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = &宋体&
.FontStyle = &常规&
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = &宋体&
.FontStyle = &常规&
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With ActiveCell.Characters(Start:=3, Length:=1).Font
.Name = &宋体&
.FontStyle = &常规&
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 50
With ActiveCell.Characters(Start:=4, Length:=1).Font
.Name = &宋体&
.FontStyle = &常规&
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
With ActiveCell.Characters(Start:=5, Length:=1).Font
.Name = &宋体&
.FontStyle = &常规&
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
Range(&C3&).Select
------解决方案--------------------宏语句在PB里好像不能完全识别的啊&
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有

我要回帖

更多关于 excel单元格格式 的文章

 

随机推荐