如何从文件夹中提取到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中的图像名称？

回答

相关问题