VBA 我想要添加指向 文件夹内每个工作簿 每个工作表的超链接，但是添加的超链接的代码好像没写一样，什么作用都没起。这是怎么回事，怎么解决

Sub test()
'添加工作簿
Dim wb, ws
Set wb = Workbooks.Add
Set ws = wb.ActiveSheet

ws.Columns("A:B").NumberFormatLocal="@"
ws.Columns("A:B").ColumnWidth = 20

Dim objFso, objGetFolder, i

i = 1

'创建FileSystemObject对象
Set objFso = CreateObject("Scripting.FileSystemObject")

'使用GetFolder()获得文件夹对象
Set objGetFolder = objFso.GetFolder("C:\Users\x1805\Desktop\新建文件夹")

'遍历Files集合获取文件名称
For Each Filename In objGetFolder.Files

'打开文件夹下的工作簿
Set wb = Workbooks.Open("C:\Users\x1805\Desktop\新建文件夹" & "" & Filename.Name, UpdateLinks:=0)

For Each MySheet In Workbooks(Filename.Name).Worksheets

ws.Range("B" & i) = "'" & MySheet.Range("A17")

ws.Hyperlinks.Add Anchor:=Range("a" & i),
Address:="C:\Users\x1805\Desktop\新建文件夹" & "" & Filename.Name,
SubAddress:= _"'" & MySheet.Name & "'" & "!a17",
TextToDisplay:="'" & MySheet.Name

i = i + 1

Next

Workbooks(Filename.Name).Close savechanges:=False

i = i + 1

Next

End Sub