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
2
2.打开文本文件,输入 DIR *.* /B >LIST.TXT ,然后保存关闭,更改文件后缀名为.bat格式,双击打开就会生成一个以LIST命名的txt文本文件,文件内容就是所有要制作目录的文件名称。
3
3.复制文件名称到EXCEL表格中(如图在B列),在C2要制作的超链接的位置输入=HYPERLINK("文件夹路径”&B2),附注:文件夹路径可以直接复制得到(如图在路径栏选中路径复制(在英文输入状态下复制))
4
以上完成,这个文件的超链接就做完了,拖动单元格右下角的实心点(像拖公式一样),就可以得到对应文件的超链接。注:文件路径,名称更改后超链接也要更改,否则就失效了。
excel软件工具箱如何使用
XCEL必备工具箱是一个的EXCEL插件,点击“安装”后就可以使用,绝大部分功能可以免费使用,与excel完全溶为一体。提供了密码去除、阴阳历转换、将选区存储为图片、身份证号码校验、工作表排序及生成目录、人工双面打印、专业水准的套表数据汇总、穿透查询等实用功能。工作表标签上点击右键还增加了轻松隐藏\/取...
EXCEL集成工具箱怎么使用
XCEL必备工具箱是一个的EXCEL插件,点击“安装”后就可以使用,绝大部分功能可以免费使用,与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步骤操作,就会出现如图. 完成后,可以看到,只要在做好的目录中,用鼠标点击所在表格名称,就会快速到达所在表格位置.