Fatal编程技术网
  • excel/
  • Excel 如何在VBScript For循环中检查错误

Excel 如何在VBScript For循环中检查错误

excel vbscript

Excel 如何在VBScript For循环中检查错误,excel,vbscript,Excel,Vbscript,如果出现错误，如何保持“For循环”。如果发生错误，我想在Excel工作表单元格中填写“未知” Function AddCommonDetail(ByVal ColCount) for i = 1 to ColCount WorkSheet.Cells(row, i).Value = DataSet(i).value Next 结束函数尝试以下操作： Function AddCommonDetail(ByVal ColCount) ' This tells it to

如果出现错误，如何保持“For循环”。如果发生错误，我想在Excel工作表单元格中填写“未知”

Function AddCommonDetail(ByVal ColCount)
  for i = 1 to ColCount 
    WorkSheet.Cells(row, i).Value  = DataSet(i).value
  Next
结束函数

尝试以下操作：

Function AddCommonDetail(ByVal ColCount)
  ' This tells it to just continue to the next statement if there's an error
  On Error Resume Next

  for i = 1 to ColCount 
    WorkSheet.Cells(row, i).Value = DataSet(i).value
    If Err.Number <> 0 Then
      Err.Clear
      WorkSheet.Cells(row, i).Value = "Unknown"
    End If
  Next

函数AddCommonDetail（ByVal ColCount）
'这告诉它，如果出现错误，只需继续执行下一个语句
出错时继续下一步
对于i=1到ColCount
工作表.Cells（行，i）.Value=数据集（i）.Value
如果错误号为0，则
呃，明白了
工作表.Cells（行，i）.Value=“未知”
如果结束
下一个
我不知道您的数据集（I）来自何处，但在依赖异常处理之前，请确保无法检查有效数据。您的数据集是否具有IsNull或IsEmpty属性？如果有，请使用它，您的代码将更干净。DataSet来自存储过程。大约有600条记录。在日期字段的第11条记录中写入电子表格失败。这是一个DB2数据库，第11条记录与所有其他记录一样返回一个有效日期，但由于某种原因，试图将该日期写入电子表格会产生错误，*.wsf文件会爆炸。存储过程执行错误检查。必须在函数的下一个内部设置错误恢复，它才能工作。谢谢。谢谢，我更新了答案中的代码。如果它对你有用，别忘了把它标记为答案@伙计，您需要将
OERN
或
Err.清除循环中的
，否则第一个错误发生后的所有下一项都将返回
Unknown
。