因为你sheet表的名字里有空格。有空格的时候,表名要加上单引号。这样改:
Sub 链拉工作表名称()
[b:b].Clear
[b1] = "工作表名称" '链接工作表
For i = 1 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("b" & i + 1), Address:="", SubAddress:="'" & Worksheets(i).Name & "'!A1", TextToDisplay:=Worksheets(i).Name & "!A1"
Next i
End Sub
方法一:
1、打开过要链接的网页。
2、选中EXCEL单元格,“插入/超链接/点左侧‘原有文件或网页’/点右侧‘浏览过的网页’/在框中选网页名称后,底部地址框则显示所选地址/确定”,单元格即录入网页地址。
3、单击单元格地址,即可打开网页。
方法二:
1、复制网页地址。
2、在EXCEL单元格粘贴后,将光标置于网址结尾处,回车,网址即变为蓝色。
3、左键单击蓝色地址,即可打开该网页。