VBA Excel 2010 msoFileDialogOpen Path.Open运行时错误'424'：需要对象

Question

我有一个简单的功能，允许用户使用Excel 2010的VBA的msoFileDialogOpen属性选择文件来选择文件。当我运行它时，我得到了错误：

  

运行时错误'424'：

     

需要对象

以下是违规行：

    Path.Open

以下是整个功能：

Public Sub Function4_FileExplorer()
Dim file As Variant
'   Start File Explorer to select file containing data (simple GUI, much easier than coding vFileName)
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    If .Show Then
        file = .SelectedItems(1)
        Path = file
    End If
    Path.Open
End With
MsgBox file

Exit Sub
ErrorHandler:
MsgBox "Error detected" & vbNewLine & "Error" & Err.Number & _
       Err.Description, vbCritical, "Error Handler: Error " & Err.Number

End Sub

我该如何修复此运行时错误？我谢谢你！

Answer 1

原因是您将字符串值分配给变量Path，之后您尝试在此字符串上调用方法Open：

Path.Open

String是原始值，它没有任何方法。您可以将它用作函数的参数，但不能调用自己的方法，因为它们没有。