怎样用宏批量超链接!

____ · 发表于 2009-9-10 09:22

同感谢zhaogang1960！

zhongcai · 发表于 2010-3-22 09:40

具体在附件里面
┣数学
┃  ┣第一章集合
┃  ┃  ┣ 1.1集合的含义及其表示.doc
┃  ┃  ┣ 1.2子集、全集、补集.doc
┃  ┃  ┣ 1.3交集、并集.doc
┃  ┣第二章函数概念与基本初等函数
┃  ┃  ┣2.1函数的概念和图象.doc
┃  ┃  ┣ 2.2指数函数.doc
┃  ┃  ┣ 2.3对数函数.doc
┃  ┃  ┣2.4幂函数.doc
┃  ┃  ┣2.5函数与方程.xls
┃  ┃  ┣2.6函数模型及其应用.xls

像这个目录，下面画横线的全部建立了超链接，全部是用鼠标
右键点击建立超链接找到该文件，操作费时。
我工作处理的文件多，可能远远不止两章，第一章，可能远远
不止三个文件，一个一个地用鼠标去建超链接太费时间了。
因此我想是否可以编程序写超链接：目录可以用文件目录生成树
生成，跟文件名是一一对应的，是相同的，因此是否可以这个目录
的1.1  的文字然后与文件夹的文件名进行比较，相同则到这个
目录下写超链接，不相同则继续与下一个文件比较，相同则写
超链接。这样我就可以省很多时间，节约很多工作量。
谢谢您帮忙思考

zhaogang1960 · 发表于 2010-3-22 10:59

原帖由 zhongcai 于 2010-3-22 09:40 发表
具体在附件里面
┣数学
┃  ┣第一章集合
┃  ┃  ┣ 1.1集合的含义及其表示.doc
┃  ┃  ┣ 1.2子集、全集、补集.doc
┃  ┃  ┣ 1.3交集、并集.doc
┃  ┣第二章函数概念与基本初等 ...

请测试：
Sub Macro1()
Dim mypath$, mydir$, arr() As String, a, MyFilename$, i&, m&, n&, s1$, s2$
s1 = "┃  ┣"
s2 = "┃  ┃  ┣"
mypath = ThisWorkbook.Path & "\"
mydir = Dir(mypath & "*", vbDirectory)
While mydir > ""
      If Not mydir Like ".*" And GetAttr(mypath & mydir) = vbDirectory Then
         n = n + 1
         ReDim Preserve arr(1 To n)
         arr(n) = mypath & mydir
      End If
      mydir = Dir()
Wend
m = 1
Application.ScreenUpdating = False
With ActiveSheet
      .[A1].CurrentRegion.Offset(1, 0).Clear
      For i = 1 To n
         m = m + 1
         a = Split(arr(i), "\")
         .Cells(m, 1) = s1 & a(UBound(a))
         MyFilename = Dir(arr(i) & "\*.*")
         Do While MyFilename <> ""
            m = m + 1
            .Hyperlinks.Add Anchor:=.Cells(m, 1), Address:=arr(i) & "\" & MyFilename, TextToDisplay:=s2 & Replace(MyFilename, "?", "")
            MyFilename = Dir
         Loop
      Next
End With
Application.ScreenUpdating = True
End Sub

zhongcai · 发表于 2010-3-22 14:29

第%3f的路劲很多酒不能找到链接到相关文件一章全不行第二章2.2 2.3 不能链接

zhongcai · 发表于 2010-3-22 15:09

感谢zhanggang1960

zhongcai · 发表于 2010-3-22 16:27

┣数学
┃  ┣第一章集合
┃  ┃  ┣1.1 子集.doc
┃  ┃  ┣1.2 子集二.doc
┃  ┃  ┣1.3并集
┃  ┃  ┃  ┣1.3.1并集1.doc
┃  ┃  ┃  ┣1.3.2 并集2.doc
┃  ┣第二章函数概念与基本初等函数
┃  ┃  ┣2.6函数模型及其应用.xls
┃  ┃  ┣2.1函数的概念和图象.doc
┃  ┃  ┣2.4幂函数.doc
┃  ┃  ┣2.5函数与方程.xls
┃  ┃  ┣2.3习题
┃  ┃  ┃  ┣2.3.1 习题一.doc
┃  ┃  ┃  ┣习题二.doc

好001 · 发表于 2010-3-22 16:58

有点看不懂

强人

zhaogang1960 · 发表于 2010-3-22 21:52

第一个问题是文件名含有vba中不能作为文件名的字符，请手工删除
关于三级文件请测试：

数学三级文件.rar (31.58 KB, 下载次数: 79)

zhongcai · 发表于 2010-3-23 08:33

n = n + 1
            .Hyperlinks.Add Anchor:=.Cells(n, 1), Address:=arr(i, 1) & MyFilename, TextToDisplay:=s(UBound(a) - l) & MyFilename
            MyFilename = Dir
         Loop
      Next
End With
m = 0
Erase ary
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub

？？？？？？？？？？？Sub dirdir(MyPath)？？？？变量未定义？
Dim MyName

是不是没有 SHEET 1 SHEET 2 SHEET3  SHEET1(2)  这个所以，没办法在其他目录下成功啊？

zhaogang1960 · 发表于 2010-3-23 09:50

原帖由 zhongcai 于 2010-3-23 08:33 发表
n = n + 1
            .Hyperlinks.Add Anchor:=.Cells(n, 1), Address:=arr(i, 1) & MyFilename, TextToDisplay:=s(UBound(a) - l) & MyFilename
            MyFilename = Dir
         Loop
   ...

不明白楼主的意思，我这里测试没有问题
两个字程序第一个是主程序，另一个是子程序，用于取得子文件夹
代码中默认超过10章后是第一十一章、第一十二章……，如果不对请说明
请楼主上传有问题的附件，并详细说明情况

[ 本帖最后由 zhaogang1960 于 2010-3-23 14:05 编辑 ]

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

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

怎么批量生成超链接，文件目录下的文件

%3f的路劲很多酒不能找到链接到相关文件感谢您再查一查

解决了对其他目录都很有效不知道为什么数学那个失败了一点点

求助啊！如果有三级文件呢 ┃ ┃ ┃ ┣1.3.1并集1.doc S3该怎么添加到程序啊

为什么有两个函数啊？继续请教啊，放其他目录就失效了。