在 Excel 2016 中打开文件路径答案

【问题标题】：Opening a file path in Excel 2016在 Excel 2016 中打开文件路径
【发布时间】：2020-09-15 20:43:14
【问题描述】：

我正在尝试编写一个 VBA 来打开一个直接文件夹的文件路径。我这样做有什么问题？这是正确的做法吗？

我已经搜索并使用了此处的示例，但出现错误（见下文）

Sub OpenFolder()
    Dim FolderPath As String

    FolderPath = "C:\Users\myname\Desktop\AdaptiveThreatProtection\"

    Call Shell("explorer.exe """ & FolderPath & "", vbNormalFocus)

End Sub

【问题讨论】：

这能回答你的问题吗？ How to open a folder in Windows Explorer from VBA?
这就是我正在尝试的，但没有运气。我收到错误：“运行时错误'5'：无效的过程调用或参数”
不清楚如何处理该文件夹。不知道具体意图，比如是否打开文件夹中的所有Excel文件并工作。有许多针对给定文件夹执行各种任务的示例。
我只想打开一个特定的文件路径。我有另一个将 txt 数据文件保存到同一路径的程序，所以我希望能够在 excel 中打开该路径，然后我可以导入该 txt 文件并使用各种宏等对其进行格式化。

标签： excel vba

【解决方案1】：

Sub OpenFolder()

    Dim MyFolder As String
    MyFolder = "C:\Users\myname\Desktop\AdaptiveThreatProtection"
    ThisWorkbook.FollowHyperlink MyFolder

End Sub

使用 ThisWorkbook 最终为我工作。它会打开确切的文件路径。

【讨论】：