starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-10-15 15:28 | 只看該作者

[發問] 關於將路徑轉為超連結

AS2 #\\進行\測試.xlsm# AS欄皆為路徑
D2 編號 D欄為編號
目前使用以下方法,轉過去無法開啟...

Sub 轉超連結()
Dim I
For I = 2 To 20000
Sheets("資料庫").Hyperlinks.Add Anchor:=Sheets("資料庫").Range("d" & I), _
Address:=Range("AS" & I)
Next
End Sub

複製代碼

樓主熱帖

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

11^#

發表於 2015-10-16 17:31 | 只看該作者

回復 10# stillfish00
謝謝~幫了大忙！！！

TOP

stillfish00

大學生 Rank: 4

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

10^#

發表於 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

複製代碼

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

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

9^#

發表於 2015-10-16 14:56 | 只看該作者

回復 8# stillfish00

都會加空白
當初設計多空了一格,導致當初建立的檔名前方都會多一格空白

TOP

stillfish00

大學生 Rank: 4

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

8^#

發表於 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), "#", "")

複製代碼

把井字移掉就好了。。。

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

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

7^#

發表於 2015-10-16 14:08 | 只看該作者

回復 6# stillfish00

路徑是連網芳的電腦
我附上檔案好了...剛google只知道 /開頭 =絕對路徑
是想將超連結路徑直接鍵入編號內,以便直接開啟檔案

路徑轉超連結.rar (9.54 KB)

TOP

stillfish00

大學生 Rank: 4

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

6^#

發表於 2015-10-16 10:37 | 只看該作者

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

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

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

5^#

發表於 2015-10-16 10:10 | 只看該作者

回復 4# stillfish00
會錯意...
路徑是對的,
是程式碼這樣寫是OK的嗎? 執行完後編輯超連結無出現路徑

TOP

stillfish00

大學生 Rank: 4

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

4^#

發表於 2015-10-16 09:49 | 只看該作者

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

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

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

3^#

發表於 2015-10-16 09:16 | 只看該作者

回復 2# stillfish00

是路徑寫法錯誤嗎?
因我目前這個路徑直接導入至ACCESS才可以正常開啟,其他方式時常發生無法開啟檔案

TOP