☰

如何使用 VBA 从 Excel 电子表格中的列表打开文件夹

tag-icon • tag-icon microsoft-excel vba
如何使用 VBA 从 Excel 电子表格中的列表打开文件夹 
Dim strFolderPath As String 
strFolderPath = “C:\temp\” 
ThisWorkbook.FollowHyperlink (strFolderPath)

此代码打开一个特定的文件夹，但我需要打开保存在 Excel 表中的文件夹，如下所示：

1 穆罕默德

我需要代码来读取路径并使用 Excel 中的现有路径打开文件夹

答案1

你是指像下面这样的东西吗？

With ThisWorkbook.Sheets("Sheet1")   
    Range("C2").Hyperlinks(1).Follow
End with

如果您的地址实际上不是超链接：

With ThisWorkbook.Sheets("Sheet1")   
    ThisWorkbook.FollowHyperlink Address:=.Range("C2").Value, NewWindow:=False, AddHistory:=True
End with

另外，请注意您的值目前没有任何扩展。您可能希望在单元格中或通过 VBA 添加这些内容：

Address:=.Range("C2").Value & ".extention"

相关内容