如何从一个文件夹中提取到一个Excel中的图像名称？

我真的需要帮助创build一个VBA，因为我不知道关于VBA。 我已经将图像下载到我的桌​​面，每个图像都有一个标题代码。 我需要将该代码提取到Excel中。 我给你一个图像标题的例子：010117这就是我的图像的标题，当然是不同的数字（为ej 011225,191143等）。

你能告诉我我需要在VBA中编写的代码，所以我可以将这些代码提取到Excel中？ 谢谢！

Answer 1

从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 

从另一个SO回答 ，这将剥离文件后缀：

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