Excel VBA 将图片保存到本地文件夹

发布网友 发布时间：2022-05-02 00:29

我来回答

共4个回答

热心网友 时间：2022-06-25 13:59

恩，我考虑错误。不过不会，期待大师们解决，学习了。
{假如你要保存在本文件夹里的，photos文件夹下。
Private Sub CommandButton1_Click()
Dim name as string
Dim Potopath as string
Potopath=ThisWorkbook.Path
name = EIF.ENO.text
On Error GoTo line
Application.ActiveWorkbook.SaveAs filename:=potopath &photos& name, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "上传成功"
Exit Sub
line:
MsgBox "上传失败"
Exit Sub
End If
End Sub

试下可不可以。不行的话，你查下Application.ActiveWorkbook.SaveAs filename的用法，用F1查，应该对你有帮助。 }

热心网友 时间：2022-06-25 13:59

Private Sub CommandButton1_Click()
Dim fs As FileSystemObject
Dim f As File
Dim Potopath As String

Potopath = ThisWorkbook.Path & "\" & EIF.ENO.Text & ".jpg" 'EIF.ENO.text & ".jpg我想用这个命名保存后的图片

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(TextBox1.Text)
f.Copy Potopath, True

End Sub

热心网友 时间：2022-06-25 14:00

Private Sub CommandButton1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set Potopath = fs.GetFile(换成保存前的路径 + 图片名)
Potopath.Copy 换成保存后的路径 + 图片名
End Sub

Private Sub CommandButton1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set Potopath = fs.GetFile(文本框.Text)
Potopath.Copy ThisWorkbook.Path & "\" & EIF.ENO.Text & ".jpg"
End Sub

热心网友 时间：2022-06-25 14:00

象这样

Shell ("cmd.exe /C copy " & textbox1.text & " " & userform1.textbox2.text ), vbHide

对补充问题的回复
我觉得是你的copy后面少了个空格的缘故。