vba - 匹配查询中找到的数据

Question

我需要创建一个VBA代码，以计算我创建的查询中的数据是否匹配。我发现很难开始编写代码。

我开始做的事情如下:

Private Sub Analyse_Click()
Dim row As Long
With Query("qry_test1").Range((qry_test1Range))

    For row = 1 To .rows.Count

    If .Cells(row, AccountingPeriodCol).Value Like AccountingPeriodCriteria

    Debug.Print .Cells(row, ValueCol)

   End If
End Sub

其错误，因为出现错误的错误参数数目或无效的属性分配。

可以请一些这样解释问题的人吗

Answer 1

除了将Sheets("WorksheetName")替换为Query("qry_test1")之外，您在代码中获得的是Excel-VBA。

这行不通。对于类似的东西，您想使用SQL。

阅读基本语法的tutorial。

Create → Query Design → SQL View。

编写您的SQL。沿线的东西

SELECT * 
FROM qry_Test 
WHERE AccountingPeriod = 'your Criteria'` 

应该做你想做的。

(可选)将其包装到VBA中