Question

请教高手怎么把一个文件夹里的所有文件弄成一个目录形式的EXCEL并带有超l连接

补充说明：那个文件夹里包含的文件类型有：excel、word、文件夹和图片形式的。需要将这几个类型的文件命名生成目录并具有超链接。就是直接在目录里点那个文件名而对应的文件就会出来那种。请高手回答啊。我都不懂的，所以请回答详细，谢谢。就这么多财富了，理解理解

Answer 1

自动生成文章目录的操作：一、设置标题格式1.选中文章中的所有一级标题； 2.在“格式”工具栏的左端，“样式”列表中单击“标题1”。 仿照步骤1、2设置二、三级标题格式为标题2、标题3。二、自动生成目录1.把光标定位到文章第1页的首行第1个字符左侧（目录应在文章的前面）； 2.执行菜单命令“插入/引用/索引和目录”打开“索引的目录”对话框； 3.在对话框中单击“目录”选项卡，进行相关设置后，单击“确定”按钮，文章的目录自动生成完成。友情提示： 目录页码应该与正文页码编码不同。 把光标定位在目录页末，执行“插入/分隔符/下一页/确定”操作，在目录与正文之间插入分页符； 执行“视图/页眉和页脚”命令，把光标定位到正文首页的页脚处，单击“页眉和页脚”工具栏上的“链接到前一个”按钮正文页脚与目录页脚的链接； 执行“插入/页码”命令，在“格式”中选择页码格式、选中“起始页码”为“1”，单击“确定。 至此完成正文的页码插入。目录如果是多页，插入页码时可以选择与正文页码不同的页码格式。当然，如果目录只有一页，没有必要插入页码。
如果还不懂可以Q我

追问

谢谢。已经弄好了

Answer 2

按住alt依次按f11，i，m
粘贴代码后按f5
即可在当前工作表的a列得到你要的结果

Sub test()
p = "c:\windows\" '根据实际修改
f = Dir(p & "*.*")
Do While f <> ""
r = r + 1
ActiveSheet.Hyperlinks.Add Cells(r, 1), p & f
f = Dir
Loop
End Sub

Answer 3

你新建一个Excel文件，把你文件夹裏的所文件名都写在Excel裏，在点插入超链接，把所对应的文件选中，这新超链接就建立好了。

追问

亲，我想要批量超链接，一个一个太麻烦了

Answer 4

是怎样的文件？知道才会做？

追问

就是比如文件夹“资料”里面的子文件有：EXCEL、word、图片形式的，需要把“资料”这个文件夹里这些形式的文件名整理成一个目录形式的，并含有超链接的那种，不知道我这样表达你清楚了没？

追答

用power point，把目录放在里面，在链接一下

追问

我是想要生成EXCEL的那种超链接？

追答

那你就用它呗，很简单，具体过程说不清楚

追问

哎，谢谢啦。我就是不知道怎么弄啊，你要知道的话麻烦告知下，谢谢