根据单元格值创build查询表

我希望macros在C列（在“Sheet Tracker”上）从上到下运行，以查找与“Waiting”，“Deferred”，“New”或“Pending”文本匹配的单元格。

每次find匹配的时候，我都想在Sheet“X”上运行一个Web查询，地址为：

“ http：//efm/telecom/engineeringWorkOrders/viewEWOStatusLog.aspx？ewonumber = ”+列C中的匹配单元格的相应值

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