修改資料並附加相對路徑

Jared

想請問大大
目前寫了一個資料輸入的表單(如圖)

下載 (48.31 KB)

2014-1-7 15:48

下載 (17.61 KB)

2014-1-7 15:49

下載 (19.71 KB)

2014-1-7 15:49

在資料輸入的部分
程式利用相對路徑（檔案須放置在同一個目錄夾），
只需要在表單該欄位輸入檔名＆副檔名
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

複製代碼

要怎麼改才能像資料輸入那樣又把相對路徑在寫上去呢?
範例檔如下 輸入&修改路徑測試.zip (18.74 KB)

下載次數: 6

2014-1-7 16:01

因為目前只能直接表面上的路徑

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

stillfish00

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

Jared

回復 2# stillfish00

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

stillfish00

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

Jared

回復 4# stillfish00


    謝謝大大的解答~:D