应用场景;由某文档的收集功能,得到图片收集表,下载后得到电子表格和图片,表格中有图处的文件名,现需要将其关联起来,于是由超链接功能实现。
Sub 超链接()
''
On Error Resume Next
'
Dim row1, col1 As Integer
row1 = 51
j = Selection.Column
For i = 1 To row1
Cells(i, j).Select
' ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, j), Address:="", SubAddress:=ThisWorkbook.Path & "\" & Cells(i, j), TextToDisplay:=Cells(i, j).Value ’这个是文档内引用
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, j), Address:=ThisWorkbook.Path & "\" & Cells(i, j), TextToDisplay:=Cells(i, j).Value
Next i
End Sub
联系客服