excel大量超連結~

Question

我有很大量的excel資料，其中有一個欄位是需要做超連結，

連結的是電腦內的檔案，每一個儲存格連結的是不同的檔案，

但都是在同一個資料夾內，不過是夾中夾，很多層，有點麻煩，

想請問有沒有比較快的方法？還是就只能一個一個做連結。

Answer 1

因為考慮到連結檔案的無關聯性,所以還是得用手動連結,
用以下的VBA可以減少做連結時間約90%的時間.
使用方法, 將以下Copy到模組下,將excel另存新檔後,關閉再開.
將游標移到要放連結的地方,按F1即可.

Sub HPL()
file_temp = Application.GetOpenFilename("All Files (*.*), *.*", MultiSelect:=False)
If file_temp = False Then End
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=file_temp, TextToDisplay:=Mid(file_temp, InStrRev(file_temp, "\") + 1)
End Sub
Sub auto_open()
Application.OnKey key:="{F1}", procedure:="HPL"
End Sub

Answer 2

回應 Elvin
本來寫個列出資料夾與檔案的巨集，不過字數過長所以做罷！
你可以往 FileSystemObject 方面去找資料。

Answer 3

[牧童]叔叔，
你可不可以用VBA寫出在DOS下做DIR的動作並將含目錄名稱的結果匯回Excel，然後再用函數去抓連結？
(呵呵！我吃飽太閒，突然想到！)

Answer 4

在你的 Excel 中有檔案的路徑名稱等相關資料嗎？如果有的話，可以直接用 HYPERLINK 函式做，例如=HYPERLINK("C:\TEST.TXT", "TEST")就會顯示名稱為 TEST 的超連結，並連結到 C:\TEST.TXT 檔案

2005-12-16 09:31:25 補充：
沙拉油大大
你可以把檔案上傳到 Elvin 的家族喔
http://tw.club.yahoo.com/clubs/warehouse-of-Elvin/