Question

我真的需要帮助创建一个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

从another SO answer开始，这将删除文件后缀：

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

如何从文件夹中提取Excel，图像名称？

1 个答案: