VBAlogging与不同的logging

我有一个简单的循环代码，从SQL查询中提取数据。 SQL查询本身只能撤回前5个logging。 然而，根据我在看哪个帐户，我不会总是得到5条logging有时只是一两个。 我想知道如何才能得到的代码只是循环通过那里没有错误，当它不能find第3,4或5行？

提前致谢

For i = 0 To 4 Sheets("Exposures").Range("F36").Offset(i, 0).Value = rst2.Fields("Country") Sheets("Exposures").Range("I36").Offset(i, 0).Value = rst2.Fields("Value") rst2.MoveNext Next i 

Answer 1

循环，但只有有可用的行时：

 do while not rst2.EOF ... i = i + 1 rst2.MoveNext loop 

Answer 2

你可以使用Range.CopyFromRecordset方法。 看到这里 。
dynamic的，可能比循环更快。
我想我记得它有一个错误，如果你有非常大（2KB以上）的文本字段，但是。 如果不是你的情况，那就去吧。

 Sheets("Exposures").Range("I36").CopyFromRecordset rst2