Pessoal, criei em VBA no Excel um código para extrair nomes de arquivos que tenho em uma pasta no PC. Essa pasta é constantemente atualizada com novos arquivos e o número de arquivos já ultrapassou o número de linhas disponíveis no Excel, por isso preciso migrar para o Access. O problema é que não consegui replicar o mesmo projeto. Se alguém puder ajudar, segue o código construído para o Excel:
Sub listfiles()
Dim sPath As String
Dim vaArray As Variant
Dim i As Integer
Dim oFile As Object
Dim oFSO As Object
Dim oFolder As Object
Dim oFiles As Object
sPath = Worksheets("Importar placas").Rows(1).Columns(2)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sPath)
Set oFiles = oFolder.Files
If oFiles.Count = 0 Then Exit Sub
ReDim vaArray(1 To oFiles.Count)
i = 1
For Each oFile In oFiles
vaArray(i) = oFile.Name
Worksheets("Placas").Rows(i).Columns(1) = vaArray(i)
i = i + 1
Next
End Sub
Grande abraço
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Extrair nomes de arquivos em diretório - Access
Moderador: joseA
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Qui Abr 25, 2019 12:03 pm