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

0 vote153 views1 answer
Search for text in every worksheet excel visual basic
VBA
1 vote129 views1 answer
Highlight selected cell in excel vba
VBA
0 vote137 views1 answer
Vba dictionary clear
VBA
0 vote131 views1 answer
Vba shape transparent
VBA
0 vote158 views1 answer
How to enter Vbox manage commands
VBA
0 vote125 views1 answer
Vba open report
VBA
0 vote139 views1 answer
Vba exit while
VBA
5 votes143 views1 answer
Excel vba low word from Long Integer
VBA
0 vote136 views1 answer
Remove series name from legendvbnet
VBA
0 vote127 views1 answer
Visual basic msdos
VBA