当前位置: 代码迷 >> PB >> pb控制写入到excel的字体解决办法
  详细解决方案

pb控制写入到excel的字体解决办法

热度:314   发布时间:2016-04-29 10:30:08.0
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
End With
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
End With
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
End With
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
End With
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
End With
Range("C3").Select
------解决方案--------------------
宏语句在PB里好像不能完全识别的啊 
 就是
  相关解决方案