excel绝对路径引用怎么改成相对路径

Excel中绝对和相对引用使用F4键进行切换知Excel版本参考：20101、B2单元格输道入=，选择a2单元格，按下F4键切换引用版2、行列前面都有$为绝对引用，拖动，不改变引用单元格地址3、C2直接输入=A2，拖动公权式改变

。。。

想了一下，您的这个代码是一次性的。。。即意味着只在你本机上运行宏的时候运行一次，后面就不会运行了。那么超链接保存下来的信息就会被固定为最初的地址。

修改了一下你的代码：（主要部分注释一下便于大家的理解）

Sub Workbook_Open() '使用这个事件可以保证每次文7a64e78988e69d83364档被打开的时候运行本宏。
Dim ws As Worksheet
Dim i As Integer
Dim ex As Boolean
i = 1
ex = False '是否已经存在“目录”表
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "目录" Then
ex = True
Exit For
End If
Next
If ex = False Then '如果不存在，则创建之。
ThisWorkbook.Worksheets.Add
Worksheets(i).Name = "目录"
End If
Worksheets("目录").Cells(i + 1, 1).Value = "序号"
Worksheets("目录").Cells(i + 1, 2).Value = "名称"
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "目录" Then
Worksheets("目录").Cells(i + 1, 1).Value = i - 1
Worksheets("目录").Cells(i + 1, 2).Value = Worksheets(i).Name

'其中iif语句为判断文档是否在盘符根目录下，即是否在 D:\ 之类的下面
Worksheets("目录").Hyperlinks.Add Cells(i + 1, 2), _
ThisWorkbook.Path & IIf(Right(ThisWorkbook.Path, 1) = "\", "", "\") & ThisWorkbook.Name, _
Worksheets(i).Name & "!A1", _
"单击跳转到" & Worksheets(i).Name, _
Worksheets(i).Name
End If
i = i + 1
Next
i = ThisWorkbook.Sheets.Count - 1
Worksheets("目录").Range("A3:A" & i + 2).HorizontalAlignment = xlCenter '这里直接使用Range的HorizontalAlignment相关属性是为了避免当前表不是“目录”时出错。下同。
Worksheets("目录").Range("B3:B" & i + 2).HorizontalAlignment = xlGeneral
Worksheets("目录").Range("B3:B" & i + 2).Font.ColorIndex = 5
Worksheets("目录").Range("B3:B" & i + 2).Font.Underline = xlUnderlineStyleNone
Worksheets("目录").Rows("2:2").Font.Bold = True
Worksheets("目录").Rows("2:2").HorizontalAlignment = xlCenter

End Sub

ps：使用此方法，需要在Excel开启VB宏，由此会带来很多安全隐患。根据微软Office2010的设置，文件的扩展名需要变为xlsm而不是xlsx，我不知道2003和2007是否也需要这么改。

如果不是特别需要，建议直接使用Excel的编辑超链接方法，里面有个链接到本文档中的位置选项。
你所给的图上不是有一个浏览吗？直接点击选择你现zhidao在的路径就可以，你把未选择的那回些文字都是系统生成的。
还有一个方法就是你在电脑上选择你的文件，答然后复制地址栏里的地址到你excel文件的连接里，在加上一个文件名就ok了

xcel中绝对和相对引zhidao用使用F4键进行切换

Excel版本参考：2010

1、B2单元格输入=，选择a2单元格，回按下F4键切换引用

2、行列前面都有$为绝对引用，拖动，不改变引用单元格地答址

3、C2直接输入=A2，拖动公式改变