Question

我有一张excel表格，我在列F＆amp;列中有jpegs的名字。 G从第2行到第1800行。我想使用宏来查看这些Jpeg是否存在于我的计算机（mac）上某个目录的某个文件夹中（例如/ user / Dropbox / Content / productinfo / pictures）。如果它们确实存在，我想返回值“exists”，如果没有，那么“不”。唯一的问题是在少数情况下电子表格中不存在Jpeg，因此无需查找

我是excel Macros的新手。请帮帮我！

提前致谢！

Answer 1

Dim iCount As Integer
iCount = Application.WorksheetFunction.COUNTIF(Range("F2:G1800"),".jpg")

if iCount > 0 Then

  'Do your checks
End If

Answer 2

您可以使用用户定义的功能。在您的情况下，您可以使用以下方式调用以下内容：

=fileexists("C:\MyPath\"&f2)

这是函数

Public Function FileExists(sPath As String)

If lcase(right(sPath,5)) <> ".jpeg" Then
    FileExists = ""
Else
    If Len(Dir(sPath)) > 0 Then
        FileExists = "Exists"
    Else
        FileExists = ""
    End If
End If


End Function

Excel宏用于搜索文件夹中是否存在列（文件名）的内容

2 个答案: