2010年9月 挨踢职涯大版内专家分月排行榜第一
2010年12月 .NET技术大版内专家分月排行榜第二2010年10月 挨踢职涯大版内专家分月排行榜第二2010年8月 挨踢职涯大版内专家分月排行榜第二
2010年9月 挨踢职涯大版内专家分月排行榜第一
2010年12月 .NET技术大版内专家分月排行榜第二2010年10月 挨踢职涯大版内专家分月排行榜第二2010年8月 挨踢职涯大版内专家分月排行榜第二
本帖子已过去太久远了，不再提供回复功能。查看: 52|回复: 11
从指定文件夹及其子文件夹中复制文件
阅读权限20
在线时间 小时
& & & & & & & &
请哪位老师帮我改正一下（&&.CopyFile , ThisWorkbook.Path & &\学生答卷&, True& &这句总出错）。万分感谢。
Sub 批量复制文件() Dim PathSht As String& && && && && && && && && && && && && && && && & '声明变量 With Application.FileDialog(msoFileDialogFolderPicker)& &&&'弹出一个对话框用于选择文件夹& &If .Show Then PathSht = .SelectedItems(1) Else Exit Sub&&'如果果选择了“取消”键则结束过程 End With PathSht = PathSht & IIf(Right(PathSht, 1) = &\&,&&, &\&)&&'如果路径最右边一个字符不是“\”则追加一个“\” Call Contents(PathSht)& && && && && && && && && && && && && && && &&&'调用过程 Contents创建文件目录 Application.ScreenUpdating = True& && && && && && && && && && &'恢复屏幕更新End Sub Sub Contents(Fr As String)& && && && && && && && && && && && && && &'创建一个带参数的过程 'On Error Resume Next& && && && && && && && && && && && && && && &'如果程序出错则继续执行下一句 Dim F As Object& && && && && && && && && && && && && && && && && && &'声明一个Object型的变量 With CreateObject(&Scripting.FileSystemObject&)& && && &'创建并引用FSO对象& &For Each F In .GetFolder(Fr).Files& && && && && && && && && &&&'遍历参数Fr代表的文件夹的子文件& &&&.CopyFile, ThisWorkbook.Path & &\学生答卷&, True '将文件复制到“学生答卷”文件夹中& &Next F& &For Each F In .GetFolder(Fr).SubFolders& && && && && && &&&'遍历参数F代表的文件夹的子文件夹& &&&Call Contents(F.Path)& && && && && && && && && && && && && && &&&'调过程Contents自身提取其子文件夹中的所有文件名称& &Next F End WithEnd Sub
阅读权限20
在线时间 小时
留名学习，查了CopyFile的用法，object.CopyFile source, destination[, overwrite]，有点看不懂你写的，是另一种用法吗？期待大神的答案
阅读权限20
在线时间 小时
我就是不知CopyFile的用法，在此求助。或本身就不该用这方法。
阅读权限50
在线时间 小时
& &.CopyFile, ThisWorkbook.Path & &\学生答卷&, True
试试改为：
& &.CopyFile,&&F,ThisWorkbook.Path & &\学生答卷& & F, True
阅读权限20
在线时间 小时
Sub 批量复制文件()
& & Dim PathSht As String
& & Dim shll As Object
& & Set shll = CreateObject(&Wscript.shell&)
& & With Application.FileDialog(msoFileDialogFolderPicker)
& && & If .Show Then PathSht = .SelectedItems(1) Else Exit Sub
& & End With
& & PathSht = PathSht & IIf(Right(PathSht, 1) = &&, &&, &&)
& & shll.Run (&cmd /c copy & & PathSht & &*.xls & & ThisWorkbook.Path & &\学生答卷&)
End Sub
复制代码
阅读权限20
在线时间 小时
感谢！我来试试
阅读权限20
在线时间 小时
& & & & & & & &
.CopyFile, ThisWorkbook.Path & &\学生答卷&, True
试试改为：
& &.CopyFile,&&F,ThisWorkbook.Path&&...
感谢。还是不行
阅读权限20
在线时间 小时
感谢。用这段代码，没成功。
阅读权限20
在线时间 小时
本帖最后由 江汉浪子 于
19:02 编辑
感谢。用这段代码，没成功。
改为 PathSht = PathSht & IIf(Right(PathSht, 1) = &\&, &&, &\&)后，只能从一个文件夹复制到另一个文件夹,不能把子文件夹的文件一并复制
阅读权限50
在线时间 小时
本帖最后由 好奇心 于
06:25 编辑
感谢。还是不行
.CopyFile , ThisWorkbook.Path & &\&, True '将文件复制到“学生答卷”文件夹中
& &.CopyFile , F, ThisWorkbook.Path & &\学生答卷\& & Dir(F), True
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}