VB.Net For Loop 不会执行

Question

我目前正在使用“调用代码”活动在 UiPath 中执行以下 VB.Net 代码。 For循环没有给出任何语法错误，但If语句似乎没有执行。 我在循环中引用范围的方式是否有问题（即ws.range("F" & i).Value ）？

'create instances of excel and open final file
Dim excel As Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Dim ws As Microsoft.Office.Interop.Excel.Worksheet
    excel = New Microsoft.Office.Interop.Excel.ApplicationClass
    wb = excel.Workbooks.Open("FilePath.xlsx")
    ws= DirectCast(wb.Worksheets(1),Microsoft.Office.Interop.Excel.Worksheet)
    
'Delete the first row of the worksheet
ws.Range("A1").EntireRow.Delete

'Define the last row of the worksheet
Dim LastRow As Long
    LastRow = ws.UsedRange.Rows.Count

'Delete the last row (the Total column)
        ws.Range("A" & LastRow).EntireRow.Delete

LastRow = ws.UsedRange.Rows.Count

Dim i As Long

    For i = 2 To LastRow
        If ws.range("F" & i).Value Is "Declined"  Then 
            ws.range("F" & i).EntireRow.ClearContents
        End If
    Next i
      
'Save and close application
excel.activeworkbook.save
excel.Workbooks.close()
excel.Quit()

Answer 1

您的If条件将始终返回 false 因为Is不比较内容； 它检查两个 object 引用是否引用相同的 object（是的，字符串是一个对象），在这种情况下是错误的。

相反，您应该使用=运算符来比较两个字符串。 但是，由于 Range.Value 的编译时类型是Range.Value ，因此您必须Object其转换为字符串。 将您的代码更改为以下内容：

For i = 2 To LastRow
    Dim currentCell = ws.Range("F" & i)

    If currentCell.Value IsNot Nothing AndAlso currentCell.Value.ToString() = "Declined" Then
        currentCell.EntireRow.ClearContents()
    End If
Next

---

参考：

• VB.NET 中的比较运算符。
• Is运算符。