使用 SQL 语句作为我的 While 的 VBA While 循环

Question

我正在一些电子表格后面编写一些代码，并且需要循环执行一些代码，例如从数据库获取数据执行一些公式并将数据移动到新工作表。我从数据库获取数据的代码是获取多个列中的所有值，其中数据尚未报告并且具有相同的文件名（数据来自文件），我有一个字段说明是否它由一个简单的“Y”或“N”以及一个保存其来源的文件名的字段来报告。

所以我需要一段时间，“WHILE”有尚未报告的数据来完成我的其余代码（这包括我所说的第一个 SQL 语句，因为它获取尚未从每个单独的文件名报告的数据）。

我已经尝试让它工作好几天了，但一直不知道如何做，所以任何帮助将非常感激。

更新：

数据库有一个名为 datareported 的实体，可以是“N”或“Y”，还有 datadatfile，它是数据来源的名称。

因此，

WHILE datareported = 'N' THEN
"SELECT (the data rows I want)
FROM tbldata
WHERE datareported='N' and datadatfile =
(SELECT min(datadatfile)
    FROM tbldata WHERE datareported='N')"

这意味着我会循环执行代码的其余部分，同时存在尚未报告的数据，并且仅引入同名的数据（来自 datadatfile ），以便可以在该数据上运行代码。

这基本上就是我想做的，也是我尝试过的。我尝试了其他一些方法，通常会返回类型不匹配的结果。

干杯，

萨姆

Answer 1

解决方案需要更多信息，但这可能有助于推动您走向正确的方向...

'ws1 = worksheet object...
bC = true
cnt1 = 2 ' starting row
Do While bC

If ws1.cells(cnt1, 1) = "N" Then
'Run your SQL here
Else
'Already reported...
End If
cnt1 = cnt1 + 1
If 'you hit the last row on your worksheet set bC = False to exit loop      
Loop

错过了更新...这不会有帮助，抱歉。