'Upload File to the specific folder
Sub UploadImages(s$, c$)
's$ Buttom number
'c$ Specify a location to show image
'souf$ The local path of the image file
'des$ The dest path of the image file
'dt$ Get date for Named file
Dim fso As Object, souf$, des$
Dim fn As String
Dim n As Integer
On Error Resume Next
Set fso = CreateObject("Scripting.FilesyStemObject")
souf = Application.GetOpenFilename("All image files (*.jpg,.png,.bmp,.gif),*.jpg,.png,.bmp,.gif")
dt = Format(Now, "yyyymmdd")
des = "D:\2\VBA\A3\Images\" & dt & "-" & s & ".jpg"
fso.CopyFile souf, des 'Copy file from the path Souf$ to des$
MsgBox "Upload Success!"
Set fso = Nothing
Call ShowImages(des, c)
End Sub
'show images
Sub ShowImages(fn$, val$)
'fn$
VBA 插入图片到指定单元格并保存图片为图片文件
最新推荐文章于 2024-08-06 11:21:25 发布
本文介绍了如何使用VBA在Excel中插入图片,并将图片保存为单独的文件。教程详细讲解了VBA代码实现过程。
摘要由CSDN通过智能技术生成