☰

EXCEL HYPERLINK：通过超链接将 JPG 链接到文件夹中

tag-icon • tag-icon microsoft-excel microsoft-excel-2013 hyperlink jpeg
EXCEL HYPERLINK：通过超链接将 JPG 链接到文件夹中

我试图弄清楚是否可以.jpg通过超链接（或其他方式）将文件与 Excel 链接起来。

让我进一步解释一下我正在尝试做的事情：

使用Excel 2013：

  1. 我有一个包含 +1000 张图片的文件夹，名为商品编码代码。
  2. 我有一个 Excel 文件，里面有商品编码我需要图像的代码。

我想通过超链接将每个图像与额外列中的每个单元格链接起来。

这可能吗？

我努力了：=HYPERLINK("[Location pathway]\" & A1 & ".[filetype]","Click Here!")

我不断收到无法打开文件的错误。

答案1

下面的示例 - 我创建了一个包含路径的单元格和一个包含文件扩展名的单元格。然后我将所有内容合并到另一个单元格中，例如=path-cell & EAN-cell & file-type-cell。在 D 列中，我设置了超链接。

当然，您可以隐藏不需要的行和列。

在此处输入图片描述

答案2

我已经制作了一些可能有用的宏：

我的用例是 5000 个图像链接，每个图像名称都是图像编号，即 2345.jpg

我需要将 number.jpg 转换为与工作表位于同一路径的文件夹的超链接。remove 函数可以方便地逆转该过程。

使用方法：更改文件夹名称，如果需要反转，请输入文件名的正则表达式。

突出显示运行宏所需的单元格，您可能希望将宏附加到按钮以方便使用。

超链接创建器

Sub addHyperlinkFormula()

    Folder = "Images/"

    For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
    If cell <> "" Then
    Filename = cell.Value
    Formula = "=HYPERLINK(""" & Folder & Filename & """,""" & Filename & """)"
    cell.Formula = Formula
    End If
    Next cell
End Sub

Sub removeHyperlinkFormula()
    'this regex is for 4235435.jpg
    RegexPattern = "([0-9]+\.jpg)" 

    Set regex = CreateObject("VBScript.RegExp")
        regex.Pattern = RegexPattern
        regex.Global = True
    For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
        If cell <> "" Then
            Set allMatches = regex.Execute(cell.Formula)
            If allMatches.Count <> 0 Then
                result = allMatches.Item(0).submatches.Item(0)
                cell.Value = result
                cell.Font.Underline = xlUnderlineStyleNone
                cell.Font.Color = vbBlack
            End If
        End If
    Next cell
End Sub

相关内容