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

5 votes209 views1 answer
Vba low word from Long Integer
VBA
0 vote184 views1 answer
Excel run macro every 5 minutes
VBA
0 vote184 views1 answer
Excel vba ternary
VBA
0 vote188 views1 answer
Reset border color textbox vba
VBA
18 votes389 views2 answers
Vba make word from bytes
VBA
0 vote180 views1 answer
WGET FTP
VBA
0 vote177 views1 answer
Excel vba formatconditions range
VBA
0 vote180 views1 answer
Vba add spaces
VBA
0 vote166 views2 answers
Excel vba prevent save
VBA
1 vote185 views1 answer
Add rows to datagridview vb.net
VBA