作者JointBank (嘘~ 不要问!)
看板Office
标题[算表] VBA Hyperlinks 相对路径
时间Tue Feb 27 22:39:33 2018
软体:EXCEL
版本:2013
Sub HYPL()
Dim I As Integer
I = Workbooks("读取资料夹档案
.xlsm").Sheets(1).Range("D1").CurrentRegion.Rows.Count
For X = 1 To I
SROW =
Workbooks("test.xLSx").Sheets("TEST").Range("D1").CurrentRegion.Rows.Count
sUrl = "127K\" & Workbooks("读取资料夹档案.xlsm").Sheets("工作表
1").Range("D" & I).Value
ActiveSheet.Hyperlinks.Add Range("D" & SROW), sUrl,
TextToDisplay:=Workbooks("读取资料夹档案.xlsm").Sheets(1).Range("D" &
SROW).Value
Next
End Sub
已上方法的超连结会是绝对路径请问要怎麽改成相对路径
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.37.205.143
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1519742376.A.BC9.html