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后面少了个空格的缘故。