【為了大量的對應檔案並設定超連結而產生的工具】
/* 使用工具並非為了學技術，而是從工作生活中衍生而來的需求，為了改善，為了輕鬆，為了懶~~*/
這幾天連續分享了幾篇關於超連結的相關寫法…
不外乎也就這麼一個目的…
〈由來〉
因為我開始有些例行接單，整個程序中有非常多的執行步驟及產生相當多的文件…
光調用文件在檔案總管中一層層找檔開檔，就讓我覺得累人…
所以我直接把所有步驟程序寫成「一張」程序書(SOP)…
將重要資訊全回寫在程序書中以便快速取得資訊…
並且，重點來了，將各類文件檔案以超連結方式填入程序書，這樣只要一點，就可直接打開文件…
開始，我是把檔名寫下後，按右鍵點選超連結，找到檔案插入…
幾張下來我就懶了…
決定寫一個小功能…
〈需求〉
直接開啟選取檔案視窗，選擇檔案後將(1).檔名回寫到儲存格，並(2).設定超連結。
Private Sub cmdOpenFolder_Click()
With
Application.FileDialog(msoFileDialogFilePicker) '開啟選取檔案視窗
.InitialFileName = ActiveWorkbook.Path & "\*.*" '預設為目前檔案所在位置
.AllowMultiSelect = False '只能選取單一檔案
If
.Show <> 0 Then '如果有選到檔案
Dim sFileName As String
sFileName = Dir(.SelectedItems(1)) '取得檔名
'ActiveCell = "■" '儲存格的值帶回符號■
ActiveCell = sFileName '儲存格的值帶回檔案名稱
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:=.SelectedItems(1) '加入超連結
End If
End With
End Sub
後記：範例檔可玩玩，還有些簡單的格式化設定…
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※