Как автоматически гиперссылку на папки из Excel

Question

У меня есть 500 папок с определенной строкой имен, например, Aseem-tb-rd-001 , Taj-tb-rd-006 и т.д.

Каждая папка имеет две подпапки, точно названные In и Out .

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

например, если ячейка H3 в листе In имеет имя Taj-tb-rd-006 , я хочу, чтобы гиперссылка ссылалась на папку Taj-tb-rd-006\In и если ячейка H8 в листе Out имеет имя Taj-tb-rd-006 , я хочу, чтобы гиперссылка ссылалась на папку Taj-tb-rd-006\Out .

Можно ли это сделать любым способом?

Answer 1

Вы можете сделать это с помощью формулы. Я бы начал с:

= HYPERLINK(H3 & "\ из")

Изменить Извините, неправильно прочитал вопрос. Другая половина ответа состоит в том, что вам нужен некоторый код VBA, подобный этому, модифицированный из этого ответа на SO:

Sub LoopThroughFiles()
    Dim MyObj As Object, MySource As Object, file As Variant, i As Integer
    file = Dir("D:\My Folder\", vbDirectory)
    While (file <> "")
       i = i + 1
       ActiveSheet.Cells(i, 1) = file
       file = Dir
   Wend
End Sub