请教高手，这段复制一个文件并另命名的代码有啥问题

钱就是一张纸 · 发表于 2017-3-8 15:59

Sub 将指定路径下的某一文件复制到另一指定路径下2()
Dim a
a = Sheets("sheet1").Range("a1")
Dim fso As Object, souf$, des$
Set fso = CreateObject("Scripting.FilesyStemObject")
souf = ThisWorkbook.Path & "\nnnn.doc"
des = ThisWorkbook.Path & "\项目\nnnn- a .doc"
fso.CopyFile souf, des
Set fso = Nothing
End Sub

朱荣兴 · 发表于 2017-3-8 16:31

提示: 作者被禁止或删除内容自动屏蔽

钱就是一张纸 · 发表于 2017-3-8 17:47

朱荣兴发表于 2017-3-8 16:31
a 是定义的一个变量，就不应该在引号内，
des = ThisWorkbook.Path & "\项目\nnnn-" & a & ".doc"

那怎么修改，我想在原名前插入某些变动的内容

钱就是一张纸 · 发表于 2017-3-8 17:50

而且这段代码是往更深的目录复制，如果想往更浅的目录复制的话，又该怎么弄？

朱荣兴 · 发表于 2017-3-8 17:52

提示: 作者被禁止或删除内容自动屏蔽

钱就是一张纸 · 发表于 2017-3-8 18:08

朱荣兴发表于 2017-3-8 17:52
des = ThisWorkbook.Path & "\项目\nnnn-" & a & ".doc"
这就是修改后的结果呀

还是不对，运行错误9，下界越标，

		自动登录	找回密码
密码			免费注册

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-3-8 16:31 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-3-8 17:52 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报