フォルダツリー作成で、ファイル名に「＃」があるとハイパーリンクが動作しない #72

Author: RelaxTools

RelaxTools.xlam

@@ -133,7 +133,7 @@ Private Sub cmdRun_Click()
     If chkFolder.Value Then
         ActiveSheet.Hyperlinks.Add _
             Anchor:=Cells(lngRow, lngCol), _
-            Address:=strPath, _
+            Address:=FileToURL(strPath), _
             TextToDisplay:=strPath
     End If
 
@@ -234,7 +234,7 @@ Private Sub FileDisp(objFs, ByVal strPath, lngRow, ByVal lngCol, ByVal lngHCol A
             If chkFile.Value Then
                 ActiveSheet.Hyperlinks.Add _
                     Anchor:=Cells(lngRow, lngCol2), _
-                    Address:=rlxAddFileSeparator(strPath) & colFiles.Item(objKey).Name, _
+                    Address:=FileToURL(rlxAddFileSeparator(strPath) & colFiles.Item(objKey).Name), _
                     TextToDisplay:=colFiles.Item(objKey).Name
             End If
 
@@ -298,7 +298,7 @@ Private Sub FileDisp(objFs, ByVal strPath, lngRow, ByVal lngCol, ByVal lngHCol A
         If chkFolder.Value Then
             ActiveSheet.Hyperlinks.Add _
                 Anchor:=Cells(lngRow, lngCol2), _
-                Address:=colFolders.Item(objKey).Path, _
+                Address:=FileToURL(colFolders.Item(objKey).Path), _
                 TextToDisplay:=rlxGetFullpathFromFileName(colFolders.Item(objKey).Path)
         End If
 

Source/src/Form/frmTreeList.frm

@@ -3015,3 +3015,8 @@ Function SpecialCellsEx(v As Range) As Range
     Set SpecialCellsEx = r
 
 End Function
+Function FileToURL(ByVal arg As String) As String
+
+    FileToURL = "file:///" & Replace(arg, "#", "%23")
+
+End Function

Source/src/Modules/basCommon.bas

@@ -2,6 +2,7 @@
 ◇バグ修正
 ・VBAステップカウントの誤字を修正。
 ・結合セルの高さ拡張の誤字 #71
+・フォルダツリー作成で、ファイル名に「＃」があるとハイパーリンクが動作しない #72
 
 2020/12/27(sun) RelaxTools-Addin Version 4.27.2(RustRemover) 
 ◇バグ修正