Board logo

標題: [發問] 關於將路徑轉為超連結 [打印本頁]
作者: starry1314    時間: 2015-10-15 15:28     標題: 關於將路徑轉為超連結

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

  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    時間: 2015-10-15 17:01

回復 1# starry1314
Address要絕對路徑吧，路徑對的嗎?
作者: starry1314    時間: 2015-10-16 09:16

回復 2# stillfish00

是路徑寫法錯誤嗎?
因我目前這個路徑直接導入至ACCESS才可以正常開啟,其他方式時常發生無法開啟檔案
作者: stillfish00    時間: 2015-10-16 09:49

回復 3# starry1314
看你   測試.xlsm   放在哪裡啊，怎麼會反過來問我
作者: starry1314    時間: 2015-10-16 10:10

回復 4# stillfish00
會錯意...
路徑是對的,
是程式碼這樣寫是OK的嗎? 執行完後編輯超連結 無出現路徑
作者: stillfish00    時間: 2015-10-16 10:37

回復 5# starry1314
你不懂絕對路徑的意思嗎?
你 測試.xlsm  放在哪一槽，哪個路徑下
作者: starry1314    時間: 2015-10-16 14:08

回復 6# stillfish00

路徑是連網芳的電腦
我附上檔案好了...剛google只知道  /開頭  =絕對路徑
是想將超連結路徑直接鍵入編號內,以便直接開啟檔案
[attach]22199[/attach]
作者: stillfish00    時間: 2015-10-16 14:54

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

回復 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    時間: 2015-10-16 14:56

回復 8# stillfish00

    都會加空白
當初設計多空了一格,導致當初建立的檔名前方都會多一格空白
作者: stillfish00    時間: 2015-10-16 15:20

回復 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
複製代碼
作者: starry1314    時間: 2015-10-16 17:31

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)