Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Extrair nomes de arquivos em diretório - Access

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

danieldumaresq
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Abr 25, 2019 12:03 pm

Extrair nomes de arquivos em diretório - Access

Mensagem por danieldumaresq »

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 :D


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder