excelvba read一個 folder d file名

圖片參考：http://imgcld.yimg.com/8/n/HA00149032/o/701102230052013873383620.jpg

這個 JMT Utilities 有你想要類似的功能。看看幫不幫到你，謝。


http://sites.google.com/site/exceltkk2/excel-tutorial/howtoextractexcelfiledetailsfromafoldertoalist%E2%80%93jmtutilities%E2%80%93showfolderdetails

'若不明白, 可再發問


Dim strDrive As String
Dim strFileName As String

On Error Resume Next

Dim objFolder As Object, strPictFullPath As String

'讓用家選擇folder
Set objFolder = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Please Select Image Folder", 0, GetDrive)

'folder 不是空白才讀文件
If Not objFolder Is Nothing Then
'// Is it the Root Dir?...if so change
If Len(objFolder.Items.Item.path) > 3 Then
strPictFullPath = objFolder.Items.Item.path & Application.PathSeparator
Else
strPictFullPath = objFolder.Items.Item.path
End If
Else
Exit Sub
End If



strDrive = strPictFullPath
strFileName = Dir$(strDrive & "*.tif", vbDirectory)

Do While (Len(strFileName) > 0)

' See if we should skip this file.
If Not (strFileName = ".") Or (strFileName = "..") Then

'對檔案做的動作

End If

' Get the next file.
strFileName = Dir$()
Loop

'當folder沒下一個檔案便停止

2011-02-23 17:50:25 補充：
strFileName 就是 檔案的名稱, 你可做個array 儲起佢