Question

excel怎么快捷加入本地图片的超链接？

我做了一张表格，需要加入700多张图片的超链接（约分别加入到700个小单元格当中），一个一个的加太费时间而且也麻烦，怎么能批量简捷的加入？工作软件小白谢过各位了。

Answer 1

excel 2010 win7 可以用 

Sub 获取打开窗下选中文件的完全路径和名称并为路径添加超链接()

    Dim i As Integer, j&, l, m, k, n

    Application.ScreenUpdating = False

  With Application.FileDialog(msoFileDialogOpen)

  'msoFileDialogOpen表示允许打开一个文件

   .AllowMultiSelect = True '允许多选

   .Show '打开文件对话框

   For i = 1 To .SelectedItems.Count

   'SelectedItems.Count属性获取一个filedialogSelectedItems集合

   '包含对象的 show方法,文件路径名称

       l = .SelectedItems(i)

       m = Len(l) - Len(WorksheetFunction.Substitute(l, "\", ""))

       k = WorksheetFunction.Substitute(l, "\", "/", m)

       n = WorksheetFunction.Find("/", k)

       Cells(i, 1) = Mid(l, n + 1, Len(l))

        '仅文件名称

       'Cells(i, 1) = .SelectedItems(i)

       '文件完全路径

       ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=l

   '添加超链接

  

  Next i

  End With

End Sub

追问

这个是vbs脚本吗

追答

VBA 宏 执行代码

Answer 2

设置一下自动添加