生成的目录带有超链接功能

朱付安 · 发表于 2024-3-4 13:47

代码运行后，能够生成指定文件夹的目录，但是a列的文件名无法生成超链接，请问老师如何修改，才可以生成带有超链接的文件名

于箱长 · 发表于 2024-3-4 13:51

Rem 添加超链接
For Each Rng In .Range("d2:d" & .Cells(Rows.Count, 4).End(3).Row)
Rng.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Rng, TextToDisplay:=Rng.Value
Next

于箱长 · 发表于 2024-3-4 13:52

于箱长 · 发表于 2024-3-4 13:56

我一直在用的目录生成代码

Enocheasty · 发表于 2024-3-4 14:02

添加一个超链接对象到指定的单元格即可！
我也做了这种生成文件目录的插件功能。
https://enocheasty.github.io/EAOthers.html

朱付安 · 发表于 2024-3-4 14:05

于箱长发表于 2024-3-4 13:52

老师，在哪儿添加这段代码

liulang0808 · 发表于 2024-3-4 14:09

获取指定文件夹和子文件夹下所有文件（数组）.zip (25.35 KB, 下载次数: 21)
楼主原来的代码没有调用添加超级链接的过程
做了微调，供参考

朱付安 · 发表于 2024-3-4 14:27

老师，我希望能自动调节单元格的大小，以适应内容，如果名字长一些，我还需要调整大小，谢谢老师

ykcbf1100 · 发表于 2024-3-4 15:37

朱付安发表于 2024-3-4 14:27
老师，我希望能自动调节单元格的大小，以适应内容，如果名字长一些，我还需要调整大小，谢谢老师

5楼版主代码的基础上微调了一下，希望你满足你的需求。

朱付安 · 发表于 2024-3-4 16:13

ykcbf1100 发表于 2024-3-4 15:37
5楼版主代码的基础上微调了一下，希望你满足你的需求。

还可以吧，但是a到f列能根据单元格文本大小调整吗，这样有点难看

		自动登录	找回密码
密码			免费注册

[求助] 生成的目录带有超链接功能

评分

评分