[已解决]提取工作表名并创建链接代码 在工作表名中含有空格时 引用无效

a563299530

Sub shtname()
    Dim i As Integer, sht As Worksheet
    i = 1
    For Each sht In Worksheets
        Sheet1.Hyperlinks.Add Cells(i, 1), "", sht.Name & "!A1", , sht.Name
        '在Cells(i,1)单元格添加超链接，超链接至sht工作表的A1单元格，超链接名为工作表名
        i = i + 1
    Next
End Sub
如果工作表中名字中出现空格  索引无效。 请各位牛人 帮忙再修改下

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-6-19 12:08

1. Sub shtname()
   
2.     Dim i As Integer, sht As Worksheet
   
3.     i = 1
   
4.     For Each sht In Worksheets
   
5.         Sheet1.Hyperlinks.Add Cells(i, 1), "", "'" & sht.Name & "'!A1", , sht.Name '工作表名两边加英文单引号试试
   
6.         '在Cells(i,1)单元格添加超链接，超链接至sht工作表的A1单元格，超链接名为工作表名
   
7.         i = i + 1
   
8.     Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

zx_wl

下载学习来了                              

windimi007

传个附件上来吧！方便测试！

hrpotter

1. Sub shtname()
   
2.     Dim i As Integer, sht As Worksheet
   
3.     i = 1
   
4.     For Each sht In Worksheets
   
5.         Sheet1.Hyperlinks.Add Cells(i, 1), "", "'" & sht.Name & "'!A1", , sht.Name '工作表名两边加英文单引号试试
   
6.         '在Cells(i,1)单元格添加超链接，超链接至sht工作表的A1单元格，超链接名为工作表名
   
7.         i = i + 1
   
8.     Next
   
9. End Sub

复制代码

a563299530

感谢  4楼  hrpotter