[已解决]批量导入文件名并按照文件名批量添加图片的VBA

alexaxis

如题，
目的是，对指定文件夹下的n多图片文件进行自动处理，
1. 在某列自动导入该目录下文件的文件名，不要拓展名，就是不要.jpg这样的文件拓展名；
2. 在某列自动根据导入的文件名，进行对应在文件夹下的图片导入，图片导入后的尺寸可以固定为某一尺寸。

求大神们给我个vba。多谢多谢了！

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-10 19:55

Test2.rar (275.63 KB, 下载次数: 40)

2015-8-10 19:55 上传

点击文件名下载附件

类似问题：http://www.excelpx.com/thread-368486-1-1.html

跳转到最佳答案楼层

爱疯

建议上传excel文件、3张图片，手动插入好，以查看最终效果。

alexaxis

爱疯 发表于 2015-8-10 19:28
建议上传excel文件、3张图片，手动插入好，以查看最终效果。

回版主，我权限不够，不让上传附件啊。。。。。只能上图。。

爱疯

alexaxis 发表于 2015-8-10 19:39
回版主，我权限不够，不让上传附件啊。。。。。只能上图。。

不存在权限问题，新会员也可以发附件。你检查下

1）无法上传时，提示什么？
2）excel文件是否压缩过？
3）压缩后的文件大小有多大？

alexaxis

爱疯 发表于 2015-8-10 19:28
建议上传excel文件、3张图片，手动插入好，以查看最终效果。

可以上传了。麻烦你将他们放到一个目录里看下多谢多谢。
Test.rar (148.7 KB, 下载次数: 16)

2015-8-10 19:41 上传

点击文件名下载附件
xls表格
Pic.rar (90.81 KB, 下载次数: 4)

2015-8-10 19:43 上传

点击文件名下载附件
图片文件

爱疯

Test2.rar (275.63 KB, 下载次数: 40)

2015-8-10 19:55 上传

点击文件名下载附件

类似问题：http://www.excelpx.com/thread-368486-1-1.html

alexaxis

爱疯 发表于 2015-8-10 19:55
类似问题：http://www.excelpx.com/thread-368486-1-1.html

太牛了！！我好好研究一下你的vba，我已经报名参加学习班了，希望早日能像你这样。多谢多谢啦！！

alexaxis

爱疯 发表于 2015-8-10 19:55
类似问题：http://www.excelpx.com/thread-368486-1-1.html

超版大牛，
继续叨扰你，请看下边的代码：

1. 我标红的那句，可不可以改为在当前目录下的自动获取图片，而不是非要指定某个目录
比如我将图片和excel表格放到同一个目录下，然后运行这个宏就可以自动匹配并添加图片了。现在的状况是我必须把图片放到目录名为pic的目录下，再在跟pic同级的目录运行宏才可以生效。

'插入图片
Sub InsertPic()
    Dim A(1 To 3), i%, p$, f$
    ActiveSheet.Pictures.Delete
    A(1) = 2       'InputBox("开始行号:")
    A(2) = Range("a65536").End(xlUp).Row       'InputBox("结束行号:")
    A(3) = 1        'InputBox("间隔行数:")
    p = ThisWorkbook.Path & "\pic\"

    For i = A(1) To A(2) Step A(3)
        f = p & Cells(i, "A")   '序号的列
        If Dir(f) <> "" Then
            With Cells(i, "B")    '图片的列
                ActiveSheet.Shapes.AddPicture Filename:=f, _
                                              LinkToFile:=msoTrue, _
                                              SaveWithDocument:=msoTrue, _
                                              Left:=.Left, _
                                              Top:=.Top, _
                                              Width:=.Width, _
                                              Height:=.Height
            End With
        End If
    Next i
End Sub

2. 可以烦请你，帮我添加一段自动读取文件夹内文件的文件名并去掉文件扩展名的代码吗？
谢谢啦！

爱疯

不明白第2个的意思，自动读取文件夹内文件的文件名，和你的表格有什么关系？

alexaxis

爱疯 发表于 2015-8-10 20:57
不明白第2个的意思，自动读取文件夹内文件的文件名，和你的表格有什么关系？

意思是说，这个宏要可以读取文件夹内的文件名并输出到表格里，然后第二步，根据文件名来添加照片。