Foxtable中没有找到为Excel单元格增加批注的介绍,但有时需要为Excel单元格添加批注。例如,数据从Excel导入时,若原始数据有错,可以利用批注提示单元格错误信息。利用VBA试了一下,Foxtable支持为Excel单元格添加批注。示例代码如下:
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\导入测试.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Range("1:5").ClearComments '清除原有批注
Ws.Range("B3").AddComment("添加批注测试") 'B3单元格添加批注,注意批注内容在园括号内
App.Visible = True
补充说明:Excel单元格行号iRow、列号jCol使用变量时,可以改为:
Ws.Cells(iRow,jCol).AddComment("添加批注测试")
[此贴子已经被作者于2013-6-24 11:07:49编辑过]