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 vote359 views1 answer
Vbnet revrese the order of character in string
VBA
0 vote327 views1 answer
Vba len variant
VBA
5 votes410 views1 answer
Excel vba get low byte from INTEGER
VBA
5 votes372 views1 answer
Excel vba left word from Long Integer
VBA
0 vote318 views1 answer
Visual basic msdos
VBA
0 vote338 views1 answer
Vbnet make a string to unicode converter
VBA
0 vote330 views1 answer
Vb get ip address
VBA
3 votes321 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
-1 vote318 views2 answers
How close excel through visual basic
VBA
0 vote321 views1 answer
Vba paste values
VBA