1. 陆角网Home
  2. 生活百科

sub文件（sub文件夹）

• 生活百科

很多人平时存放文件时喜欢胡乱放，总想着回头整理放好，但经常就忘了，到要用的时候，总是找不到，懊恼不已。今天和大家分享一个用excel快速生成目录帮助查找的方法。

sub文件（sub文件夹）

先来看看效果视频

没有这步设置，代码是无法运行的。

重要设置2

表格是自动建立了超链接的，有时候当点击打开超链接时会弹出提示注意来源安全问题，点击是即可，但是当每次都要点一下才能打开超链接显示不是我们想要的。遇到这种情况，需要将我们选定的路径即B1单元格内容，添加到受信任位置。

具体方法：开发工具—宏安全性—受信任位置—添加新位置

具体方法：

完整代码

Public fso As New FileSystemObject, fd As Folder, sfd As Folder, arrfiles(1000), cntFiles%Public Sub 文件夹目录() Dim n1 As Integer p = GetFolderName(msoFileDialogFolderPicker) Set fd = fso.GetFolder(p & “”) cntFiles = 0 If Len(fd) <= 4 Then Exit Sub SearchFolders fd ActiveSheet.Cells.ClearContents ActiveSheet.Cells(1, 2) = p & "" For i = 2 To cntFiles 1 ActiveSheet.Cells(i, 1) = arrfiles(i - 1) ActiveSheet.Cells(i, 2).FormulaR1C1 = "=HYPERLINK(RC[-1],SUBSTITUTE(RC[-1],R1C2,""""))" NextEnd SubPublic Sub 文件目录() p = GetFolderName(msoFileDialogFolderPicker) Set fd = fso.GetFolder(p & "") cntFiles = 0 If Len(fd) <= 4 Then Exit Sub SearchFiles fd ActiveSheet.Cells.ClearContents ActiveSheet.Cells(1, 2) = p & "" For i = 2 To cntFiles 1 ActiveSheet.Cells(i, 1) = arrfiles(i - 1) ActiveSheet.Cells(i, 2).FormulaR1C1 = "=HYPERLINK(RC[-1],SUBSTITUTE(RC[-1],R1C2,""""))" NextEnd SubPublic Function GetFolderName(ByVal DialogType As MsoFileDialogType) As String With Application.FileDialog(DialogType) If .Show = True Then GetFolderName = .SelectedItems(1) End If End WithEnd FunctionSub SearchFolders(ByVal fd As Folder) n = n 1 If fd.SubFolders.Count = 0 Then Exit Sub For Each sfd In fd.SubFolders cntFiles = cntFiles 1 arrfiles(cntFiles) = sfd SearchFolders sfd NextEnd SubSub SearchFiles(ByVal fd As Folder) For Each fl In fd.Files cntFiles = cntFiles 1 arrfiles(cntFiles) = fl.Path Next fl If fd.SubFolders.Count = 0 Then Exit Sub For Each sfd In fd.SubFolders SearchFiles sfd NextEnd Sub

Previous 2023-01-19 11:31:40
Next 2023-01-19 11:46:04

相关推荐

本站部分内容由互联网用户自发贡献，该文观点仅代表作者本人，本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。

如发现本站有涉嫌抄袭侵权/违法违规等内容，请联系我们举报！一经查实，本站将立刻删除。