从Outlook在Excel中插入行边框

当outlook打开时，我正在使用宏将电子邮件中的一些数据插入excel中的某一行，我想在excel中的a到AE行的范围中添加边框

我正在使用

intRow4

确定输入信息的行地址。 所以我的代码看起来像这样，但是我在

Dim Rng As Range

上得到一个对象未定义错误，因为我感觉outlook不支持它

Const SHEET_NAME4 = "Statistics"
excWks4 As Object, _
intRow4 As Integer, _
Set excWks4 = excWkb.Worksheets(SHEET_NAME4)
intRow4 = excWks4.UsedRange.Rows.Count + 1



Dim Rng As Range

    Set Rng = ws2.Range("A" & intRow4 & ":AE" & intRow4 & "")

    With Rng.Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
    End With

---

有人能告诉我这个问题出在哪里吗？谢谢

xlContinuous

，

vbBlack

和

xlThin

都是Excel常量。如果您使用的是后期绑定，Outlook将无法识别它们。将其添加到代码的顶部

Const xlContinuous As Integer = 1
Const vbBlack As Integer = 0
Const xlThin As Integer = 2

---

另外，如果您使用的是上一次绑定，则将

Dim Rng As Range

更改为

Dim Rng As Object

也不要使用

intRow4=excWks4.UsedRange.Rows.Count+1

您可能会得到意外的结果，并最终在不需要的地方创建边框。使用方法查找最后一行