標題: 修改資料並附加相對路徑 [打印本頁]

---

作者: Jared    時間: 2014-1-7 16:03     標題: 修改資料並附加相對路徑

本帖最後由 Jared 於 2014-1-7 16:05 編輯

想請問大大
目前寫了一個資料輸入的表單(如圖)
[attach]17209[/attach][attach]17210[/attach][attach]17211[/attach]

在資料輸入的部分
程式利用相對路徑（檔案須放置在同一個目錄夾），
只需要在表單該欄位輸入檔名＆副檔名
Excel上只會顯示連結路徑

1.   With Sheet1
   
2.      With .Cells(.Rows.Count, 2).End(xlUp).Offset(1)
   
3.       .Resize(, 2).Value = Ar
   
4.       .Hyperlinks.Add .Offset(, 2), ActiveWorkbook.Path & "\" & a3
   
5.       .Offset(, 2).Value = "連結路徑"
   
6.      End With
   
7.           End With

複製代碼

那現在的問題就是
當我需要進行資料修改的動作
都叫該編號對應的欄位就只會呼叫"連結路徑"這四個字
並不會把當初設定的相對路徑也一併呼叫進來

現在想要在修改目前的程式

1. With Sheet1
   
2. Set A = .Columns("A").Find(TextBox4.Text, lookat:=xlWhole, LookIn:=xlValues)
   
3. 
   
4. A.Offset(, 1) = TextBox1.Text  '資料A
   
5. A.Offset(, 2) = TextBox2.Text  '資料B
   
6. A.Offset(, 3) = TextBox3.Text  '連結路徑
   
7. 
   
8. End With

複製代碼

要怎麼改才能像資料輸入那樣又把相對路徑在寫上去呢?
範例檔如下[attach]17215[/attach]
因為目前只能直接表面上的路徑

希望有神人幫忙解答 >//< 感激不盡

---

作者: stillfish00    時間: 2014-1-7 17:11

回復 1# Jared
A.Offset(, 3).Hyperlinks(1).Address = TextBox3.Text

---

作者: Jared    時間: 2014-1-8 09:09

回復 2# stillfish00

謝謝大大的解答
另外想請問Hyperlinks(1) 的1代表什麼意思呢?
感激不盡(^^)

---

作者: stillfish00    時間: 2014-1-8 09:21

回復 3# Jared
Range.Hyperlinks  範圍(可能為多儲存格)中所有超連結的集合
1表該集合中的第一個。

---

作者: Jared    時間: 2014-1-8 16:33

回復 4# stillfish00


    謝謝大大的解答~:D

---

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