image - VBA excel存在jpg类型的图像格式

Question

假设我在 excel 中有一个名为 test.xls 的电子表格，其中有一个名为 column1 的列，其值为 image1、image2 等。我有一个名为 images 的文件夹，包含 jpg 类型的图像，命名类似于 image1 列中的值.jpg、image2.jpg 等。我需要一个 Vba 代码来检查基于电子表格列的文件夹中是否存在图像。谢谢！

Answer 1

此示例将在另一列中显示搜索结果。编辑变量，不要忘记文件夹路径中的最后一个 \。

Sub checkFiles()
  Dim count&, lastRow&
  Dim folderPath, columnRead, columnWrite As String

  folderPath = "C:\EXAMPLE\"
  columnRead = "A"
  columnResults = "B"

  lastRow = ThisWorkbook.Sheets(1).Range(columnRead & Rows.count).End(xlUp).Row
  For count = 1 To lastRow
    Range(columnRead & count).Activate

    If Dir(folderPath & Range(columnRead & ActiveCell.Row).Value) <> "" Then
        Range(columnResults & ActiveCell.Row).Value = "File exists."
    Else
        Range(columnResults & ActiveCell.Row).Value = "File doesn't exist."
    End If

  Next count
End Sub