- ©«¤l
- 7
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 19
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- 2002 SP3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIWAN
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2019-12-5
|
ÁÂÁªO¤j
®a§ä¨Óªº°Ñ¦Ò¸ê®Æ ^^" À³¥Î¤è¦¡¦A×¥¿¤@¤U¦P¼Ë¦³®Ä
'====================================
Private Sub CommandButton1_Click()
Dim P As String
P = ThisWorkbook.Path '«ü©w¸ê®Æ§¨¸ô®|
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 '«ü©w°ÆÀɦW
.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 |
|