Dim App As New MSExcel.Application Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("d:\test.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) Ws.Range("1:5").ClearComments '清除原有批注 Ws.Range("B2").AddComment("批注测试,20140514添加") 'B2单元格添加批注,注意批注内容在园括号内 app.visible = True