主题：[求助]怎么获取EXCEL表中批注为特定内容的某个单元格的值？

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("e:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

If ws.cells(2,1).Comment Is Nothing Then '第二行，第一列
    msgbox("没有标注")
Else
    Dim pz As String = ws.cells(2,1).Comment.Text
    msgbox(pz)
End If

app.quit