Question

如何让excel里的内容与其他文件夹里的图片建立超链接

例如 excel里有关于备件的备件号（很多），而这些备件在另外的文件夹里有相应的图片，如何使备件号和相应的图片批量建立超链接。谢谢大虾米！

Answer 1

　　方法一：右击单元格点击超链接

　　1、鼠标点击需要链接文字所在单元格——右击——在下来列表中找到“超链接（H）……”——点击打开超链接对话框。

　　2、在对话框中找到超链接文件的位置——点击确定，就OK啦。

　　方法二：用“HYPERLINK”函数建立超链接

　　1、用鼠标点击需要建立超链接的单元格——点击函数图标——在打开的函数对话框中找到超链接函数“HYPERLINK”，点击打开。

　　2、在打开的超链接函数中在Link-location中输入链接的位置，在Friendly-name中输入链接提示名。这就OK啦。

　　

Answer 2

假设你的图片文件夹是在D盘的img下面，图片格式是jpg

 选定A2单元格：

= HYPERLINK("[D:\img\" & A2 & ".jpg]",A2) 

然后直接向下拖。 

如果嫌拖得太累了，那就用vba吧。

如下：

假设这些数据放在第一个sheet里面

在sheet1（右下第一个标签）右键->查看代码

双击这个（如图）

添加以下代码：完事后要重新打开下表格。

Private Sub Workbook_Open()

Sheet1.Activate

   Dim i As Integer

   Dim j As Integer

   For i = 2 To 100 Step 1  <----可以修改100，末行号（箭头后面的要去掉哈，粘贴进入时，切记切记。下同）

    For j = 1 To 100 Step 1  <------可以修改100，末列号

        Dim name As String

        name = Trim(Sheet1.Cells(i, j).Text)

        If name = "" Then

        Else

            Sheet1.Cells(i, j) = "D:\img\" & name & ".jpg"

            Sheet1.Cells(i, j).Hyperlinks.Add Anchor:=Cells(i, j), Address:="D:\img\" & name & ".jpg"

        End If

     Next

    Next

End Sub

Answer 3

没看到图中的A1吗?你要对应的图片放在哪个位置,直接链接到那里就可以了啊,第二个再链接到其它位置,比如H1啊,如果你怕看混淆,你可以放远点,一个页面只显示一张图片就好了啊,那你链接到A100也可以啊...

如果图片很多,可以压缩图片的,方法是双击其中的一张图片,选择"图片--压缩--文档中的所有图片--web/屏幕"前打勾,确定就好了...

工作表隐藏是可以的,不过那样就把所有的工作表都隐藏了,只能看到其中的一张...想看到其它的,返回用超链接也可实现...

Answer 4

补充，下面这个步骤可以收集位于不同文件夹下面的表格文件名，并在当前打开的这个总表的第三列里为所有这些表格文件建立超链：

1、在Excel里面打开或者新建一个表格作为总表；
2、在表格标签上单击鼠标右键，选择“查看代码”；
3、粘贴如下代码到编辑器里面去：
Option Explicit

Sub BuildHyperlinksToWorkbooks()

On Error Resume Next

Dim arrFolders As New Collection
Dim strFolder, strFile As String
Dim fso, oFolder, oFile
Dim oCell As Range
Dim nRowIndex As Integer, nColumnIndex As Integer

Set fso = CreateObject("Scripting.FileSystemObject")

' 设置这个数字来控制把超级链接生成到第几列
nColumnIndex = 3

' 在下面调整/增/删需要搜索的文件夹
arrFolders.Add "C:\Temp\docs\test1\"
arrFolders.Add "C:\Temp\docs\test2\"
arrFolders.Add "C:\Temp\docs\test3\"

nRowIndex = 1

For Each strFolder In arrFolders
Set oFolder = fso.GetFolder(strFolder)
For Each oFile In oFolder.Files
strFile = oFile.Path
If (UCase(Right(strFile, 4)) = ".XLS") Or (UCase(Right(strFile, 5)) = ".XLSX") Then
Set oCell = Cells(nRowIndex, nColumnIndex)
oCell.Hyperlinks.Add Anchor:=oCell, Address:="file://" & strFile, TextToDisplay:=strFile
nRowIndex = nRowIndex + 1
End If
Next
Next

Set oFolder = Nothing
Set fso = Nothing

MsgBox "完成！"
End Sub
4、根据需要增加/删除上面代码中需要搜索的文件夹；同时也可以控制把超级链接生成到第几列去；
5、键入F5运行看到“完成！”结束；
6、键入ALT+Q退出代码编辑返回Excel表格界面，检查所有超链是否正确生成。

如果以后不在需要批量插入超链，则可以在保存这个总表前把上面的代码全部删除。从而避免了每次打开这个总表文件时，Excel都要提示是否启用宏什么的。

Answer 5

b1=HYPERLINK("图片路径\"&A1&".jpg",A1)

向下拉就可以了，具体的操作见下图