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 vote151 views1 answer
Highlight selected cell in excel vba
VBA
1 vote146 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote153 views1 answer
Make your computer talk vbscript
VBA
3 votes165 views1 answer
Excel vba get the workbook full filename with path
VBA
0 vote161 views1 answer
Prive sub enter clicked vb
VBA
0 vote149 views2 answers
Delete all controls from list of control vb.net
VBA
0 vote167 views1 answer
Excel vba protect scenarios
VBA
0 vote164 views1 answer
Visual stuiod not recognising desgined labels
VBA
4 votes148 views1 answer
Excel vba determine number of elements in an array
VBA
1 vote146 views1 answer
What does vbs stand for
VBA