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

[µo°Ý] «ü©w¥D¸ê®Æ§¨,±N¨ä°Æ¸ê®Æ§¨¤@¤@¸ü¤J¦Usheet(§t§ïname)(¤w¸Ñ¨M,·PÁÂ)

[µo°Ý] «ü©w¥D¸ê®Æ§¨,±N¨ä°Æ¸ê®Æ§¨¤@¤@¸ü¤J¦Usheet(§t§ïname)(¤w¸Ñ¨M,·PÁÂ)

¥»©«³Ì«á¥Ñ cmo140497 ©ó 2011-7-12 17:34 ½s¿è

Dear ¦U¦ìª©¥D :
¤p§Ì¥Îvba¼g±N«ü©w¤§¸ê®Æ§¨¤º¤§¹Ï¤ù¤@¤@¸ü¤J¦Ü«ü©wÄæ¦ì,¦ý¦pªG¥D¸ê®Æ§¨¤º¤§°Æ¸ê®Æ§¨¤Ó¦h,±o¤@­Ó¤@­Ó¶}±Ò-¸ü¤J-²¾°Êsheet,¤£ª¾¦p¦ó¥i¤@¦¸¶}±Ò
µ{¦¡,«ü©w¥D¸ê®Æ§¨,±N¨ä°Æ¸ê®Æ§¨¤@¤@¸ü¤J¦Usheet(§t§ïname),¤Î¸ü¤J¹Ï¤ù,ÁÂÁÂ!

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-8 11:09 ½s¿è

¦^´_ 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

TOP

ª©¥D¹ê¦b¤Ó¯«¤F,¤@¦¸´N¸Ñ¨M§Úªº§xÂZ,¥t½Ð±Ðª©¥D
InStr ¨ç¼Æ   ¶Ç¦^¦b¬Y¦r¦ê¤¤¤@¦r¦êªº³Ì¥ý¥X²{¦ì¸m¡A¦¹¦ì¸m¬° Variant (Long)¡C
Ucase ¨ç¼Æ ¶Ç¦^¤@­Ó Variant (String)¡A©Ò§t¬°Âন¤j¼g¤§¦r¦ê
¥i§_½Ðª©¥DÀ°¤p§Ì¸ÑÄÀ¤@¤U³o¨Ç¨ç¼Æªº¥Î·N
¥t¦pªG¥i¥H¥ÎApplication.FileDialog(msoFileDialogFolderPicker)¨Ó«ü©w¸ê®Æ§¨ªº¸Ü,­n¦p¦ó¼g³o¬qµ{¦¡?
¤Î±N¹Ï¤ùÀɮצWºÙ¨Ã¦æ¸ü¤J¥t¤@Äæ¦ì,¤£ª¾¬O§_¥i¦æ?

TOP

¦^´_ 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

TOP

Dear ª©¥D :
¹ê¦b¤Ó·PÁª©¥D¤F,¤p§ÌÁÙ¬O¦³¤@ºÃ´b
InStr ¨ç¼Æ   ¶Ç¦^¦b¬Y¦r¦ê¤¤¤@¦r¦êªº³Ì¥ý¥X²{¦ì¸m¡A¦¹¦ì¸m¬° Variant (Long)¡C
If InStr(UCase(P.Name), ".JPG")=True  Then
P.Name ¦b¦¹µ{¦¡¤¤->¨Ì§Ç¶Ç¦^¨C¤@¸ê®Æ§¨¤¤ªºFileªº¦WºÙ
¨âªÌªº¸ÑÄÀ¦ü¥G¦³®t²§,¶Ç¦^¬Y¦r¦ê«üªº¬O©Ò«ü©w¤§¸ô®|¦WºÙ¦r¦ê¶Ü?
¥t¥~¦pªG­n¦P®É¸ü¤J¹Ï¤ù®É,¶¶±a©ó¥t¤@Äæ¦ì¸ü¤J¹Ï¤ùÀɦW,µ{¦¡½X¸Ó¦p¦ó¼¶¼g?ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-8 19:37 ½s¿è

¦^´_ 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

TOP

·PÁª©¥D¤£¹½¨ä·Ð¦a«ü¥¿,¤Ó·PÁ±z¤F!

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD