pętla VBA za pośrednictwem plików w folderze
'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
Saphirah