關於將路徑轉為超連結 - Excel程式區

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2015-10-15 17:01 | 顯示全部帖子

回復 1# starry1314
Address要絕對路徑吧，路徑對的嗎?

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-10-16 09:49 | 顯示全部帖子

回復 3# starry1314
看你測試.xlsm 放在哪裡啊，怎麼會反過來問我

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2015-10-16 10:37 | 顯示全部帖子

回復 5# starry1314
你不懂絕對路徑的意思嗎?
你測試.xlsm 放在哪一槽，哪個路徑下

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2015-10-16 14:54 | 顯示全部帖子

本帖最後由 stillfish00 於 2015-10-16 14:57 編輯

回復 7# starry1314
L2的 #\\Boss-pc\數據\出餐單\105\ 測試.xlsm#

測試.xlsm的前面有一個空白，這是筆誤還是前面都會加空白???
筆誤的話

Dim i
i = 2
Sheets("資料庫").Hyperlinks.Add Anchor:=Sheets("資料庫").Range("d" & i), Address:=Replace(Range("L" & i), "#", "")

複製代碼

把井字移掉就好了。。。

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2015-10-16 15:20 | 顯示全部帖子

回復 9# starry1314

Sub test()
Dim i
i = 2 'for i ....
With Sheets("資料庫")
s = Range("L" & i).Text
s = Replace(s, "#", "") '移除井號
s = Left(s, InStrRev(s, "\")) & LTrim(Mid(s, InStrRev(s, "\") + 1)) '移除檔名前空白
.Hyperlinks.Add Anchor:=.Range("d" & i), Address:=s
End With
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。