Как да направя VBA макрос за ексел за хиперлинк на файлове от дадена папка

Question

Здравейте, моля за помощ имам папка с файлове и искам да направя в ексел хиперлинк към тях. Намерих от един форум този код но ми дава грешка не знам, защо

```
Sub Macro1()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\Asus\Desktop\1\") 'Change path here
i = 1
For Each objFile In objFolder.Files
    Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        objFile.Path, _
        TextToDisplay:=objFile.Name
    i = i + 1
Next objFile
End Sub
```
https://www.youtube.com/watch?v=7Cbuivl52EI
https://chandoo.org/forum/threads/create-hyperlinks.33046/

Някой ако може да ми помогне ще съм много благодарен.
Благодаря предварително

Kocho · Accepted Answer

Какво се опитвате да направите?

Имате папка, в нея файлове
Искате в Ексел файл да излезе списък с файловете в папката и хиперлинк към всеки един от тях?

Предполагам трябва да е динамично - като се добави, премахне или преименува файл в папката това да се отрази в списъка?

това ли е целта Ви?

Как да направя VBA макрос за ексел за хиперлинк на файлове от дадена папка

Вашият отговор

Запиши се в Аула

Запиши се в Аула