“Excel VBA Loop através de arquivos na pasta” Respostas de código

VBA Loop através de arquivos na pasta

'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 através de arquivos na pasta

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

Respostas semelhantes a “Excel VBA Loop através de arquivos na pasta”

Perguntas semelhantes a “Excel VBA Loop através de arquivos na pasta”

Mais respostas relacionadas para “Excel VBA Loop através de arquivos na pasta” em VBA

Procure respostas de código populares por idioma

Procurar outros idiomas de código