ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¨ú±o¸ê®Æ§¨¤º©Ò¦³ÀɮצWºÙ

¨ú±o¸ê®Æ§¨¤º©Ò¦³ÀɮצWºÙ

½Ð±Ð¦U¦ì«e½ú

Á|¨Ò: ®à­±¦³­ÓAAA¸ê®Æ§¨,¤º§t¼Æ¦Ê­Ó.XLS ©ÎªÌ .PDFÀÉ®×
¯à§_¨Ï¥Îvba±N¸ê®Æ§¨¤º©Ò¦³ªºÀÉ®×
¨ú¨äÀɮצWºÙ,±N¨äÀɮצWºÙ¦s©ósheet¤¤?
½Ð¦h«ü±Ð

ÁÂÁª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
½Ð¦h«ü±Ð

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD