麻辣家族討論版版 » Excel程式區 » 從某資料夾中，將檔案名稱建立在excel中

返回列表下一主題上一主題發帖

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

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-9-29 21:43 | 只看該作者

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

Dear 大大

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

樓主熱帖

收藏

學習才能提升自己

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2014-9-30 13:42 | 只看該作者

本帖最後由 hugh0620 於 2014-9-30 13:45 編輯

Dear 大大
附件是我初稿，有設定類似指定資料夾，在抓取該資料夾中的檔案名稱，但發生了問題

能-檔案名稱匯入-HH-20140930-001.rar (13.27 KB)
下面是我的程式碼
在第13列 myFileName = Dir(myPath, 0) 抓到的是""，所以，跑不出來

Option Explicit
Private Sub CommandButton1_Click()
Dim myPath As String
Dim myFileName As String
Dim i As Long
Dim K As Integer
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .ButtonName = "確定" Then
myPath = .SelectedItems(1)
myFileName = Dir(myPath, 0)
Do While Len(myFileName) > 0
Debug.Print myPath & myFileName
sheet1.Range("B65536").End(xlUp).Offset(1, 0) = myPath '路徑
sheet1.Range("C65536").End(xlUp).Offset(1, 0) = myFileName '檔名
K = K + 1
sheet1.Range("A65536").End(xlUp).Offset(1, 0) = K 'No
myFileName = Dir()
Loop
End If
End With
End Sub

複製代碼

學習才能提升自己

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-10-1 10:59 | 只看該作者

回復 2# hugh0620
試試看

Option Explicit
Private Sub CommandButton1_Click()
Dim myPath As String
Dim K As Integer
Dim F As Object, E As Object
With Application.FileDialog(msoFileDialogFolderPicker)
'If .ButtonName = "確定" Then
'**不管你是否按下確定鍵,或是關閉對話視窗, ** 這行程式碼都是正確的 ***'
If .Show = True Then '有按下確定鍵
myPath = .SelectedItems(1)
Set F = CreateObject("Scripting.FileSystemObject").GetFolder(myPath).Files
'FileSystemObject 物件有提供檔案內容的屬性可用
If F.Count > 0 Then
Cells.Clear
K = 5
Cells(K, "a") = "No"
Cells(K, "b") = "路徑"
Cells(K, "c") = "音檔案名稱"
Cells(K, "d") = "檔案大小"
Cells(K, "E") = "檔案型態"
For Each E In F
If E.Type = "MP3 格式聲音" Then '指定你的檔案型態: "影音檔"
K = K + 1
Cells(K, "a") = K - 5
Cells(K, "b") = myPath
Cells(K, "c") = E.Name
Cells(K, "d") = Format(E.Size / 1024, "#,000 KB")
Cells(K, "E") = E.Type
End If
Next
End If
End If
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 要比誰更受誰．不要比誰更怕誰。

返回列表下一主題上一主題