使用 MS Access 向 MS Excel 范围对象添加注释

Question

我正在尝试在 MS Access 模块中编写一个子例程，该模块访问 MS Excel 工作表并向指定范围添加注释。我正在使用后期绑定，这样我的信心不足的用户就不需要摆弄添加引用。尝试将 cmets 添加到范围对象时，会引发以下错误：

运行时错误“1004”：应用程序定义的或对象定义的错误。

使用以下示例代码，假设打开的工作表有一个带有注释“Hello”的单元格 A1，带有注释“World”的单元格 A2，并且单元格 A3 没有注释。

Sub export(strFilePath As String)
 Dim XL As Object
 Dim WB as Object
 Dim WS as Object
 Set XL = CreateObject("Excel.Application")
 XL.Workbooks.Open strFilePath
 Set WB = XL.Workbooks(1)
 Set WS = WB.Sheets("ExportSheet")

 Debug.Print WS.Comments.Count 'returns accurate number of comments on sheet (2)
 Debug.Print WS.Range("a1").Comment.Text 'returns comment of cell A1 (Hello)
 WS.Range("a1").Comment.Delete 'removes comment of cell A1
 Debug.Print WS.Comments.Count 'returns accurate number of comments on sheet (1)
 Debug.Print WS.Range("a2").Comment.Text 'returns comment of cell A2 (World)
 WS.Range("a2").ClearComments 'removes comment of cell A2
 Debug.Print WS.Comments.Count 'returns accurate number of comments on sheet (0)

 WS.Range("a3").AddComment("HelloAgain") 'causes 1004 error
 WS.Range("a3").AddComment "HelloAgain" 'also causes 1004 error, if the above line is commented out

End Sub

除了range.AddComment 方法外，我可以访问与 cmets 相关的方法。 如何添加评论？

Answer 1

当单元格 A3 已包含注释时，会发生此错误。我能够重现它。

>>>编辑 - 尝试向任何单元格添加评论时出现问题

如果工作表与另一个工作表分组，也会出现此问题。见http://www.pcreview.co.uk/forums/did-lose-ability-add-edit-comments-excel-t3837597.html

复制：

1. 在 Excel 中打开工作簿，然后单击 Sheet1 选项卡。
2. 按住 Shift 键，单击 Sheet2。这会导致工作表 1 和 2 被分组。
3. 右键单击任何单元格。 “插入评论”选项不见了！
4. 在审核/评论下，“新评论”选项是灰色的！

修复：

如果这确实是您的问题，请尝试添加一行代码来取消工作表的分组。

 Set WS = WB.Sheets("ExportSheet")
 WS.Select      ' ungroup worksheets  <-- ADD THIS CODE

我发现了如何使用 VBA 通过录制宏来取消组合工作表。我右键单击 Sheet 选项卡并选择“Ungroup Sheets”，然后查看生成的代码。

Answer 2

发生错误是因为已有评论。如果你想覆盖任何现有的评论，但不确定单元格是否已经有评论，你可以调用 Range 对象的.ClearComments 方法。这将从单元格中清除任何现有的 cmets，但如果当前不存在评论，则不会引发错误。

WS.Range("a3").ClearComments
WS.Range("a3").AddComment "HelloAgain"