0

我似乎无法在 Range.AddComment 的上下文中找到有关此错误的问题

我正在使用遍历选定行并向每个单元格添加注释的代码。有时它会在已经包含评论的单元格中写评论。我不确定我是否收到此错误，因为我在已包含评论的单元格上使用 .AddComment，或者是否出于与我的范围相关的其他原因。

 If IsDBNull(pobjComment) Then
                mwksSheet.Range(strExcelCol(pintCol) & (pintRow + 1)).AddComment(Nothing)
 Else
                mwksSheet.Range(strExcelCol(pintCol) & (pintRow + 1)).AddComment(pobjComment)
 End If

pobjComment 是一个通用对象；在我使用它的情况下，我将一个来自 DataColumn 的扩展属性的字符串值传递给它。

当 pobjComment 实际上是某些东西时会发生错误。如果问题是在其他评论上添加评论..那么我想知道是否应该先尝试删除任何现有评论，或者在尝试添加之前检查值是否相同...

4

0 回答 0