Excel VBA遍历所有sheet创作目录并超链接，无视特殊符号

通过VBA遍历所有的sheet并在第一页创建超链接很简单，网上已经提供了很多相关的例子，我在此列举一种最简单的，直接copy即可使用，如下：

Sub lianjie()

Dim x As Long
x = 0
For x = 1 To Sheets.Count '从第四页开始

    Sheet1.Hyperlinks.Add Anchor:=Cells(x, 1),  _

    Address:=ActiveWorkbook.Name,    _

    SubAddress:=Sheets(x).Name & "!A1", _

    TextToDisplay:=Sheets(x).Name

Next
End Sub

但是，正如大部分网上的教程，这种简单的创建链接并没有考虑到当sheet名字含有空格逗号句号等（,. ）特殊符号时的情况，此时正常名字的sheet都会直接链接过去，但是含有特殊符号的sheet就会失败，显示“链接无效”！

那么，终极大法来了，无视一切特殊符号，完美解决链接问题，代码如下（注意红色加粗部分）：

原因就是给页签名字加上单引号，这才是标准的做法，当不加的时候也可以识别，但是弊端就是含有特殊符号时会出现问题，所以建议大家始终按照第二种方案来解决。

Sub lianjie()

Dim x As Long
x = 0
For x = 1 To Sheets.Count '从第四页开始

    Sheet1.Hyperlinks.Add Anchor:=Cells(x, 1),  _

    Address:=ActiveWorkbook.Name,    _

    SubAddress:="'" & Sheets(x).Name & "'!A1", _

    TextToDisplay:=Sheets(x).Name

Next
End Sub