Q1： Excel如何生成各文件夾目錄,，并超鏈接最終文件

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

Q2： 如何生成一個文件夾內(nèi)的所有文件的文件列表？

使用DOS命令中的dir就可以生成這樣的文本文件,。下面介紹具體操作方法,。1.這里假設(shè)文件夾為為D:\123。
2.以Windows XP操作系統(tǒng)為例,，單擊“開始|運行”,，輸入cmd，然后單擊“確定”,。
3.在命令提示符窗口中輸入以下命令,，dir d:\123 >c:\filelist.txt
這樣就在C:盤根目錄下生成了一個名為“filelist.txt”的文本文件，該文件中即包含文件夾D:\123 里面的所有文件的詳細列表,。
如果希望將D:盤中子目錄中的文件和文件夾列表也全部列出來，可以在命令提示符窗口中輸入以下命令,。dir d:\ /s >c:\filelist.txt
如果使用下面的命令,，即加一個/b，則會生成一個簡單的文件名列表,，不包括其它信息,，這種方法可能更加實用一些。dir d:\ /s /b >c:\filelist.txt