如何把excel宏的绝对路径改为相对路径
发布网友
发布时间：2022-06-15 07:36
共1个回答
热心网友
时间：2023-10-23 15:57
Dim ws As Worksheet
Dim i As Integer
i = 1
ThisWorkbook.Worksheets.Add.Name = "目录"
Worksheets("目录").Cells(i + 1, 1).Value = "序号"
Worksheets("目录").Cells(i + 1, 2).Value = "名称"
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "目录" Then
i = i + 1
Worksheets("目录").Cells(i + 1, 1).Value = i - 1
Worksheets("目录").Cells(i + 1, 2).Value = ws.Name
Worksheets("目录").Hyperlinks.Add Cells(i + 1, 2), _
"", _
ws.Name & "!A1", _
"单击跳转到" & ws.Name, _
ws.Name
End If
Next
i = ThisWorkbook.Sheets.Count - 1
Worksheets("目录").Range("A3:A" & i + 2).Select
Selection.HorizontalAlignment = xlCenter
Worksheets("目录").Range("B3:B" & i + 2).Select
Selection.HorizontalAlignment = xlGeneral
Selection.Font.ColorIndex = 5
Selection.Font.Underline = xlUnderlineStyleNone
Worksheets("目录").Rows("2:2").Select
Selection.Font.Bold = True
Selection.HorizontalAlignment = xlCenter
End Sub
'Hyperlinks的说明，摘自Office帮助:
'Hyperlinks.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
'Anchor 必选 Object 超链接的位置。可为 Range 或 Shape 对象。
'Address 必选 String 超链接的地址。
'SubAddress 可选 Variant 超链接的子地址。
'ScreenTip 可选 Variant 当鼠标指针停留在超链接上时所显示的屏幕提示。
'TextToDisplay 可选 Variant 要显示的超链接的文本。
'要想超链接在本文件内：将参数Address设为空""
