Excel生成文档目录并带有相对超链接

如何利用excel制作磁盘里所有文件的目录。并且附带超链接？~

磁盘里面所有文件目录用tree.也可以用dir.

Dim arr(), m&

Sub Macro1()
Dim Fso As Object, a, i&, j&, n&, brr()
Application.ScreenUpdating = False
Set Fso = CreateObject("Scripting.FileSystemObject")
p = ThisWorkbook.Path & "\2012-3-1"
sFileType = "*.pdf"
Call GetFiles(p, sFileType, Fso)
ReDim brr(1 To m, 1 To 4)
[a1].CurrentRegion.Offset(1).ClearContents
With ActiveSheet
For i = 1 To m
a = Split(arr(i), "\")
n = 0
For j = UBound(a) - 3 To UBound(a) - 1
n = n + 1
brr(i, n) = a(j)
Next
brr(i, 4) = Replace(a(j), ".pdf", "") '
.Hyperlinks.Add Anchor:=Cells(i + 1, 4), Address:=arr(i)
Next
End With
[a2].Resize(m, 4) = brr
m = 0
Erase arr
Set Fso = Nothing
Application.ScreenUpdating = True
End Sub
Private Sub GetFiles(ByVal sPath$, ByVal sFileType$, Fso As Object)
Dim Folder As Object
Dim SubFolder As Object
Dim File As Object
Set Folder = Fso.GetFolder(sPath)

For Each File In Folder.Files
If File.Name Like sFileType Then
m = m + 1
ReDim Preserve arr(1 To m)
arr(m) = sPath & "\" & File.Name
End If
Next
If Folder.SubFolders.Count > 0 Then
For Each SubFolder In Folder.SubFolders
Call GetFiles(SubFolder.Path, sFileType, Fso)
Next
End If
Set Folder = Nothing
Set File = Nothing
Set SubFolder = Nothing
End Sub

如图多个文件想要快速创建目录、1.在文件夹中创建一个TXT文本文件（在同一个文件夹中）
2
2.打开文本文件，输入 DIR *.* /B >LIST.TXT ,然后保存关闭，更改文件后缀名为.bat格式，双击打开就会生成一个以LIST命名的txt文本文件，文件内容就是所有要制作目录的文件名称。
3
3.复制文件名称到EXCEL表格中（如图在B列），在C2要制作的超链接的位置输入=HYPERLINK("文件夹路径”&B2），附注：文件夹路径可以直接复制得到（如图在路径栏选中路径复制（在英文输入状态下复制））
4
以上完成，这个文件的超链接就做完了，拖动单元格右下角的实心点（像拖公式一样），就可以得到对应文件的超链接。注：文件路径，名称更改后超链接也要更改，否则就失效了。

---

连山壮族瑶族自治县19565676846： Excel生成文档目录并带有相对超链接 - ？
偶信沉香： 如图多个文件想要快速创建目录、1.在文件夹中创建一个TXT文本文件(在同一个文件夹中) 2 2.打开文本文件,输入 DIR *.* /B >LIST.TXT ,然后保存关闭,更改文件后缀名为.bat格式,双击打开就会生成一个以LIST命名的txt文本文件,文件内...

连山壮族瑶族自治县19565676846： 怎样制作EXCEL工作表目录? - ？
偶信沉香： 1、第一步,建立目录工作表.在我们已经有多个sheet页工作数据的excel文件中新建一个工作表,命名为“目录”. 2、第二步,单击B1单元格,切换到【公式】选项卡. 3、第三步,单击【定义名称】,弹出【新建名称】对话框,在“名...

连山壮族瑶族自治县19565676846： 如何使用EXCEL生成word文件目录 - ？
偶信沉香： 下载这个超级工具,里面有个建立目录的功能http://club.excelhome.net/viewthread.php?tid=210147&replyID=&skin=0

连山壮族瑶族自治县19565676846： 如何应用EXCEL建立电子文件目录? - ？
偶信沉香： 实现的方法和详细的操作步骤如下: 1、第一步,在需要提取文件夹名称的文件夹中创建一个新的“文本文档”,如下图所示,然后进入下一步. 2、其次,完成上述步骤后,双击以打开文档并输入一组字符“dir> tp.txt”,并在输入后直接保...

连山壮族瑶族自治县19565676846： 如何在EXCEL软件里自动生成目录和页码? - ？
偶信沉香： excel中无法生成,只能在word中生成,操作方法如下:一、设置标题格式 1、选中文章中的所有一级标题; 2、单击开始选项卡上的标题1,如图所示;仿照步骤1、2设置二、三级标题格式为标题2、标题3. 二、自动生成目录 1、把光标定位到文章第1页的首行第1个字符左侧(目录应在文章的前面); 2、单击引用---->目录---->插入目录,如图所示;3、弹出目录对话框,选择目录选项卡,选中显示页码和页码右对齐,在制表符前导符处选择一种前导符即可,如图所示.

连山壮族瑶族自治县19565676846： 请问excel怎样生成目录 - ？
偶信沉香： 有两种情况吧.第一种您的表很少时.自己建一个目录表,挨个添加链接.主要就是在最前面插入一张表.选中一个单元格,点插入-超级链接-本文档中的位置-选中一个表.对应的目录就建好了.以此类推.... 第二种情况是表很多,很难一...

连山壮族瑶族自治县19565676846： excel 自动生成目录 - ？
偶信沉香： Private Sub Workbook_Open() For i = 1 To Sheets.Count If Sheets(i).Name <> ActiveSheet.Name Then Cells(i, 1) = ＂=HYPERLINK(＂ & ＂＂＂＂ & ＂#＂ & Sheets(i).Name & ＂!A1＂ & ＂＂＂＂ & ＂,＂ & ＂＂＂＂ & Sheets(i).Name & ＂＂＂＂ & ＂)＂End If Next i End Sub

连山壮族瑶族自治县19565676846： EXCEL如何用自动生成目录? - ？
偶信沉香： 用超连接

连山壮族瑶族自治县19565676846： excel vba 建立目录超链接 - ？
偶信沉香： 不用这么麻烦的:1、无需识别是否需要带有引号,直接将所有的工作表名称都带单引号就是了,带了单引号不影响超链接,不带单引号对于一些含有特殊字符的工作表名称就无效了.所以用单引号括起来才是王道;2、至于你说的把引号删掉就更是不靠谱了,excel的机制就是这样,你看到的单引号是系统自动加的,你是无法删除的.直接修改为:ActiveSheet.Hyperlinks.Add anchor:=Cells(10 + i, 1), Address:=＂＂, SubAddress:= ＂'＂ & Sheets(i + 1).Name & ＂'!A1＂

连山壮族瑶族自治县19565676846： excel怎么做目录 - ？
偶信沉香： 1.如图,打开其中一个工作簿,里面有7个表格. 2.在D5单元格同时按住键盘上的“CTRL+K”,出现如图: 3.选择链接到“本方档中位置”,出现如图. 4.用鼠标点击“利润表”,单击“确定”,出现如图. 5.重复以上3-4步骤操作,就会出现如图. 完成后,可以看到,只要在做好的目录中,用鼠标点击所在表格名称,就会快速到达所在表格位置.