怎样用宏批量超链接!

linn339q · 发表于 2009-5-26 20:54

详细请打开新建文件夹里的"123"文件!谢了!

6688 · 发表于 2009-5-27 15:22

Sub hyper()
ir = Range("a65535").End(xlUp).Row
For i = 2 To ir Step 2
Cells(i, 1).Select
tmp = Cells(i, 1).Offset(-1, 0)
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:=Cells(i, 1), TextToDisplay:=tmp
Next i
End Sub

zhaogang1960 · 发表于 2009-5-27 16:11

请测试：

新建文件夹.rar (22.52 KB, 下载次数: 737)

linn339q · 发表于 2009-5-28 15:16

多谢你了！可以了!

linn339q · 发表于 2009-5-28 15:31

再问一下，我不想显示地址，我只想显示文件的名称和文件夹的名称，又该怎样修改代码呢？

zhaogang1960 · 发表于 2009-5-28 15:45

其他代码不变，aaa修改如下：
Sub aaa()
Dim n As Integer, i As Integer, j As Integer
Dim wb As Workbook, sht As Worksheet, c As Range, a
Application.ScreenUpdating = False
m = 2
ReDim ary(1 To m)
ary(1) = ThisWorkbook.Path & "\"
i = 1
Do While ary(i) <> ""
      dirdir (ary(i))
      i = i + 1
Loop
For Each cel In ary
      If cel <> "" Then Call dirf(cel)
Next
Columns(1).Clear
For i = 2 To UBound(ary) - 1
      n = n + 1
      a = Split(ary(i), "\")
      ActiveSheet.Hyperlinks.Add Anchor:=Cells(i - 1, 1), Address:=ary(i), TextToDisplay:=a(UBound(a) - 1)
Next
For i = 1 To UBound(arr)
      a = Split(arr(i), "\")
      ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + n, 1), Address:=arr(i), TextToDisplay:=a(UBound(a))
Next
m = 0
mm = 0
Erase ary, arr
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub

linn339q · 发表于 2009-5-28 15:48

谢你了！问题解决了！谢谢。。。

wdlxmzxws · 发表于 2009-5-29 23:56

太强了！！！

zzf_ · 发表于 2009-7-21 13:37

如何根据工作表中文件名（文件名不重复），查找该工作表目录下文件，并建立超衔接？

zhaogang1960 · 发表于 2009-7-21 14:06

文字说明不是很理解，请上传一个附件吧

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

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

回复 3楼 zhaogang1960 的帖子

回复 3楼 zhaogang1960 的帖子

回复 5楼 linn339q 的帖子

回复 6楼 zhaogang1960 的帖子

回复 6楼 zhaogang1960 的帖子

如何根据工作表中文件名，查找目录下文件，并建立超衔接？

回复 9楼 zzf_ 的帖子