根据单元格值创建查询表

Question

我希望宏在 C 列（工作表“跟踪器”上）从上到下运行，以查找与“等待”、“延迟”、“新建”或“待定”文本匹配的任何单元格。

每次找到匹配项时，我都想在工作表“X”上运行带有地址的网络查询：

"http://efm/telecom/engineeringWorkOrders/viewEWOStatusLog.aspx?ewonumber=" + C列中匹配单元格中A列中的相应值。

If (in Sheet "Tracker") Range("C" & CurRow).Value is "New" Then
    Run a web query in Sheet "X" (Starting in cell A1) with the address: "http://efm/telecom/engineeringWorkOrders/viewEWOStatusLog.aspx?ewonumber=" & Range("A" & CurRow).Value

Answer 1

我不太了解您的查询条件，因为您没有列出它们，但这将处理您的循环和输出需求：

Sub QueryIt()
    Dim CurRow As Long, LastRow As Long, DestRow As Long

    LastRow = Sheets("Tracker").Range("C" & Rows.Count).End(xlUp).Row
    For CurRow = 1 to LastRow
        If Sheets("Tracker").Range("C" & CurRow).Value = "New" Then
            DestRow = Sheets("X").Range("A" & Rows.Count).End(xlUp).Row + 1
            'Query command with address: "http://efm/telecom/engineeringWorkOrders/viewEWOStatusLog.aspx?ewonumber=" & Sheets("Tracker").Range("A" & CurRow).Value
            'Output query to Sheets("X").Range("A" & DestRow).Value
        End If
    Next CurRow
End Sub