作者：乔山办公网日期：
返回目录：excel表格制作
第一步、准备好对应的图片，名片的命名和Excel中要对应的名称相同。
第二步、将内容列进行复制，并且调出剪切板。
第三步、把名称进行汇总，把复制的名称放到一个单元格中。
第四步、为什么要使用替换功能呢，因为Excel导入图片，如果要批量的话，名称之间必须有“;”进行间隔开，要做的就是加入“;”，在查找内容里，输入Ctrl+J或者Ctrl+Enter，表示，要替换的是回车符，而替换为“;”。
第五步、点击“替换”以后，就会出现加了分隔符的e79fa5e98193e58685e5aeb9332信息了，把这些信息复制一下。
第六步、复制信息，推荐都把剪切板调出来，剪切板对于新人来说，是比较有用的一个功能。
第七步、开始插入图片，通过工具栏中的插入功能，进行图片的插入，找到准备好的图片素材所在路径，然后把复制的信息，粘贴到文件夹名中。
第八步、图片插入后，通过工具栏中的“编辑”，选择“定位”，然后选择“定位条件”。
第九步、在定位条件中，选择“对象”，因为图片是以对象的形式插入的，这样就可以选中所有的图片。
第十步、然后右键，选择设置图片格式。
第十一步、根据自己的需要设置图片的样式，这里想把图片缩小，然后能够放到单元格中。
第十二步、图片都是按照前后顺序从高到低排列的，都是对应表格中的排列顺序。然后把图片移动到对应的表格中。
1、找到保存图片zd图片的文件夹，复制路径。
2、打开Excel表格，版设置一下列宽。
3、再设置一下表格的行高。
4、然后把保存图片的路径复制到表格中，
输入公式权="<table><img src=""C:\Users\jing\Desktop\2018.9.4\2018.9.4如何批量将照片导入Excel中并且和名字相对应\学生照片" &B4 &".jpg"" width=""16.5"" height=""72.75"">"。
5、输入公式后，把公式往下拉。
6、然后把公式全部复制粘贴到一个记事本中。
7、最后复制文本里面的内容，返回表格粘贴，图标就全部出来了。
Sub 按钮1_Click()
Dim i As Integer
i = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.getfolder(Sheet1.Cells(1, 2)).Files
With Sheet1
.Cells(i, 1) = "序号": .Cells(i, 2) = "创建时间e68a84e8a2ad7a686964616f331": .Cells(i, 3) = "最后修改时间"
For Each f In fs
ex = Right(f, 4)
If ex = ".jpg" Or ex = ".bmp" Or ex = ".gif" Or ex = ".png" Or ex = ".tif" Then
i = i + 1
.Cells(i, 1) = f.Name: .Cells(i, 2) = f.datecreated: .Cells(i, 3) = f.DateLastModified
End If
Next
End With
End Sub
添加一个按钮，输入上面的代码，结果如下：
1、打开电脑，首先在指定盘符中新建一个文件夹，百并把需要导入到excel中图片复制到该文件夹内；
2、接着启动excel2010，调整整张表格的大小，这里可以在a列进行演示操度作演示，然知后选择单元格a1，点击执行公式选项，点击定义名称命令选项，从中选择定义名称选项；
3、在新建名称对话框中输入名道称为测试，引用位置设置为=files("G:\测试数据\*.jpg")，点击确定按钮；
4、接着在单元格a1中输入公式=index (测试，row（a1）)，点击回车内键确认；
5、接着把鼠标左键放在右下角出现黑色十字，往下拖拽容填充即可批量导入excel。