从Outlook中插入行的边界在Excel中

我正在使用一个macros，当Outlook打开插入一些电子邮件的数据，在Excel中的行，我想添加一个边界到我的Excel中的行A范围到AE。

我正在使用intRow4来确定我的信息input的行地址。 所以我的代码看起来像这样，但我得到一个Dim Rng As Range的对象未定义的错误，因为我得到的感觉前景不支持它。

 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 

有人可以告诉我哪里我错了吗？ 谢谢

Answer 1

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