“Excel VBA Loop za pośrednictwem plików w folderze” Kod odpowiedzi

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

Excel VBA Loop za pośrednictwem plików w folderze

Sub LoopThroughFiles()
    Dim StrFile As String
    StrFile = Dir("c:\testfolder\*test*")
    Do While Len(StrFile) > 0
        Debug.Print StrFile
        StrFile = Dir
    Loop
End Sub
Purple Tentacle

Odpowiedzi podobne do “Excel VBA Loop za pośrednictwem plików w folderze”

Pytania podobne do “Excel VBA Loop za pośrednictwem plików w folderze”

Więcej pokrewnych odpowiedzi na “Excel VBA Loop za pośrednictwem plików w folderze” w VBA

Przeglądaj popularne odpowiedzi na kod według języka

Przeglądaj inne języki kodu