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

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

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

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

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

¦^´_ 1# stephen


Sub get_file()
fs = Dir("C:\®à­±¥¿½T¸ô®|\*.*")
Do Until fs = ""
r = r + 1
Cells(r, 1) = fs
fs = Dir
Loop
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁª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

¦U¦ì«e½ú¡I
½Ð±Ð¿é¥XªºÀɮײM³æ«á¡A¥i¥H¦A¨Ì·Ó¦Û©w±ø¥ó¤è¦¡±Æ¦C (BÄæ) ¤Î¥[¤WNo. (AÄæ)¡A¦pªþÀÉ B0.rar¡C

B0.rar (2.53 KB)

TOP

¦^´_ 4# b9208
  1. Sub Sort_Data()
  2. Dim Ar(), Ay()
  3. fd = "E:\" '«ü©w¸ê®Æ§¨
  4. fs = Dir(fd & "*.xls") '«ü©w°ÆÀɦW
  5. Do Until fs = ""
  6. ReDim Preserve Ay(x)
  7. Ay(x) = fs
  8. x = x + 1
  9. fs = Dir
  10. Loop
  11. For Each a In Array("QWER", "ASDG", "FGHY", "Other Item")
  12.    For i = LBound(Ay) To UBound(Ay)
  13.        If Ay(i) Like "*" & a & "*" Then
  14.        ReDim Preserve Ar(s)
  15.        Ar(s) = Array("P" & s + 1, Ay(i))
  16.        Ay(i) = ""
  17.        s = s + 1
  18.        ElseIf a = "Other Item" And Ay(i) <> "" Then
  19.        ReDim Preserve Ar(s)
  20.        Ar(s) = Array("P" & s + 1, Ay(i))
  21.        s = s + 1
  22.        End If
  23.    Next
  24. Next
  25. [A8:B65536] = ""
  26. [A8].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
  27. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Dear Hsieh
Array("QWER", "ASDG", "FGHY", "Other Item")
¤W­z¤¤ "Other Item" «üªº¬O°£¤F«e¤T¶µ¥~ªº¨ä¥L¥N½X
¦Ó¤£¬O"¡ªOther Item" ¥N½X¡A­è¤~´ú¸Õ¨ä¥L¥N½X³£¤£¨£¤F¡C
«D±`©êºp»¡©ú¤£¸Ô²Ó¡C
ÁÂÁÂ

TOP

¦^´_ 6# b9208


    ¨º¨SÃö«Y¤~¹ï
°£«D«ü©wªºªþÀɦW¿ù»~®Ú¥»¨S§ì¨ì³o¨ÇÀɦW
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Dear Hsieh
«D±`©êºp¡A¦Û¤v¿ù»~¡C
¥¨¶°¥i¥H°õ¦æ¨Ï¥Î
·PÁµL¨p¤À¨É

TOP

¶W¯Åª©¥D,½Ð±Ð¤@¤U,

¦p¦ó,¨ÌÀɮצWºÙ,¨Ì§Ç¨úÀɦW.

TOP

¦^´_ 9# tomking
Hsieh¶Wª© 2# µ{¦¡¤£´N¬O¶Ü?

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD