M\u00e9todo 1: liste todos os arquivos da pasta<\/span><\/strong><\/p>\n M\u00e9todo 2: listar apenas arquivos .xlsx na pasta<\/span><\/strong><\/p>\n Os exemplos a seguir mostram como usar cada m\u00e9todo na pr\u00e1tica com uma pasta que possui o seguinte caminho de arquivo:<\/span><\/p>\n A pasta cont\u00e9m dois arquivos .xlsx<\/strong> e tr\u00eas arquivos .csv<\/strong> :<\/span> <\/p>\n Podemos criar a seguinte macro para listar todos os arquivos da pasta:<\/span><\/p>\n Quando executamos esta macro, recebemos a seguinte sa\u00edda:<\/span> <\/p>\n Podemos ver que os nomes de todos os arquivos da pasta (independentemente da extens\u00e3o) agora est\u00e3o listados na coluna A da nossa planilha Excel.<\/span><\/p>\n Podemos criar a seguinte macro para listar apenas os arquivos que possuem extens\u00e3o .xlsx<\/strong> na pasta:<\/span><\/p>\n Quando executamos esta macro, recebemos a seguinte sa\u00edda:<\/span> <\/p>\n Podemos ver que os nomes apenas dos arquivos com extens\u00e3o .xlsx<\/strong> na pasta agora est\u00e3o listados na coluna A de nossa planilha Excel.<\/span><\/p>\n Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:<\/span><\/p>\n Como criar pastas usando VBA<\/a> Voc\u00ea pode usar os seguintes m\u00e9todos em VBA para listar arquivos em uma pasta: M\u00e9todo 1: liste todos os arquivos da pasta SubListFiles () Dim i As Integer Dim oFSO As Object Dim oFolder As Object Dim objFile As Object Set oFSO = CreateObject(“Scripting.FileSystemObject”) Set oFolder = oFSO.GetFolder(“C:\\Users\\bob\\Documents\\current_data”) For Each objFile In oFolder.Files Cells(i + […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-4874","post","type-post","status-publish","format-standard","hentry","category-guia"],"yoast_head":"\n SubListFiles<\/span> ()\n\nDim<\/span> i As<\/span> Integer\nDim<\/span> oFSO As<\/span> Object\nDim<\/span> oFolder As<\/span> Object\nDim<\/span> objFile As<\/span> Object\n\nSet<\/span> oFSO = CreateObject(\"Scripting.FileSystemObject\")\n\nSet<\/span> oFolder = oFSO.GetFolder(\"C:\\Users\\bob\\Documents\\current_data\")\n\nFor Each<\/span> objFile In<\/span> oFolder.Files\n Cells(i + 1, 1) = objFile.Name\n i = i + 1\nNext<\/span> objFile\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n SubListFiles<\/span> ()\n\nDim<\/span> i As<\/span> Integer\nDim<\/span> oFSO As<\/span> Object\nDim<\/span> oFolder As<\/span> Object\nDim<\/span> objFile As<\/span> Object\n\nSet<\/span> oFSO = CreateObject(\"Scripting.FileSystemObject\")\n\nSet<\/span> oFolder = oFSO.GetFolder(\"C:\\Users\\bob\\Documents\\current_data\")\n\nFor Each<\/span> objFile In<\/span> oFolder.Files\n If<\/span> Right(objFile.Name, 4) = \"xlsx\" Then<\/span>\n Cells(i + 1, 1) = objFile.Name\n i = i + 1\n End If<\/span>\nNext<\/span> objFile\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n\n
![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/liste1.png\")
<\/p>\n Exemplo 1: Liste todos os arquivos na pasta<\/strong><\/span><\/h2>\n
SubListFiles<\/span> ()\n\nDim<\/span> i As<\/span> Integer\nDim<\/span> oFSO As<\/span> Object\nDim<\/span> oFolder As<\/span> Object\nDim<\/span> objFile As<\/span> Object\n\nSet<\/span> oFSO = CreateObject(\"Scripting.FileSystemObject\")\n\nSet<\/span> oFolder = oFSO.GetFolder(\"C:\\Users\\bob\\Documents\\current_data\")\n\nFor Each<\/span> objFile In<\/span> oFolder.Files\n Cells(i + 1, 1) = objFile.Name\n i = i + 1\nNext<\/span> objFile\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/liste2.png\")
<\/p>\n Exemplo 2: listar apenas arquivos .xlsx na pasta<\/strong><\/span><\/h2>\n
SubListFiles<\/span> ()\n\nDim<\/span> i As<\/span> Integer\nDim<\/span> oFSO As<\/span> Object\nDim<\/span> oFolder As<\/span> Object\nDim<\/span> objFile As<\/span> Object\n\nSet<\/span> oFSO = CreateObject(\"Scripting.FileSystemObject\")\n\nSet<\/span> oFolder = oFSO.GetFolder(\"C:\\Users\\bob\\Documents\\current_data\")\n\nFor Each<\/span> objFile In<\/span> oFolder.Files\n If<\/span> Right(objFile.Name, 4) = \"xlsx\" Then<\/span>\n Cells(i + 1, 1) = objFile.Name\n i = i + 1\n End If<\/span>\nNext<\/span> objFile\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/liste3.png\")
<\/p>\n Recursos adicionais<\/strong><\/span><\/h2>\n
Como deletar pastas usando VBA<\/a>
Como renomear um arquivo usando VBA<\/a>
Como verificar se o arquivo existe usando VBA<\/a>
<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"