[算表] VBA Hyperlinks 相對路徑

[JointBank (噓~ 不要問!)]

軟體: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://www.ptt.cc/bbs/Office/M.1519742376.A.BC9.html