VB.NET使用VSTO对单元格增加边框

VB.NET通过Visual Studio Tools for Office (VSTO) 开发 Excel 添加-ins 来操作Excel工作表时，可以使用Microsoft.Office.Interop.Excel命名空间中的`Range` 和 `Borders` 对象来给单元格添加边框。以下是一个简单的步骤说明：

1. 首先，你需要导入必要的命名空间：

Imports Microsoft.Office.Interop.Excel

2. 获取当前活动的工作表对象和需要操作的单元格范围：

Dim workbook As Excel.Workbook = ThisWorkbook '假设这是你的Excel应用
Dim worksheet As Excel.Worksheet = workbook.Sheets(1) '指定工作表
Dim rangeAddress As String = "A1" '替换为你想要操作的单元格地址
Dim cell As Range = worksheet.Range(rangeAddress)

3. 使用`Borders` 属性创建边框对象，并设置所需的样式、颜色等属性：

Dim border As Excel.BorderLine = cell.Borders(xlEdgeBottom).LineStyle '(xlEdgeBottom, 上下左右分别为边缘类型)
border.Weight = xlThick '边框线粗细
border.ColorIndex = 1 '1表示红色，你可以选择其他颜色索引

'如果你想设置整个四周边框，可以这样做：
For Each edge In Excel.XlBorderSide.values
    Dim borderObj As BorderLine = cell.Borders(edge)
    borderObj.Style = xlContinuous '选择边框样式
    '...然后设置其他属性
Next

4. 最后，应用更改：

cell.Borders(border).LineStyle = borderObj.Style '确保已设置的边框生效