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

来源：百度知道 编辑：UC知道 时间：2024/07/02 22:46:32
例如 excel里有关于备件的备件号（很多），而这些备件在另外的文件夹里有相应的图片，如何使备件号和相应的图片批量建立超链接。谢谢大虾米！

假设你的图片文件夹是在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)

       &