请大神帮忙！选取图片文件并复制到指定文件夹

淡淡的邪

先感谢各位大神
小萌新我想做一个按钮打开一个对话框，选择一个图片文件，点确定之后是把这个选取的图片文件复制到指定文件夹（比如D:\img中），然后再把这个文件的完整路径赋值到一个变量，比如选择的文件移动完成的路径是D:\img\123.jpg 那么dim img as string    最终 img = D:\img\123.jpg
谢谢各位大侠的帮助！

大灰狼1976

无法编辑，重发：

1. Sub moveFile()
   
2. Dim Filename$, img$, FnameOri$, arr
   
3. Filename = Application.GetOpenFilename("")
   
4. arr = Split(Filename, "")
   
5. FnameOri = Format(Now, "mmddhhmmss") & arr(UBound(arr))
   
6. img = "D:\img" & FnameOri
   
7. Name Filename As img
   
8. MsgBox img
   
9. End Sub

复制代码

大灰狼1976

1. Sub moveFile()
   
2. Dim Filename$, img$
   
3. img = "D:\img\123.jpg"
   
4. Filename = Application.GetOpenFilename("")
   
5. Name Filename As img
   
6. MsgBox img
   
7. End Sub

复制代码

淡淡的邪

大灰狼1976 发表于 2019-5-15 20:14

非常感谢您的帮助！
再请教一下
1、这句img = "D:\img\123.jpg" 是固定好了的，选择这样不能打开并移动第二个文件了，能不能麻烦帮忙改成打开对话框，选择图片文件之后复制这个文件到d盘的img文件夹下，再把图片文件的路径和名字赋值给img变量呢？
2、请问能在复制过去之后给图片文件重命名一下吗？避免重名。比如在文件名里连接一个变量 假设加这个变量 Fname = vba.now

谢谢您

大灰狼1976

1. Sub moveFile()
   
2. Dim Filename$, img$, FnameOri$, arr
   
3. Filename = Application.GetOpenFilename("")
   
4. arr = Split(Filename, "")
   
5. FnameOri = Format(Now, "mmddhhmmss") & arr(UBound(arr))
   
6. img = "D:\img" & FnameOri
   
7. Name Filename As img
   
8. MsgBox img
   
9. End Sub

复制代码

大灰狼1976

算了，可能公司的电脑限制比较多，你在第4句的引号内自己加上反斜杠，
第6句的D:\img后面也加一个反斜杠。

淡淡的邪

大灰狼1976 发表于 2019-5-16 10:50
算了，可能公司的电脑限制比较多，你在第4句的引号内自己加上反斜杠，
第6句的D:\img后面也加一个反斜杠。

谢谢大神！灰常感谢 我测试了一下，非常完美！但是还有一个小小问题，请问能再次麻烦帮忙解决一下吗？
现在是直接剪切图片过去，这样会造成原文件没有了，请问能改成复制吗？！！谢谢，真的太麻烦您了！！

【谢谢！不用麻烦了，我换成 FileCopy Filename, img 就是复制了。谢谢版主大神大人】

大灰狼1976

不用谢！