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 vote182 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote187 views1 answer
For each item in folder outlook vba
VBA
3 votes190 views1 answer
Excel insert blank row for value change in column
VBA
3 votes171 views1 answer
Excel vba last row in range
VBA
0 vote178 views1 answer
Excel vba ternary
VBA
1 vote172 views1 answer
Vba refresh pivot table
VBA
0 vote157 views1 answer
Vbnet add new ecel sheet
VBA
0 vote177 views1 answer
Ribbon show/hide
VBA
0 vote186 views1 answer
How to add line graph vb net
VBA
4 votes190 views1 answer
VBA Deep Clone Dictionary
VBA