自动生成文件目录及链接

wdjjjin · 发表于 2011-10-9 09:35

大哥，在excel2007里没法使用，何故？

wdjjjin · 发表于 2011-10-9 11:04

大侠能不能帮我做一个运用于EXCEL上工作目录的宏，谢谢。
工作环境：EXCEL2007
一、文件夹的现状
1 文件夹现状.PNG

二、实现黄色区域文件自动扫描，并建立超级链接。
2实现黄色区域excel自动扫描并建立链接.PNG

谢谢。

shijianchang · 发表于 2011-10-10 10:25

FileSearch在07以后版本不能用了

shijianchang · 发表于 2011-10-10 11:13

本帖最后由 shijianchang 于 2011-10-10 11:16 编辑

修改为07版，代码如下，
Sub wjlj() '适用于07版
Dim fso As Object
Dim objFile, objFolder
Dim i As Integer
Range("A2:F65536").ClearContents
   Set fso = CreateObject("Scripting.FileSystemObject")
   Application.DisplayAlerts = False
'    On Error Resume Next
Folder = Directory
Application.ScreenUpdating = False
Set objFolder = fso.getFolder(Folder)
i = 1
   For Each objFile In objFolder.Files '文件名Files，文件夹SubFolders
            i = i + 1
            Cells(i, 1) = Folder
            Cells(i, 2) = objFile.Name
            Cells(i, 3) = objFile.Type
            Cells(i, 4) = objFile.Size
            Cells(i, 5) = objFile.DateLastModified
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:=Folder & objFile.Name
      Next

End Sub

shijianchang · 发表于 2011-10-10 11:19

奇怪，编辑两次附件都没上传上去

wdjjjin · 发表于 2011-10-11 13:22

shijianchang 发表于 2011-10-10 11:13
修改为07版，代码如下，
Sub wjlj() '适用于07版
Dim fso As Object

大哥，怎么使用啊？

长安布衣 · 发表于 2011-10-22 07:10

抱歉，我没有装07，希望有人帮忙

站在墙头看世界 · 发表于 2011-11-2 07:01

学习下，，，

zyxdyx · 发表于 2011-11-2 10:01

虾米东东？！

joyark · 发表于 2011-11-21 02:50

謝謝提供學習.............下載看看

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

[原创] 自动生成文件目录及链接

文件目录链接（07版可用）