[µo°Ý] ¸ê®Æ§¨¤¤_¦hÀɮ׸ê®Æ¶×¾ã

hugh0620

Dear ¤j¤j~

         ³Ìªñ¥X®t­è¦^¨Ó~ ²{¦b¤S¨Ó³Â·Ð¦U¦U¤j¤j~

        ¦]À°¤½¥q°µ¤@­Ó°Ý¨÷½Õ¬dªº¸ê®Æ¶×¾ã~
       ¥d¨ì¦p¦ó±N¦h­ÓÀɮ׶׾ã¦b¤@­Ó¸ê®Æ¤º
       (¦³¬d¹L¤j¤j­Ì¹ï³o¤è­±ªº°ÝÃD¸Ñ¨M¤è¦¡~ ¦ý¤Ó¹L½ÆÂø~ ¦Û¤vµLªk®³¨ÓÀ³¥Î~ ·Q³z¹L¦Û¤v²³æªºÁ|¨Ò¨Ó¦V¦U¦ì¤j¤j°½®v~ )

       ªþ¥ó(¦@¥|­ÓÀÉ)¤¤¬O§ÚªºÁ|¨Ò
       ABCÀɬO¶×¾ãÀÉ (·|©ñ¦b®à­±)
       AÀÉBÀÉCÀÉ  (·|©ñ¦b«ü©wªº¸ê®Æ§¨¤¤)
      
       ¤U­z¬O§Ú§Æ±æªº¾Þ§@µ²ªG~
       1. ÂI¿ïABCÀɤ¤ªº«ö¶s«á~ ¥i¥H¿ï¾Ü¸ê®Æ§¨~
       2. ½T©w«á~ ±NAÀÉBÀÉCÀÉ(¥ç§Y¬O¸ê®Æ§¨¤¤©Ò¦³ÀÉ®×)ªºA1Äæ¦ì¸ê®Æ¶×¨ìABC¤¤~
      
       ½Ð¤j¤j­Ì«ü¾É¤@¤U~ ÁÂÁÂ~
         ¸ê®Æ¶×¾ã.rar (11.74 KB)

¤U¸ü¦¸¼Æ: 63

2011-9-29 16:55

hugh0620

¦^´_ 2# Hsieh


    Dear H¤j¤j~ ¶W·P®¦ªº~

              ±N±zªºµ{¦¡½X~ µy·L­×§ï¤@¤U~ ªÈ¯à°÷§¹¥þ®M¥Î¨ì§Ú»Ý­nªº¤u¨ã¤W~
              ·PÁ§Aªº«ü¾É~ ÁÂÁÂ~

Hsieh

¦^´_ 1# hugh0620

1. Private Sub CommandButton1_Click()
   
2. Dim Ar()
   
3. With Application.FileDialog(msoFileDialogFolderPicker)
   
4. .Show
   
5. fd = .SelectedItems(1)
   
6. If .ButtonName = "½T©w" Then
   
7. fs = Dir(fd & "\*.xls")
   
8. Do Until fs = ""
   
9. fds = fd & "\" & fs
   
10. With Workbooks.Open(fds)
    
11. ReDim Preserve Ar(s)
    
12. Ar(s) = .Sheets(1).[A1].Value
    
13. s = s + 1
    
14. .Close 0
    
15. End With
    
16. fs = Dir
    
17. Loop
    
18. End If
    
19. End With
    
20. [B3].Resize(s, 1) = Application.Transpose(Ar)
    
21. End Sub

½Æ»s¥N½X