为数据表添加边框效果

时　间:2017-04-02 14:26:40
作　者:杨雪   ID：42182  城市：南京
摘　要:Access与Excel 之间的数据读写：UsedRange 方法，Borders属性
正　文:

附件下载

使用UsedRange方法可以选中工作表中已经使用的单元格区域，其具体语法：

[工作表名].UsedRange

设置指定单元格区域的外边框属性，可以使用区域的BorderAround 属性，其具体语法：

[区域].BorderAround[外边框属性]

设置任意边框的属性，可以使用区域的Borders属性，其具体语法：

[区域].Borders([预设置的边框])[边框属性]

效果图：

代码：

'为工作表已使用区域添加边框效果
Private Sub cmd_设置_Click()
On Error GoTo 创建
    Dim xlApp As Excel.Application
    Dim xlWbk As Excel.Workbook
    Dim xlWsh As Excel.Worksheet
    '激活欲设置边框的工作表
    Set xlApp = GetObject(, "Excel.Application")
    xlApp.Visible = True
    Set xlWbk = xlApp.Workbooks.Open(CurrentProject.Path & "\示例工作簿.xlsx")
    Set xlWsh = xlWbk.Worksheets("员工工资")
    xlWsh.Activate
    '为工作表中的已使用的区域设置边框
    With xlWsh.UsedRange
        '设置工作表使用区域外边框框线的样式
        .BorderAround xlContinuous, xlThick, xlColorIndexAutomatic, RGB(250, 250, 250)
        '设置工作表使用区域内边框水平方向的样式
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).Weight = xlMedium
        .Borders(xlInsideHorizontal).Color = RGB(200, 200, 200)
        '设置工作表使用区域内边框竖直方向的样式
        .Borders(xlInsideVertical).Weight = xlThin
        .Borders(xlInsideVertical).Color = RGB(100, 100, 100)
    End With
    Set xlWsh = Nothing
    Set xlWbk = Nothing
    Set xlApp = Nothing
创建:
    If Err = 429 Then
        Set xlApp = CreateObject("Excel.Application")
        Resume Next
    End If
End Sub