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

[µo°Ý] excel-vba Image¶K¹Ï³s°Ê°ÝÃD

[µo°Ý] excel-vba Image¶K¹Ï³s°Ê°ÝÃD



¦U¦ì¦n¡A¦b¨Ï¥Îexcel  vba¥\¯à®É¡A¹J¨ì¤@¨Ç«ü¥O°ÝÃD¡A¤£ª¾¹D¸Ó¦p¦ó³]©w¡A¥Ñ©ó¤]¬Oªì¾ÇªÌ¡A«Ü¦hÃöÁä¦r¤£ª¾¹D¸Ó¦p¦ó·j´M¬ÛÃö«ü¥O¡A
·Q½Ð¦U¦ìÀ°¦£¬Ý¬Ý³o¼Ëªº³]©w»Ý¨D¸Ó¦p¦ó¼g¤J«ü¥O¤ñ¸û«ê·í?

§Æ±æªº»Ý¨D®æ¦¡Ãþ¦ü¹Ï¤ù»¡©úªº¡A¦³textbox¥i¥HÁä¤J¦WºÙ¡AµM«áImage ¹Ï¤ù°Ï¥i¥HÅã¥ÜÁä¤J¦WºÙªº¹Ï¤ù¡A¦p:Ä«ªG--¹ÏÅã¥ÜÄ«ªG
¦ý¹Ï¤ùÀɮפ£¬O©ñ¦bexcel¥»¨­¤u§@ªí¤¤¡A¦Ó¬O©ñ¦b¥~³¡¬Y­Ó¸ê®Æ§¨...(©Ò¥H¸ê®Æ§¨»Ý­n³]©w¸ô®|)¤j³¡¤Àºô¤W·j´M¨ìªº³£¬O¦b¤u§@ªí¤¤°Ñ·Ó¬Y±i¹Ï¡A
¦ý¦Ò¼{¥¼¨Ó¸ê®Æ¶V¨Ó¶V¦h¹Ï¤ù¶V¨Ó¶V¦h¡A§Æ±æ¬O¯à°÷©ñ¦b¥~³¡ªº¸ê®Æ§¨¡C¦Ó¤pµøµ¡uesrform¥i¥H®³¨Ó°µ³o¼Ëªº¥\¯à¡C

Áٳ·ЦU¦ì¦³·Qªkªº¸Ü¡A¯à´£¨Ñ¤@ÂI·N¨£...¸U¤À·PÁÂ
¥t¥~¦]¬°¬O­è±µÄ²ªºªì¾ÇªÌ¡A©Ò¥H«Ü¦h«ü¥OÁÙ¤£À´¡AÁٽЫü±Ð!ÁÂÁÂ
SofyShih

¥»©«³Ì«á¥Ñ mybubble9987 ©ó 2019-4-26 11:14 ½s¿è

test01.rar (40.02 KB) ¥i¯à§Úªº°ÝÃD¤ÓÃøÀ´~©Ò¥H³£¨S¦³¤HÄ@·N¦^~~~
µy·L§ï¨}¤§«á~¦³°µ¥X¬Û¦P¥\¯àªº¥Îªk!!!!µ¹¤j®a°Ñ¦Ò!!!!
¦ý¬O¥Ø«e~ÁÙ¹J¨ì¤@­Ó°ÝÃD~~~´N¬O¤£ª¾¹D­n«ç»ò§ï±¼~excel¤ºªº°ÝÃD~
Private Sub loadÀɦW()
Dim P As String
    P = ThisWorkbook.Path & "\TEST01\"
    ActiveSheet.UsedRange.Offset(1).Clear³o¦æ­n«ç»ò§ï~¤~¤£·|¥þ³¡ªºªí®æ¤ºªºªF¦è³£³Q§R±¼
    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
SofyShih

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD