GBKEE

¦^´_ 1# cmo140497
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim Fs As Object, E, i As Integer, P, ii As Integer
   
3.     With CreateObject("Scripting.FileSystemObject").GetFolder("d:\¬Û¤ù\") '<-­×§ï¬°§A­n¬d¸ß¤§¸ê®Æ§¨
   
4.         i = 1
   
5.         For Each E In .SubFolders
   
6.             If i > ActiveWorkbook.Sheets.Count Then
   
7.                 Sheets.Add(, Sheets(Sheets.Count)).Name = E.Name
   
8.             Else
   
9.                 Sheets(i).Name = E.Name
   
10.             End If
    
11.             ii = 1
    
12.             For Each P In E.Files
    
13.               If InStr(UCase(P.Name), ".JPG") Then
    
14.                 With Sheets(i).Pictures.Insert(P)
    
15.                     .Top = Cells(ii, 2).Top
    
16.                     .Left = Cells(ii, 2).Left
    
17.                     .Width = 50
    
18.                     .Height = 50
    
19.                 End With
    
20.                 ii = ii + 5
    
21.             End If
    
22.         Next
    
23.             i = i + 1
    
24.         Next
    
25.     End With
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# cmo140497
If InStr(UCase(P.Name), ".JPG")  Then -> If InStr(UCase(P.Name), ".JPG")=True  Then
P.Name ¦b¦¹µ{¦¡¤¤->¨Ì§Ç¶Ç¦^¨C¤@¸ê®Æ§¨¤¤ªºFileªº¦WºÙ
InStrªº¤ñ¹ï¬O¦³¤À¤j¤p¼gªº,¦pInStr¦³¤ñ¹ï¨ì®É>0   ¨t²Î±N>0ªº¼Æ­ÈÂà´«¦¨ True
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim Fs As Object, E, i As Integer, P, ii As Integer
   
3.     Dim xlPath As String
   
4.     With Application.FileDialog(msoFileDialogFolderPicker)
   
5.         .AllowMultiSelect = False    'True ¦pªG¤¹³\¨Ï¥ÎªÌ±qÀÉ®×¹ï¸Ü¤è¶ô¿ï¨ú¦h­ÓÀÉ®×
   
6.         .Show
   
7.         If .SelectedItems.Count = 0 Then Exit Sub
   
8.         xlPath = .SelectedItems(1)
   
9.     End With
   
10.     With CreateObject("Scripting.FileSystemObject").GetFolder(xlPath)
    
11.         i = 1
    
12.         For Each E In .SubFolders
    
13.             If i > ActiveWorkbook.Sheets.Count Then
    
14.                 Sheets.Add(, Sheets(Sheets.Count)).Name = E.Name
    
15.             Else
    
16.                 Sheets(i).Name = E.Name
    
17.             End If
    
18.             ii = 1
    
19.             For Each P In E.Files
    
20.               If InStr(UCase(P.Name), ".JPG") Then
    
21.                 With Sheets(i).Pictures.Insert(P)
    
22.                     .Top = Cells(ii, 2).Top
    
23.                     .Left = Cells(ii, 2).Left
    
24.                     .Width = 50
    
25.                     .Height = 50
    
26.                 End With
    
27.                 ii = ii + 5
    
28.             End If
    
29.         Next
    
30.             i = i + 1
    
31.         Next
    
32.     End With
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# cmo140497
¬Y¦r¦ê ->P.Name ,  ¤@¦r¦ê->".JPG"  
If InStr(UCase(¬Y¦r¦ê), "¤@¦r¦ê") >0  Then   ->  ¤ñ¹ï¨ì¤F  P ¬° JPG®æ¦¡ªº¹Ï¤ùÀÉ

For Each P In E.Files
       If InStr(UCase(P.Name), ".JPG") Then
             With Sheets(i)
                    . Cells(ii, 1) = P.Name             'AÄæ¿é¤J ¹Ï¤ùÀɮצWºÙ  
                   '.Cells(ii, 1) = P                        'AÄæ¿é¤J  ¹Ï¤ùÀɮק¹¾ã¸ô®|¦WºÙ            
                  .Pictures.Insert(P).Top =.Cells(ii, 2).Top          'BÄæ ´¡¤J ¹Ï¤ùÀÉ  
                  .Pictures.Insert(P).Left =.Cells(ii, 2).Left
                  .Pictures.Insert(P).Width = 50
                  .Pictures.Insert(P).Height = 50
             End With
             ii = ii + 5
      End If
Next