如何從文件夾中提取到Excel中的圖像名稱？

我真的需要幫助創建一個vba，因爲我不知道vba。我已將圖片下載到我的桌面，並且每張圖片都有一個代碼作爲標題。我需要將該代碼提取到Excel中。我給你一個圖像標題的例子：010117 這就是我的圖像的標題當然是不同的數字（對於ej 011225,191143等）。如何從文件夾中提取到Excel中的圖像名稱？

你能告訴我需要在VBA中編寫的代碼嗎，我可以將這些代碼提取到Excel中？謝謝！

來源

2014-09-12 Camelia

如果我理解你的問題，你需要excel中的文件名列表？ – yossico 2014-09-12 10:28:49

如果你不知道VBA，你可以嘗試使用cmd。進入包含圖像的文件夾並使用命令DIR/B，然後將結果從cmd複製到excel中。 – 2014-09-12 10:31:47

從ExtendOffice.com，這將獲取文件名列表：

Option Explicit 
Sub GetFileNames() 
Dim xRow As Long 
Dim xDirect$, xFname$, InitialFoldr$ 
InitialFoldr$ = "C:\" '<<< Startup folder to begin searching from 
With Application.FileDialog(msoFileDialogFolderPicker) 
    .InitialFileName = Application.DefaultFilePath & "\" 
    .Title = "Please select a folder to list Files from" 
    .InitialFileName = InitialFoldr$ 
    .Show 
    If .SelectedItems.Count <> 0 Then 
    xDirect$ = .SelectedItems(1) & "\" 
    xFname$ = Dir(xDirect$, 7) 
    Do While xFname$ <> "" 
     ActiveCell.Offset(xRow) = xFname$ 
     xRow = xRow + 1 
     xFname$ = Dir 
    Loop 
    End If 
End With 
End Sub

而且從another SO answer，這將去掉文件後綴：

With Columns("A:A") 
    .Replace What:= _ 
     ".*", _ 
     Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _ 
     MatchCase:= False, SearchFormat:=False, ReplaceFormat:=False 
End With

來源

2014-09-12 10:50:25

如何從文件夾中提取到Excel中的圖像名稱？

回答

相關問題