[發問] 從某資料夾中，將檔案名稱建立在excel中

hugh0620

Dear 大大

          有無辦法將某個資料夾中的影音檔(副檔名:.wmv或任何副檔名)名稱，
          1.每一個影音檔的名稱都建立在excel中  
             (如果可以，是否一個欄位寫檔案名稱、一個欄位寫上副檔名稱[ex：excel 就填上excel、word就填上word])
          2.每個名稱建立超連結

         

下載 (46.6 KB)

2014-9-29 21:35

hugh0620

Dear 大大
             附件是我初稿，有設定類似指定資料夾，在抓取該資料夾中的檔案名稱，但發生了問題
    能-檔案名稱匯入-HH-20140930-001.rar (13.27 KB)

下載次數: 6

2014-9-30 13:40

            下面是我的程式碼
            在第13列  myFileName = Dir(myPath, 0) 抓到的是""，所以，跑不出來

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 = "確定" 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    '檔名
    
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

複製代碼

GBKEE

回復 2# hugh0620
試試看

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3. Dim myPath As String
   
4. Dim K As Integer
   
5. Dim F As Object, E As Object
   
6. With Application.FileDialog(msoFileDialogFolderPicker)
   
7.     'If .ButtonName = "確定" Then
   
8.     '**不管你是否按下確定鍵,或是關閉對話視窗, ** 這行程式碼都是正確的 ***'
   
9.     If .Show = True Then   '有按下確定鍵
   
10.         myPath = .SelectedItems(1)
    
11.         Set F = CreateObject("Scripting.FileSystemObject").GetFolder(myPath).Files
    
12.         'FileSystemObject 物件 有提供檔案內容的屬性可用
    
13.         If F.Count > 0 Then
    
14.             Cells.Clear
    
15.             K = 5
    
16.             Cells(K, "a") = "No"
    
17.             Cells(K, "b") = "路徑"
    
18.             Cells(K, "c") = "音檔案名稱"
    
19.             Cells(K, "d") = "檔案大小"
    
20.             Cells(K, "E") = "檔案型態"
    
21.             For Each E In F
    
22.                 If E.Type = "MP3 格式聲音" Then  '指定你的檔案型態: "影音檔"
    
23.                     K = K + 1
    
24.                     Cells(K, "a") = K - 5
    
25.                     Cells(K, "b") = myPath
    
26.                     Cells(K, "c") = E.Name
    
27.                     Cells(K, "d") = Format(E.Size / 1024, "#,000 KB")
    
28.                     Cells(K, "E") = E.Type
    
29.                 End If
    
30.             Next
    
31.         End If
    
32.     End If
    
33. End With
    
34. End Sub

複製代碼