VBA记录集问题
问题描述:
为什么如果括号中的数字大于1272,该函数将返回所有NA值。如果数字小于1273,则该功能正常工作。VBA记录集问题
Set db = OpenDatabase(DBFullName)
Set rs = db.OpenRecordset("SELECT * FROM SGXIO_Database")
Dim arr As Variant
Dim temp As Range
Dim counter As Variant
Dim num As Integer
rs.MoveLast
counter = rs.RecordCount
rs.MoveFirst
'bdd is the function name
bdd = Application.Transpose(rs.GetRows(1272))
Set rs = Nothing
db.Close
Set db = Nothing
答
很可能是因为ADO吮吸并遇到各种内存限制,您不会期望。你可以通过分块来解决你的问题。每次只处理1000条记录。使用GetRows的第二个参数来告诉它上次离开的位置。 http://www.w3schools.com/ado/met_rs_getrows.asp
你想用'1272'做什么? –