如何利用VBA进行文件的分发

EXCEL渣渣

一把小刀闯天下 发表于 2019-10-19 08:04
'只是增加了一个选择源数据文件夹的弹出框，这个目标文件夹名称不一定是“分发库”

Option Explicit

谢谢你。我自己根据网上学到的，试着做一个文件重命名。但是遇到一些问题。
希望可以自动填充新文件名那一列，请老师帮我修改一下代码。
谢谢

EXCEL渣渣

EXCEL渣渣 发表于 2019-10-19 10:17
谢谢你。我自己根据网上学到的，试着做一个文件重命名。但是遇到一些问题。
希望可以自动填充新文件名那 ...

哈哈，摸索了下自己解决了

EXCEL渣渣

EXCEL渣渣 发表于 2019-10-19 10:17
谢谢你。我自己根据网上学到的，试着做一个文件重命名。但是遇到一些问题。
希望可以自动填充新文件名那 ...

老师你好，请问如何为文件名列下的文件名添加超级链接

一把小刀闯天下

'参考一下，，，

Option Explicit

Sub test()
  With ActiveSheet
    .Hyperlinks.Add .Range("a1"), "http://club.excelhome.net/thread-1503401-6-1.html"
  End With
End Sub

zpy2

EXCEL渣渣 发表于 2019-10-19 14:33
老师你好，请问如何为文件名列下的文件名添加超级链接

建议你还是建立一个简单规范化的数据结构来查，这样子达不到像百度一样的方便查询。

lovemh1987

根据楼上诸位大神的代码上 改了下。你看能否满足需要。

EXCEL渣渣

谢谢你，大神已经帮我完美解决了。

EXCEL渣渣

一把小刀闯天下 发表于 2019-10-19 15:02
'参考一下，，，

Option Explicit

老师你好，不是这样啊。
应该是我通过代码，获得了我想要的文件的名称于文件列，并将我获得的文件加上相应超级链接，我只要点击那个文件名就可以打开那个文件了。附件我已经上传过了，请老师看看应该在我的代码里如何修改，谢谢。

EXCEL渣渣

EXCEL渣渣 发表于 2019-10-19 18:33
老师你好，不是这样啊。
应该是我通过代码，获得了我想要的文件的名称于文件列，并将我获得的文件加上相 ...

附件我已经重新上传了，请帮我添加超级链接的代码，谢谢老师了。

一把小刀闯天下

'参考一下，假设这个Excel文件是存在的，自己修改吧，，，

Option Explicit

Sub test()
  With ActiveSheet
    .Hyperlinks.Add .Range("a1"), "d:\abc.xlsx"
  End With
End Sub