在excel中快速批次新增超連結
海量的文字檔案管理是一個相當有挑戰的工作,經過崩潰式的分類失敗後我決定用excel來管理分類,用超連結的方式來瀏覽檔案。但是單個新增超連結也是個海量的工作。於是用下面的vba程式碼進行批次處理超連結問題,屢試不爽。下面的問題是在excel檔案裡如何更有效的整理檔案,畢竟以後還是有個變更檔案目錄的問題。
1.alt+f11,進入vba編輯介面;
2.alt+i+m,插入一個module;
3.在右邊module的空白編輯區域,複製貼上下面的所有內容;
4.f5,執行該vba命令;
sub連結()
i=2
dowhilerange("a"&i).cells.text""
range("a"&i).select
worksheets("sheet1").hyperlinks.addanchor:=selection,address:="f:\連結\"&range("a"&i).cells.text,_
texttodisplay:=range("a"&i).cells.text
i=i+1
loop
endsub
在excel中快速批次新增超連結
海量的文字檔案管理是一個相當有挑戰的工作,經過崩潰式的分類失敗後我決定用excel來管理分類,用超連結的方式來瀏覽檔案。但是單個新增超連結也是個海量的工作。於是用下面的vba程式碼進行批次處理超連結問題,屢試不爽。下面的問題是在excel檔案裡如何更有效的整理檔案,畢竟以後還是有個變更檔案目錄的問題。
1.alt+f11,進入vba編輯介面;
2.alt+i+m,插入一個module;
3.在右邊module的空白編輯區域,複製貼上下面的所有內容;
4.f5,執行該vba命令;
sub連結()
i=2
dowhilerange("a"&i).cells.text""
range("a"&i).select
worksheets("sheet1").hyperlinks.addanchor:=selection,address:="f:\連結\"&range("a"&i).cells.text,_
texttodisplay:=range("a"&i).cells.text
i=i+1
loop
endsub