Excel VBA中的超链接循环

我有一个问题，因为我想为文件夹制作带有make hyperlink的程序，我已经有了这个部分：

Dim a As String
Dim i As Long
Dim ark1 As Worksheet
Set ark1 = Arkusz1

For i = 1 To 3
    ark1.Cells(i, "A").Select
    a = "TR_" & i
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="C:/" & a, _
    SubAddress:="", ScreenTip:="a", TextToDisplay:=a
Next i

End Sub

但我有文件夹： 特鲁乔恩 TR_2_Allex等。

---

有可能使excel只识别第一部分：“TR_1_*******？

您可以使用以下代码解析子文件夹，然后将其用于超链接：

Public Sub Test()
    Set fso = CreateObject("Scripting.FileSystemObject")
    FolderName = "D:\" 'Replace it with selected folder
    Set FSOLibrary = CreateObject("Scripting.FileSystemObject")
    Set FSOFolder = FSOLibrary.GetFolder(FolderName)
    For Each oSubfolder In FSOFolder.SubFolders
            MsgBox oSubfolder
    Next oSubfolder
End Sub

编辑：

---

好的，这可能对我有帮助，但还有一个问题：我如何将其保存到工作表中？我在VBA方面不是很高级，也从来没有使用过这个循环，我不知道如何在单个单元格中写下结果。”a=a+1 ark1。单元格（a，“a”）=oSubfolder“”？

Public Sub NonRecursiveMethod()
    Set fso = CreateObject("Scripting.FileSystemObject")
    FolderName = "D:\" 'Replace it with selected folder
    Set FSOLibrary = CreateObject("Scripting.FileSystemObject")
    Set FSOFolder = FSOLibrary.GetFolder(FolderName)
    i = 1
    For Each oSubfolder In FSOFolder.SubFolders
            ActiveSheet.Cells(i, "A") = oSubfolder.Name
            Cells(i, "A").Hyperlinks.Add Anchor:=Cells(i, "A"), Address:=oSubfolder, SubAddress:=""
            i = i + 1
    Next oSubfolder
End Sub