suifengo00 · 发表于 2010-5-6 10:50

tree /f >c:\a.txt

├─1标准课件
│├─供应链
││├─1采购
│││采购活动描述.doc
│││企业实际业务预习.doc
│││U8软件预习.doc

使用了以上命令获取到某目录的目录树，如何在Excel中获取目录树，并获取对应路径，自动生成超链接，在线等，谢谢！
=HYPERLINK(B15&A15,"链接")，使用此函数可以生成超链接，但前提是要获取到相对或绝对路径。

[ 本帖最后由 suifengo00 于 2010-5-6 10:53 编辑 ]

yancjm · 发表于 2010-5-6 11:06

在网上搜一下,就可以找到,附件有一个范例,供参考

cflood · 发表于 2010-5-6 11:16

这个软件不错，就是vba有密码

suifengo00 · 发表于 2010-5-6 11:26

原帖由 yancjm 于 2010-5-6 11:06 发表
在网上搜一下,就可以找到,附件有一个范例,供参考

太感谢您了！

poembs_001 · 发表于 2010-5-6 11:28

在网上搜一下

yancjm · 发表于 2010-5-6 11:36

原帖由 cflood 于 2010-5-6 11:16 发表
这个软件不错，就是vba有密码

给你一个没有密码的

suifengo00 · 发表于 2010-5-6 12:02

原帖由 yancjm 于 2010-5-6 11:36 发表

给你一个没有密码的

好像这个有点问题，一直在循环，请yancjm兄测一下。

suifengo00 · 发表于 2010-5-6 12:06

原帖由 suifengo00 于 2010-5-6 12:02 发表

好像这个有点问题，一直在循环，请yancjm兄测一下。

说明一下，我获取的是网上邻居的目录，会一直循环，本地没有问题。

yancjm · 发表于 2010-5-6 14:50

我在網上鄰居目錄中使用是正常的

suifengo00 · 发表于 2010-5-6 14:55

没有回复只能自己搞定了，获取网上邻居的路径会进入死循环，做了一个批量修改超链接按钮，直接在那台电脑生成后再批量把链接路径改一下，给大家分享，代码如下，如果谁能完善一下yancjm发的《文件目录管理.rar》就更好。

Sub 修改超链接()
Dim oldAdr As String
Dim newAddr As String
oldfile = InputBox("请输入要替换的文件夹路径：") '需要替换的旧文件名
Newfile = InputBox("请输替换后的文件夹路径：") '替换成的新文件名
For Each hlink In Cells.Hyperlinks
hlink.Address = Replace(hlink.Address, oldfile, Newfile)
Next
End Sub

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

[已解决] 如何获取某目录的目录树，并生成超链接。

评分

最新热点 /1