使用变量文件名在VBA中获取文件标签

我在Excel中使用VBA循环浏览一系列文件并决定导入哪些文件。我想决定使用文件标签之类的东西导入哪些文件，这样我就不需要打开每个文件了。我正在尝试使用 GetDetailsOf 获取它们的方法，但每当我尝试使用变量作为文件名时它就失败了。

此代码使用常量作为文件名，可正常工作：

Sub TestTags()
  Dim strPath As String
  Dim strFile As String

  strPath = "C:\Users\XXXX\Documents\Safe Space\MacroTest\"
  strFile = Dir(strPath & "*.xls*")
  Do While strFile <> ""
      Debug.Print GetTags()
      strFile = Dir()
  Loop
End Sub

Function GetTags()
  Const csFile As String = "MyTestFile.xlsx"

  With CreateObject("Shell.Application").Namespace("C:\Users\XXXX\Documents\Safe Space\MacroTest\")
      GetTags = .GetDetailsOf(.Items.Item(csFile), 18)
  End With
End Function

但是，当我尝试用调用子例程传递的变量替换常量时，我​​得到一个错误。这是失败的代码：

Sub TestTags()
    Dim strPath As String
    Dim strFile As String

    strPath = "C:\Users\XXXX\Documents\Safe Space\MacroTest\"
    strFile = Dir(strPath & "*.xls*")
    Do While strFile <> ""
        Debug.Print GetTags(strFile)
        strFile = Dir()
    Loop
End Sub

Function GetTags(ByVal strFile As String)
    Const csFile As String = "MyTestFile.xlsx"
    Dim i As Integer

    With CreateObject("Shell.Application").Namespace("C:\Users\XXXX\Documents\Safe Space\MacroTest\")
        GetTags = .GetDetailsOf(.Items.Item(strFile), 18)
    End With
End Function

我唯一要改变的就是论证 .GetDetailsOf 方法，从常量切换到变量。每当它运行时，它就会停在该行上，并显示“错误445：对象不支持此操作”

我究竟做错了什么？

编辑：

好。仍然无法确切地解决为什么案例2不起作用，但我 有 发现以“正确”的方式获取FolderItem对象所对应的 strFile （根据要求） .GetDetailsOf() ）是用的 .ParseName() 方法：

Function GetTags(ByVal strFile As String)
    Const csFile As String = "MyTestFile.xlsx"
    Dim i As Integer

    With CreateObject("Shell.Application").Namespace("C:\Users\XXXX\Documents\Safe Space\MacroTest\")
        GetTags = .GetDetailsOf(.ParseName(strFile)), 18)
    End With
End Function

我无法解释 为什么 它不起作用，但我确实有三个解决方法。

1）使用 CStr(strFile) 代替 strFile 在打电话时 .GetDetailsOf()：

Function GetTags(ByVal strFile As String)
    Const csFile As String = "MyTestFile.xlsx"
    Dim i As Integer

    With CreateObject("Shell.Application").Namespace("C:\Users\XXXX\Documents\Safe Space\MacroTest\")
        GetTags = .GetDetailsOf(.Items.Item(CStr(strFile)), 18)
    End With
End Function

要么

2）更改参数类型 strFile 至 Variant：

Function GetTags(ByVal strFile As Variant)
    Const csFile As String = "MyTestFile.xlsx"
    Dim i As Integer

    With CreateObject("Shell.Application").Namespace("C:\Users\XXXX\Documents\Safe Space\MacroTest\")
        GetTags = .GetDetailsOf(.Items.Item("" & strFile), 18)
    End With
End Function

要么

3）将空字符串连接到 strFile 在打电话时 .GetDetailsOf()：

Function GetTags(ByVal strFile As Variant)
    Const csFile As String = "MyTestFile.xlsx"
    Dim i As Integer

    With CreateObject("Shell.Application").Namespace("C:\Users\XXXX\Documents\Safe Space\MacroTest\")
        GetTags = .GetDetailsOf(.Items.Item("" & strFile), 18)
    End With
End Function

Dir（）函数不返回完整路径，它只返回文件名和扩展名。因此，当您尝试访问标记时，如果获得Dir（）的结果，则只传递文件名和扩展名。相反，预先挂起路径，如下所示。我在GetTags中更改了传递变量的名称，以帮助避免混淆。

Sub TestTags()
    Dim strPath As String
    Dim strFile As String

    strPath = "C:\Users\XXXX\Documents\Safe Space\MacroTest\"
    strFile = Dir(strPath & "*.xls*")
    Do While strFile <> ""
        Debug.Print GetTags(strPath & strFile)
        strFile = Dir()
    Loop
End Sub

Function GetTags(ByVal strFullPath As String)
    With CreateObject("Shell.Application").Namespace("C:\Users\XXXX\Documents\Safe Space\MacroTest\")
        GetTags = .GetDetailsOf(.Items.Item(strFullPath), 18)
    End With
End Function