怎样用宏批量超链接!

超人归来 · 发表于 2011-9-10 20:45

书到用识方恨少，这下终于体会到了，请多支持，谢谢！

chengyu92102 · 发表于 2012-12-6 10:56

zhongcai 发表于 2010-3-26 08:56
1》可能是没有复制模块变量：
Dim ary(), m&
把这一行复制到模块的最上方试试这个语句复制到SU ...

您好，请问一下，这个目录如何还有四级和五级的话怎么做？

chengyu92102 · 发表于 2012-12-6 10:57

zhaogang1960 发表于 2010-3-26 15:15

您好，请问一下，这个目录如何还有四级和五级的话怎么做？

chengyu92102 · 发表于 2012-12-6 11:42

zhaogang1960 发表于 2010-3-26 15:15

赵老师，您好，这个目录我非常需要，但是还需要四级、五级目录，不知道如何做，请帮忙看看，谢谢了。

zhaogang1960 · 发表于 2012-12-6 12:26

chengyu92102 发表于 2012-12-6 11:42
赵老师，您好，这个目录我非常需要，但是还需要四级、五级目录，不知道如何做，请帮忙看看，谢谢了。

记得本帖并不成功
请上传你的附件，并模拟效果

无限趋向 · 发表于 2012-12-6 12:54

zhaogang1960 老师,能不能帮帮我.我想做如附件形式的超链接. ,想在"制度及文件资料目录.xls"这个文件的 J列建立链接,点击后,直接链到"河北分公司制度目录"这个文件夹下的相应文件.效果如J3单元格. 规律:链接的路径固定,链接的地址包含E列中的文件名.
链接的有的是文件,有的是目录.因为链接的文件如果有一堆附件什么的比较大,就会放到一个目录里.如果链接的是目录,点击后直接打开对应目录即可,如果是文件就直接把文件打开.
文件比较多,如何用VBA批量来做,求指导.有劳!!感谢!!

chengyu92102 · 发表于 2012-12-6 12:59

本帖最后由 chengyu92102 于 2012-12-6 13:03 编辑

想自动生成如附件中的目录
文件名有日文，特殊字符

chengyu92102 · 发表于 2012-12-6 13:00

zhaogang1960 发表于 2012-12-6 12:26
记得本帖并不成功
请上传你的附件，并模拟效果

赵老师，您好，把附件发在了这个贴的77楼，请您看看描述的是否可以，谢谢

zhaogang1960 · 发表于 2012-12-6 13:03

本帖最后由 zhaogang1960 于 2012-12-6 13:04 编辑

无限趋向发表于 2012-12-6 12:54
zhaogang1960 老师,能不能帮帮我.我想做如附件形式的超链接. ,想在"制度及文件资料目录.xls"这个文件的 ..

你得先告诉我下图中的前4列数据是从哪里来的，从文件夹“分公司-文件1”和文件9999.txt中无法获得
捕获.JPG

战战如疯 · 发表于 2012-12-6 13:41

Sub dirdir(MyPath)
Dim MyName
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
      If MyName <> "." And MyName <> ".." Then
         If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            m = m + 1
            ReDim Preserve ary(1 To m)
            ary(m - 1) = MyPath & MyName & "\"
         End If
      End If
      MyName = Dir
Loop
End Sub
求赵老师解释下这段里面的两个if句子。一个点"."和两个点'.."各是什么意思？GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory ，这个关于属性的要怎么理解？

		自动登录	找回密码
密码			免费注册

[求助] 怎样用宏批量超链接!