[µo°Ý] ±q¬Y¸ê®Æ§¨¤¤¡A±NÀɮצWºÙ«Ø¥ß¦bexcel¤¤

hugh0620

Dear ¤j¤j

          ¦³µL¿ìªk±N¬Y­Ó¸ê®Æ§¨¤¤ªº¼v­µÀÉ(°ÆÀɦW:.wmv©Î¥ô¦ó°ÆÀɦW)¦WºÙ¡A
          1.¨C¤@­Ó¼v­µÀɪº¦WºÙ³£«Ø¥ß¦bexcel¤¤  
             (¦pªG¥i¥H¡A¬O§_¤@­ÓÄæ¦ì¼gÀɮצWºÙ¡B¤@­ÓÄæ¦ì¼g¤W°ÆÀɦWºÙ[ex¡Gexcel ´N¶ñ¤Wexcel¡Bword´N¶ñ¤Wword])
          2.¨C­Ó¦WºÙ«Ø¥ß¶W³sµ²

         

¤U¸ü (46.6 KB)

2014-9-29 21:35

hugh0620

Dear ¤j¤j
             ªþ¥ó¬O§Úªì½Z¡A¦³³]©wÃþ¦ü«ü©w¸ê®Æ§¨¡A¦b§ì¨ú¸Ó¸ê®Æ§¨¤¤ªºÀɮצWºÙ¡A¦ýµo¥Í¤F°ÝÃD
    ¯à-ÀɮצWºÙ¶×¤J-HH-20140930-001.rar (13.27 KB)

¤U¸ü¦¸¼Æ: 6

2014-9-30 13:40

            ¤U­±¬O§Úªºµ{¦¡½X
            ¦b²Ä13¦C  myFileName = Dir(myPath, 0) §ì¨ìªº¬O""¡A©Ò¥H¡A¶]¤£¥X¨Ó

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3. 
   
4. Dim myPath As String
   
5. Dim myFileName As String
   
6. Dim i As Long
   
7. Dim K As Integer
   
8. 
   
9. With Application.FileDialog(msoFileDialogFolderPicker)
   
10.      .Show
    
11.   If .ButtonName = "½T©w" Then
    
12.     myPath = .SelectedItems(1)
    
13.     myFileName = Dir(myPath, 0)
    
14.     Do While Len(myFileName) > 0
    
15.       Debug.Print myPath & myFileName
    
16.       sheet1.Range("B65536").End(xlUp).Offset(1, 0) = myPath        '¸ô®|
    
17.       sheet1.Range("C65536").End(xlUp).Offset(1, 0) = myFileName    'ÀɦW
    
18.       K = K + 1
    
19.       sheet1.Range("A65536").End(xlUp).Offset(1, 0) = K             'No
    
20.       myFileName = Dir()
    
21.     Loop
    
22.   End If
    
23. End With
    
24. 
    
25. 
    
26. End Sub

½Æ»s¥N½X