[已解决]求助:请给下面代码加上超链接代码

hcy1185

Sub 当前文件夹之文件目录()
    MyRow = 1
    MyExcelFileName = Dir(ThisWorkbook.Path & "\*.*")
    Do While MyExcelFileName <> ""
        Cells(MyRow, 1) = MyExcelFileName
        MyExcelFileName = Dir()
        MyRow = MyRow + 1
    Loop
End Sub

最佳答案

月排行榜 / 总排行榜

wangyi860214

2012-3-3 18:41

Sub 当前文件夹之文件目录()
    Dim myrow As Integer
    Dim MyExcelFileName As String
    myrow = 1
    MyExcelFileName = Dir(ThisWorkbook.Path & "\*.*")
    Do While MyExcelFileName <> ""
        Cells(myrow, 1) = MyExcelFileName
        Cells(myrow, 1).Hyperlinks.Add Anchor:=Cells(myrow, 1), Address:=Cells(myrow, 1), TextToDisplay:=MyExcelFileName
        MyExcelFileName = Dir()
        myrow = myrow + 1
    Loop
End Sub

跳转到最佳答案楼层

梅一枝

看不懂，要跟谁超链接，VBA中超链接代码用FOLLOWHYPERLINK........

wangyi860214

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(MyRow, 1)不知道对不对啊

hcy1185

wangyi860214 发表于 2012-3-3 16:30
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(MyRow, 1)不知道对不对啊

老师好!
只是a列内容变成蓝色了,象超链接的样,但是点击没有反应

wangyi860214

Sub 当前文件夹之文件目录()
    Dim myrow As Integer
    Dim MyExcelFileName As String
    myrow = 1
    MyExcelFileName = Dir(ThisWorkbook.Path & "\*.*")
    Do While MyExcelFileName <> ""
        Cells(myrow, 1) = MyExcelFileName
        Cells(myrow, 1).Hyperlinks.Add Anchor:=Cells(myrow, 1), Address:=Cells(myrow, 1), TextToDisplay:=MyExcelFileName
        MyExcelFileName = Dir()
        myrow = myrow + 1
    Loop
End Sub

无聊的疯子

hcy1185 发表于 2012-3-3 17:01
老师好!
只是a列内容变成蓝色了,象超链接的样,但是点击没有反应

最好来个附件，有附件才能更好的帮你完成你的要求！！

hcy1185

wangyi860214 发表于 2012-3-3 18:41
Sub 当前文件夹之文件目录()
    Dim myrow As Integer
    Dim MyExcelFileName As String

老师您好!
如果指定文件夹怎么改写代码?我发现改写后提示无法打开文件
("h:\硬盘资料(HUANGCY)" & "\*.*")