OEL导出excel文件时候，美化excel的几种方法

来源：互联网发布：c语言开发编辑：程序博客网时间：2024/05/01 02:48

用VB,VBA或者其他支持old的组建导出excel文件的时候，通常需要对文件格式进行排版和美化。这里面有两种做法，一，事先用一个设计好格式的excel，打开它往里面付值。二，使用ole自己的划线和边框调整工具。下面具体看看这种做法下的几个操作的代码

1 画边框

xlSheet.Range("A1:F4").Select
With xlApp.Selection
   .Font.name = "黑体"
   .Font.Size = 18
   .Font.Bold = True
   '.Columns.AutoFit
   .Columns.ColumnWidth = 13

'.Background = 0
.Borders.LineStyle = xlContinuous '连续线
.Borders.ColorIndex = 1 '黑色
.Borders.Weight = xlThin '细线

End With

2 具体画边框的某一些线的时候

'.Borders(xlInsideVertical).LineStyle = xlContinuous
'.Borders(xlInsideVertical).ColorIndex = 1
'.Borders(xlInsideVertical).Weight = xlThin

共有8种线xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, or xlEdgeTop, xlInsideHorizontal, or xlInsideVertical.

3 合并单元格

xlSheet.Range("A1:F4").Select
With xlApp.Selection
   .MergeCells = True
   .HorizontalAlignment = -4108 '水平居
   .VerticalAlignment = -4108 '垂直居
   .Font.name = "黑体"
   .Font.Size = 18
   .Font.Bold = True
   '.Columns.AutoFit
   .Columns.ColumnWidth = 13

End With

4 导出excel时候最好的方法是直接让excel显示出来，让用户自己保存或者关闭

Dim xlApp As Excel.Application
Dim xlBook As Object
Dim xlSheet As Object

Screen.MousePointer = vbHourglass
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

'处理

xlApp.Visible = True
Screen.MousePointer = vbDefault
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=477480