VBA获取文件夹内文件名并建立超链接

ligh1298

求助：
　　通过VBA代码实现获取“文件”中的所有文件名，放在B列，并建立超链接，点击超链接能打开该文档。
　　非常感谢！

hwc2ycy

遍历的代码你应该会的。

超链接嘛，你自己录两个宏，分别指向不同的文件类型试试。

lyf7276

你试下这个效果怎么样。在A1输入路径，点获取文件。获取文件名后，点要打开的文件名，再点打开

ligh1298

在2楼与3楼老师的提醒与帮助下，自己鼓捣出来段代码，能实现这个效果。

方法：
1.新建一Excel文件（用于存放提取的文件名），按Alt+F11，粘贴此贴代码，拖入一按钮，指定此宏保存此文档。
2.把此文档放在要提取文件名的“文件夹”中（如果代码中输入的是绝对路径，就不用放在文件夹中），再打开此文档，点击按钮，就OK了。
'提示：把有此代码的Excel文件放在要提取的文件夹中

Sub 提取文件夹内的文件名并建立超链接()
    Sheets(1).Cells.ClearContents '清空数据
    myPath = ThisWorkbook.Path & "\" '当前文件夹路径，也可直接输入完整路径。
    myfile = Dir(myPath & "*.*") '文件名
    Do
        If myfile <> ThisWorkbook.Name Then '如果myfile不等于有代码工作薄
            n = n + 1 '计数、累加
            Sheets(1).[a1:b1] = [{"序号","提取文件名显示如下"}]
            Sheets(1).Cells(n + 1, 1) = n '编号
            Sheets(1).Cells(n + 1, 2) = myfile  '数据写入
        End If
        myfile = Dir '找寻下一个文件
    Loop While myfile <> ""
    Ir = Sheets(1).[b65536].End(3).Row
    For Each Rng In Range("b2:b" & Ir) '遍历
         Sheets(1).Hyperlinks.Add Anchor:=Rng, Address:=Rng.Value, ScreenTip:=myPath & Rng.Value  '与相应的文档建立超链接。
    Next
    ActiveWorkbook.Save '保存
End Sub

hwc2ycy

ligh1298 发表于 2013-6-7 07:43
在2楼与3楼老师的提醒与帮助下，自己鼓捣出来段代码，能实现这个效果。

方法：

恭喜折腾出来了。
不错。

CJXUEHAO

hwc2ycy 发表于 2013-6-7 08:25
恭喜折腾出来了。
不错。

请问怎么做到的，能不能告诉我下，谢谢

1148112902

CJXUEHAO 发表于 2015-3-27 21:28
请问怎么做到的，能不能告诉我下，谢谢

需要添加的文件路径和文件名显示，怎么一直弄不好，请问你是怎么做的，多谢，万分感谢

1148112902

CJXUEHAO 发表于 2015-3-27 21:28
请问怎么做到的，能不能告诉我下，谢谢

需要添加的文件路径和文件名显示，怎么一直弄不好，请问你是怎么做的，多谢，万分感谢

02761752696

谢谢   分享