新浪博客

在ACCESS中用VBA设置EXCEL单元格的格式

2010-02-24 14:58阅读：

http://blog.sina.cn/dpool/blog/u/1699403930

在ACCESS中用VBA更改EXCEL单格元格的格式可用以下代码：
Private Sub test5() 'EXCEL单元格格式设置
Dim excelapplication As Object
Dim str As String
str = Application.CurrentProject.Path & '\book1.xls'
Set excelapplication = GetObject(str) '获取指定的EXCEL文件
With excelapplication.sheets(1)
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.LineStyle = xlContinuous '设置单元格的边框
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.ColorIndex = xlAutomatic '设置单元格边框的颜色，可用1~56间的数字设置不同的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).NumberFormat = '0.00%' '设置单元格的值以百分比的形式显示
.Range(.Cells(1, 1), .Cells(3, 4)).interior.ColorIndex = 24 '设置单元格的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).Font.Bold = True '字体加粗
End With
End Sub

单元格边框参数
名称 值 描述
xlContinuous 1 实线。
xlDash -4115 虚线。
xlDashDot 4 点划相间线。
xlDashDotDot 5 划线后跟两个点。
xlDot -4118 点式线。
xlDouble -4119 双线。
xlLineStyleNone -4142 无线条。
xlSlantDashDot 13 倾斜的划线。

单元格字体格式
名称 描述
Bold 加粗
Italic 斜体
Underline 下划线


我的更多文章

下载客户端阅读体验更佳

APP专享