µ{¦¡½X-jpg.gif ¦P®ÉÅã¥Ü

mybubble9987

¦U¦ì¦n~§Ú¦³¤@¦æµ{¦¡½X¤£ª¾¹D¯à¤£¯à³o¼Ë¦P®É°õ¦æ

Sub Loadimage()
fd = ThisWorkbook.Path & "\TEST01\"
Dim Sp As Shape
For Each Sp In sheet1.Shapes
  If Sp.Type = 13 Then Sp.Delete
Next
For Each a In Range([B2], [B65536].End(xlUp))
fs = fd & a & ".jpg"    ----¥i¥H¦P®ÉÅã¥Üjpg.gif¹ÏÀɶÜ?
If Dir(fs) <> "" Then sheet1.Shapes.AddPicture fs, msoFalse, msoTrue, a.Offset(, 1).Left, a.Top, a.Offset(, 1).Width, a.Height
Next
End Sub


ÁÂÁ¦U¦ìÀ°¦£

­ã´£³¡ªL

fs = dir(fd & a & ".jpg")
if fs="" then fs = dir(fd & a & ".gif")
If fs <> "" Then sheet1.Shapes.AddPicture fd & fs, msoFalse, msoTrue, a.Offset(, 1).Left, a.Top, a.Offset(, 1).Width, a.Height

mybubble9987

¦^´_ 2# ­ã´£³¡ªL

ÁÂÁ§Aªº«üÂI!!!

mybubble9987

¦^´_ 2# ­ã´£³¡ªL

ª©¥D¤j¤j§A¦n~~~(­º¥ý«D±`·PÁ³o­Óª©~Åý§Ú§ä¨ì«Ü¦h«Ü¹ê¥Îªº¸ê®Æ~)
§ÚÁÙ¦b¤@¦æ¤@¦æ¾ÇµÛ«ç»ò¬Ý¥¨¶°¸Ì­±ªºµ{¦¡½X~©Ò¥Hµ¥¯Å«D±`«D±`ªº§C....

§Úµo²{¦Û¤v¤w¸g§â¬Q¤Ñªº°ÝÃD~¥¨¶°¤º®e§ï±¼¤F~~~
©Ò¥H²{¦b¦pªG­n°Ñ¦Ò¤j¤jµ¹ªº«Øijµª®×~~ÁÙ¯u¤£ª¾¹D¸Ó±q­þÃä¶}©l´¡¤J§ï°_.......(¦³«Ü§V¤Oªº¦b¾Ç!¤@Ãä§ï¤@Ãä¾Ç~©Ò¥H°ò¦¤Ó®t)

ªþ¤W§Ú«á¨Ó¤S§ïªº¥¨¶°~½Ð°Ý¯àÀ°§Ú¬Ý¤@¤U¶Ü?«D±`·PÁ§A¼·ªÅ«ü¾É

Private Sub loadÀɦW()
Dim P As String
    P = ThisWorkbook.Path & "\TEST01\"
    ActiveSheet.UsedRange.Offset(1).Clear
    Get_Picture P
End Sub
Private Sub Get_Picture(ByVal P As String)
    Dim Fs, F As Variant
    Set Fs = CreateObject("Scripting.FileSystemObject").GETFolder(P)
    With ActiveSheet
    For Each F In Fs.Files
        If F Like "*.jpg" Then '«ü©w°ÆÀɦW
            .Cells(Application.CountA(.[F:F]) + 1, "F") = F.Name
        End If
     Next
    End With
        For Each F In Fs.SubFolders
            On Error Resume Next
            Get_Picture F
        Next
End Sub

­ã´£³¡ªL

¦^´_ 4# mybubble9987

¬Ý¤£À´­n°µ¤°»ò???

ChuckBucket

¦^´_ 4# mybubble9987


    ©p¥i¯à­n§â©pªº°ÝÃD¦A¸Ô²Ó»¡©ú¤@¤U¡AÅýª©¤j¦n¨³³t¤F¸Ñ©p»Ý¨D¡A§â¥D­n®É¶¡©ñ¦bÀ°©p¼¶¼g©Î«ü¥¿¨Ï¤§²Å¦X©pªº³Ì²×À³¥Î¡C
    §_«h³æ¥áµ{¦¡½X¡A¯uªº¤£¬O¨º»ò®e©ö¬}±x¤@­Ó¤Hªº·Qªk¡C

mybubble9987

¦^´_ 6# ChuckBucket

ÁÂÁ§Aªº«Øij~§Ú¥i¯à¼g±o¤Ó½ÆÂø¤F~©Ò¥H³y¦¨¤j®a¤£¤F¸Ñ~~!!

mybubble9987

¦^´_ 5# ­ã´£³¡ªL

ÁÂÁ­㴣³¡ªL¤j¤jÁÙ¼·ªÅ¬Ý§Úªº°ÝÃD~~~
²³æªº¨Ó»¡~~~~´N¬OÁöµM±z´£¨Ñµ¹§Úµ{¦¡½X~
¦ý§Ú«o¤£ª¾¹D¸Ó±q­þÃä¶}©l´¡¤J§ï°_.....²¦³ºµ{«×¤Ó§C~~~·í¼gªk§¹¥þ¤£¤@¼Ë®É~´N¤£ª¾¹D«ç»ò§ï...

¦]¬°§Ú°Ñ¦Òªº¬O³o¼Ëªº¼gªk~
Private Sub Get_Picture(ByVal P As String)
    Dim Fs, F As Variant
    Set Fs = CreateObject("Scripting.FileSystemObject").GETFolder(P)
    With ActiveSheet
    For Each F In Fs.Files
        If F Like "*.jpg" Then '«ü©w°ÆÀɦW----------->³oÃä¨S¿ìªk§ï¦¨jpg. gif~(¦ý©Î³\¥»¨Ó´N¤£¯à¦P®É«ü©w¨â­ÓªF¦è~¬O§Ú·Q±o¤Ó²³æ¥H¬°¥[¤W¥h´N¥i¥H)
            .Cells(Application.CountA(.[F:F]) + 1, "F") = F.Name
        End If
     Next
    End With
        For Each F In Fs.SubFolders
            On Error Resume Next
            Get_Picture F
        Next
End Sub
   

³Ì«á¦A¦¸ÁÂÁ§A­Ì¼ö¤ßªº¦^ÂÐ

ML089

¦^´_ 8# mybubble9987

If F Like "*.jpg"  Or F Like "*.gif" Then

mybubble9987

¦^´_ 9# ML089

ÁÂÁ§Aªº«ü¾É»¡©ú¼Ú~~~§Ú¸Õ¦¨¥\¤F!!
¦Ó¥B³s~³¡¤jÀ°§Ú§ïªº¤]¸Õ¦¨¥\¤F!!!¹ïªì¾ÇªÌ¨Ó»¡~¯à§ï¹ï¤@­ÓªF¦è´N«Ü¶}¤ß~;P