首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > 编程 >

excel批量把超链接的绝对路径改成相对路径

2012-09-13 
excel批量把超链接的绝对路径改为相对路径在excel里做了很多超链接,而且链接的都是本地的相对路径文件,可

excel批量把超链接的绝对路径改为相对路径
在excel里做了很多超链接,而且链接的都是本地的相对路径文件,可惜不知怎么的,它会自动变成绝对路径,这样就引起访问时找不到正确路径,故通过VBA批处理的方法把它全部改回来,如下:


Dim oldfile As String
Dim Newfile As String


Sub RemoveHyperLinks()
oldfile = "D:\Administrator\Application Data\Microsoft\Excel\" '需要替换的旧文件名
Newfile = "" '替换成的新文件名


    For Each hlink In Cells.Hyperlinks
        hlink.Address = Replace(hlink.Address, oldfile, Newfile)
    Next
End Sub

热点排行