求助大神：怎么通过VBA将超链接设置为打开资源管理器

yyzh_god_2013

求助大神，最近有个需求搞不定，希望大神给个参考

1，在单元格中生成超链接文本，点击后会打开指定路径的资源管理器


点击图1中的（创建链接）将执行图2

2，点击资源管理器中的文件，将把资源管理器中选择的 文件路径和名称 存储 在该链接的单元格上

liulang0808

1，在单元格中生成超链接文本，点击后会打开指定路径的资源管理器
这个楼主可以录制宏，看看具体代码，然后修改

第二个问题，单纯的excel实现有些难了
变通一下，使用表格事件，打开对话框，然后选择文件，再解决1的录制宏代码生成超级链接看看吧

yyzh_god_2013

liulang0808 发表于 2019-10-9 07:31
1，在单元格中生成超链接文本，点击后会打开指定路径的资源管理器
这个楼主可以录制宏，看看具体代码，然 ...

超链接我会额，这里可能我的描述有偏差

我想要做到的效果是  点击链接后 会打开一个可以从里面选择的那种资源管理器

超链接打开的文件夹 和  Excel就没有关系了

想要在超链接里面做出一个可以选择文件的资源管理器

liulang0808

yyzh_god_2013 发表于 2019-10-10 20:47
超链接我会额，这里可能我的描述有偏差

我想要做到的效果是  点击链接后 会打开一个可以从里面选择的 ...

表格事件，弹出文件选择窗口吧

网海遨游

仅供参考……

Sub 电脑中选择文件夹中文件打开工作薄()
    Dim frr As Variant, n%, sh As Worksheet, sht As Worksheet, dk
    frr = Application.GetOpenFilename(filefilter:="Excel文件,*.xls*", Title:="选择Excel文件", MultiSelect:=True)
    '在电脑中选择某文件夹中的文件，返回完整工作薄路径名称和文件名。如果取消返回false。
    If TypeName(frr) = "Boolean" Then Exit Sub   ' 如果点击“取消”就退出Sub
    For n = 1 To UBound(frr) '选择几个工作薄，就逐渐打开几个
            Set dk = Workbooks.Open(frr(n)) '打开工作薄
            '......
            dk.Close  '关闭的打开工作簿
    Next
End Sub

liulang0808

表格事件，代码见截图，楼主看看是不是这个意思吧。