Excel VBA:セルに書かれたファイル名からサクラエディタでファイルを開く

 2024/4/21 すまぬ。IsFileName のコードが抜けてたので追加した。
サクラエディタでのgrep結果テキスト等が貼り付けられたセルから直接サクラエディタを開くマクロだ。

以下のテキストからジャンプできる。
セル内容が”ファイル名”
セル内容が”ファイル名(行番号)”
ハイパーリンクが”ファイル名”

ファイル名はフルパス、相対パスが可能だ。

相対パスの場合、ベースのパスは以下の優先順に決定される。
1.シートに設定された名前”SAKURA_SRC"に記載されたパス
2.ブックに設定された名前”SAKURA_SRC"に記載されたパス
3.Excelファイルが配置されたパス

”¥¥”で始まるネットワークパスにも対応するが、OneDrive等のURL形式のパスには対応しない。
前回紹介した右クリックメニューから呼び出せば、ストレスフリーでサクラエディタが呼び出せるわけだ。

あ、サクラエディタのパスは通しておけし。
パスの通し方はググれ。ノシ。

common.bas(common.xlam)

Public Sub sakuraエディタで開く() Dim strTarg As String Dim strDefaultPath As String On Error GoTo er1 strDefaultPath = ActiveWorkbook.Path If (IsFileName(strDefaultPath) = False) Then strDefaultPath = "" 100 szPa = Right(ActiveSheet.Names.Item("SAKURA SRC"), Len(ActiveSheet.Names.Item("SAKURA SRC")) - InStr(1, ActiveSheet.Names.Item("SAKURA SRC"), """")) szPa = Left(szPa, Len(szPa) - 1) 110 If szPa = "" Then 120 szPa = Right(ActiveWorkbook.Names.Item("SAKURA_SRC"), Len(ActiveWorkbook.Names.Item("SAKURA_SRC")) - InStr(1, ActiveWorkbook.Names.Item("SAKURA_SRC"), """")) End If If Right(szPa, 1) = """" Then szPa = Left(szPa, Len(szPa) - 1) If szPa = "" Then szPa = strDefaultPath If Right(szPa, 1) <> "\" Then szPa = szPa & "\" l1: If ActiveCell.Hyperlinks.Count = 0 Then strTarg = ActiveCell.Text Else strTarg = ActiveCell.Hyperlinks(1).Address ' If (IsFileName(strTarg) = False) Then Exit Sub strTarg = Replace(strTarg, "/", "\") End If pos = InStr(strTarg, "(") If (pos > 0) Then szFile = Trim(Left(strTarg, pos - 1)) szElse = Right(strTarg, Len(strTarg) - pos) pos = InStr(szElse, ")") If pos > 0 Then szLine = Left(szElse, pos - 1) End If pos = InStr(szLine, ",") If pos > 0 Then szLine = Trim(Left(szLine, pos - 1)) End If Else szFile = strTarg szLine = "" End If If InStr(1, szFile, ":") = 2 Or Left(szFile, 2) = "\\" Then Else szFile = szPa & szFile End If If Len(szLine) > 0 Then szLine = " -Y=" & szLine End If Shell "sakura.exe" & " " & szFile & szLine Exit Sub er1: szPa = "" Resume Next ' szPa = "" ' Resume l1 End Sub Public Function IsFileName(strFile As String) As Boolean IsFileName = False If (Left(strFile, 2) = "\\") Then IsFileName = True Else If ((Left(strFile, 1) >= "A") And (Left(strFile, 1) <= "Z")) Or ((Left(strFile, 1) >= "a") And (Left(strFile, 1) <= "z")) Then If (Mid(strFile, 2, 1) = ":") Then IsFileName = True Else If (Left(strFile, 1) >= ".") Then IsFileName = True End If End Function