Vba loop through files in folder

'The short version
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Contacts")
If Not (rs.EOF And rs.BOF) Then
	Do Until rs.EOF = True
		rs.MoveNext
	Loop
End If
rs.Close
Set rs = Nothing

Source: stackoverflow.com

Similar codes

1 vote223 views1 answer
Random number generator vb.net
VBA
0 vote216 views1 answer
Putting marquee in vb.net
VBA
0 vote220 views2 answers
Do until loop vba
VBA
0 vote217 views1 answer
Xlbycolumns is not declared
VBA
0 vote222 views1 answer
Get current url vb.net
VBA
0 vote221 views2 answers
Open url from vba
VBA
0 vote226 views1 answer
Excel vba StartUpPosition
VBA
0 vote213 views1 answer
Remove first character from string vb
VBA
0 vote225 views1 answer
Vba html document reference
VBA
5 votes236 views1 answer
Excel vba get user selected range
VBA