[已解决]subaddress参数的一个小问题。

zjpili

Sub mulu()
    MsgBox "下面将为工作薄中所有工作表建立目录!"
    Rows("2:65536").ClearContents                    '清除工作表中原有数据
    Dim sht As Worksheet, irow As Integer
    irow = 2                                         '在第2行写入第一条记录
    For Each sht In Worksheets                       '遍历工作表
        Cells(irow, "A").Value = irow - 1            '写入序号
        '写入工作表名，并建立超链接
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(irow, "B"), Address:="", _
             SubAddress:="'" & sht.Name & "'!A1", TextToDisplay:=sht.Name
        irow = irow + 1                              '行号加1
    Next
End Sub


SubAddress:="'" & sht.Name & "'!A1"            ‘这一句是为什么要加两个单引号？特别是前面那一个单引号，name本身不就是字符串吗？不懂不懂，望教育，可以具体点更好。

最佳答案

月排行榜 / 总排行榜

zjdh

2014-9-23 17:44

以前当 sht.Name 为阿拉伯数字时，两端要加单引号，是其他文字时用不着。
现在都无所谓了。

跳转到最佳答案楼层

qcw811206

靠近& 是连接字符串的引号
远一点的是字符串里面的引号

zjpili

qcw811206 发表于 2014-9-23 17:08
靠近& 是连接字符串的引号
远一点的是字符串里面的引号

还是不懂，我用msgbox显示这句"'" & ActiveSheet.Name & "'!A1"
屏幕显示'sheet1'!a1
两个单引号是什么意思？

zjdh

以前当 sht.Name 为阿拉伯数字时，两端要加单引号，是其他文字时用不着。
现在都无所谓了。

qcw811206

zjpili 发表于 2014-9-23 17:28
还是不懂，我用msgbox显示这句"'" & ActiveSheet.Name & "'!A1"
屏幕显示'sheet1'!a1
两个单引号是什么 ...

你做个表内的超级链接就知道了
单引号里面是sheet的Name

zjpili

zjdh 发表于 2014-9-23 17:44
以前当 sht.Name 为阿拉伯数字时，两端要加单引号，是其他文字时用不着。
现在都无所谓了。

谢谢，懂了

zjpili

qcw811206 发表于 2014-9-23 17:45
你做个表内的超级链接就知道了
单引号里面是sheet的Name

谢谢，懂了