无法通过资源管理器打开excel文件

Question

请告知我的编码有什么问题，它是打开唯一的PDF文件，而不是excel。我想让它变得动态，以便我们可以打开任何类型的文件或文件夹。

 myFileNameDir = Sheet3.Range("V7").Value
 Workbooks.Open fileName:=myFileNameDir, UpdateLinks:=0
 Set ws1 = Worksheets("Tracker")
 str = CStr(ListView11.SelectedItem.SubItems(8))
 Shell "explorer.exe" & " " & str, vbNormalFocus