[算表] VBA Hyperlinks 相對路徑

作者: JointBank (噓~ 不要問!)   2018-02-28 06:39:33
軟體: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
已上方法的超連結會是絕對路徑請問要怎麼改成相對路徑
謝謝

Links booklink

Contact Us: admin [ a t ] ucptt.com