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

starry1314

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

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

複製代碼

stillfish00

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

starry1314

回復 2# stillfish00

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

stillfish00

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

starry1314

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

stillfish00

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

starry1314

回復 6# stillfish00

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

下載次數: 2

2015-10-16 14:06

stillfish00

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

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

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

複製代碼

把井字移掉就好了。。。

starry1314

回復 8# stillfish00

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

stillfish00

回復 9# starry1314

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

複製代碼