自动生成文件目录及链接

陇原雪城

下载学习了，先谢谢谢谢谢谢，

ahhfdw

来此学习！！！！

ahhfdw

能否将指定路径改为相对路径呢？即当别人打开相同文件夹但路径不同，也能自动生成指定文件夹下的相同目录？

caiwuwzy

谢谢分享{:soso_e163:}

科晟精密

下载了。好好学习！！！谢谢

likefrozen

下来学习一下

lakebaykal

这个好啊，收下了

hh58175633

bucuo，蛮好用的

观沧海

deletezhl 发表于 2012-3-29 12:05
在office2010中试验是不成功的

'修改为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
       Directory = [G1].Value
'      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

可能是少了   Directory = [G1].Value

bigbobo

这个好用吗？