- 帖子
- 7
- 主題
- 3
- 精華
- 0
- 積分
- 19
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- 2002 SP3
- 閱讀權限
- 10
- 性別
- 男
- 來自
- TAIWAN
- 註冊時間
- 2010-5-4
- 最後登錄
- 2019-12-5
|
謝謝板大
舊家找來的參考資料 ^^" 應用方式再修正一下同樣有效
'====================================
Private Sub CommandButton1_Click()
Dim P As String
P = ThisWorkbook.Path '指定資料夾路徑
ActiveSheet.UsedRange.Offset(1).Clear
Get_Picture P
End Sub
Private Sub Get_Picture(ByVal P As String)
Dim Fs, C As Variant
Set Fs = CreateObject("Scripting.FileSystemObject").GETFolder(P)
With ActiveSheet
For Each C In Fs.Files
If C Like "*.xls" Then '指定副檔名
.Cells(Application.CountA(.[C:C]) + 1, "C") = C.Name
End If
Next
End With
For Each C In Fs.SubFolders
On Error Resume Next
Get_Picture C
Next
End Sub |
|
發表於 2010-5-27 22:42
| 
