使用Delphi读取Excel单元格批注时如何判断是否存在批注？

Question

使用
PZ:=ExcelWS.Cells.Item[11,6].Comment.Text(EmptyParam,EmptyParam,EmptyParam)
赋值时如果不存在批注异常，那么怎么判断Excel中单元格是否有批注呢？
现在好像想岔了，有没有可能判断ExcelWorkSheet是否有Comments属性呢？

Answer 1

我發覺樓主是不是思路錯了。EXcel有批注嗎？

Answer 2

//導入EXceltoSQL
var
  Sql : String;
begin
  ADOQuery1.Close;                    //ADOQuery1?接SqlServer的Connection
  ADOQuery1.SQL.Clear;                 //清空Sql
  Sql:='Insert Into Tbl1(id,name,sex,ph,aDAT) SELECT id,name,sex,ph,aDAT FROM OPENROWSET(''MICROSOFT.JET.OLEDB.4.0'',''Excel 5.0;HDR=YES;DATABASE=d:\d.xls'',sheet1$)' ;//sheet1$要求的Excel表格
  ADOQuery1.SQL.Add(Sql);//?行Sql
  ADOQuery1.ExecSQL;
end;

Answer 3

EXcel有批注的，ＶＢＡ的可以通过宏来写．．但ＤＥＬＰＨＩ应该也可用宏来写...但没写过..

Answer 4

批注可以这样判断：
if ExcelWS.Cells.Item[11,6].Comment <> nil then
  PZ:=ExcelWS.Cells.Item[11,6].Comment.Text(EmptyParam,EmptyParam,EmptyParam)