'批量创建指定文件夹中所有子文件夹超链接。
Sub linkAll()
    Dim fs, f, f1, fc, i
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(ThisWorkbook.Path)
    Set fc = f.SubFolders
    i = 0
    For Each f1 In fc
        i = i + 1
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=f1.Path, _
        TextToDisplay:=f1.Name
    Next
    MsgBox "处理完毕!"
End Sub