Ссылка на оригинальный документ - PullRequest
Новая
       6

Ссылка на оригинальный документ

0 голосов
/ 27 сентября 2018

мне нужна помощь.Я нашел этот код, который очень полезен в том, что мне нужно, однако в нем отсутствуют 2 вещи, которые я не нахожу, как это сделать.Мне нужно было, чтобы файлы, которые читаются из каталога, имели ссылку на местоположение или щелкали в Excel, в каждом из них можно было открыть свою часть.Можете мне помочь? 

Sub ListaArquivosDiretorio()
Dim strOrigem As String
Dim strExtensao As String

strOrigem = Range("origem")
strExtensao = Range("extensao")

'Coloca barra no final, caso nao exista
If Right(strOrigem, 1) <> "\" Then
   strOrigem = strOrigem & "\"
End If

'Apaga resultados anteriores
Range("B9:B1048576").Select
Selection.Delete Shift:=xlUp
Range("A1").Select

Range("B9").Select 'Inicia a selecao no primeiro arquivo

'Define a string de busca e extensão
strFile = Dir(strOrigem & "*" & strExtensao)

Do While strFile <> ""
    ActiveCell = strFile
    strFile = Dir
    ActiveCell.Offset(1, 0).Select
Loop

End Sub
...