判断Excel单元格中是否有错

在一个封装的Excel操作类,遍历的时候需要判断某个单元格是否有错。因为可能这个单元格是配置计算公式的,在公式参数为空时,提示错误是正常的。因此,如果提示单元格有错,应该跳过,而不应该继续取这个单元格值。

有Cell类中,简单地增加一个只读属性字段来实现些功能。

    dynamic _cell = null;

    public dynamic Cell
        {
            get
            {
                return _cell;
            }
            set
            {
                if (value != null)
                    _cell = value;
            }
        }

     /// <summary>
        /// 检查当前单元格是否有错
        /// </summary>
        public bool HasError
        {
            get
            {
                var errors = new List<string>{"#DIV/0!","#N/A","#NAME?","#NULL!","#NUM!","#RRF!","#VALUE!"}
                ;
                if (errors.Any(i => i == _cell.Text.ToString().ToUpper()))
                {
                    return true;
                }
                else
                {
                    return false;
                }
            }
        }

 

使用时:

      //遍历当前的Range
            for (int j = 2; j <= range.RowsCount; j++)
            {
                for (int k = 1; k <= range.ColumnsCount; k++)
                {
                  

                    var cell = workSheet.GetCell(j, k);

                    if (cell.HasError)
                    {
                        continue;
                    }
                    var cellValue = cell.Value;
            //.........................
          }
        }

转载于:https://www.cnblogs.com/oneivan/archive/2012/11/22/2782330.html

### 如何在 Delphi 中检测 Excel 单元格是否存在下拉框 在 Delphi 中操作 Excel 的功能可以通过使用 COM 自动化接口实现。要检测 Excel 单元格是否存在下拉框,可以利用 Excel 的 `Validation` 对象。该对象提供了对数据验证规则的访问,包括下拉列表(Dropdown)。以下是一个完整的解决方案[^1]: #### 检测单元格是否存在下拉框 通过检查单元格的 `Validation.Type` 属性,可以确定单元格是否包含下拉列表。如果类型为 `xlValidateList`,则表示该单元格设置了下拉列表。 ```delphi uses ComObj, Variants; procedure DetectDropdownInExcelCell(const FileName: WideString; SheetName: String; Row, Col: Integer); var ExcelApp, Workbook, Worksheet, Validation: OleVariant; begin try // 创建 Excel 应用程序实例 ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.Visible := False; // 打开工作簿 Workbook := ExcelApp.Workbooks.Open(FileName); // 获取指定的工作表 Worksheet := Workbook.Sheets[SheetName]; // 获取单元格的验证对象 Validation := Worksheet.Cells[Row, Col].Validation; if not VarIsNull(Validation) and (Validation.Type_ = 3) then // xlValidateList = 3 begin Writeln('单元格包含下拉框'); end else begin Writeln('单元格不包含下拉框'); end; finally // 清理资源 Workbook.Close(False); ExcelApp.Quit; Workbook := Unassigned; Worksheet := Unassigned; ExcelApp := Unassigned; end; end; ``` #### 关键点说明 - **COM 自动化**:Delphi 使用 `ComObj` 单元来创建和操作 Excel COM 对象。 - **Validation.Type_**:此属性返回单元格的验证类型。对于下拉列表,其值为 `3`,即 `xlValidateList`[^2]。 - **资源清理**:确保在完成操作后正确释放 Excel 对象,以避免内存泄漏。 #### 示例调用 假设需要检测文件 `C:\example.xlsx` 中工作表 `Sheet1` 的 A1 单元格是否存在下拉框,可以这样调用: ```delphi DetectDropdownInExcelCell('C:\example.xlsx', 'Sheet1', 1, 1); ``` ### 注意事项 - 在运行代码前,请确保已安装 Microsoft Excel,并且系统支持 COM 自动化。 - 如果目标单元格没有设置数据验证规则,则 `Validation.Type_` 将返回其他值或为空。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值