专栏首页VB小源码VBA复制当前路径的所有文件到指定文件夹

VBA复制当前路径的所有文件到指定文件夹

VBA复制当前路径的所有文件到指定文件夹

Sub XCOPY()

'开始计时

t = Timer

Dim 当前路径 As String, 目标路径 As String

当前路径 = ThisWorkbook.Path & "\*.*" '如果只复制xls则把 "*.*" 改成 "*.xls"

目标路径 = "C:\汇总数据\" '目标路径

'调用shell命令

Shell Environ("comspec") & " /c xcopy " & 当前路径 & " " & 目标路径, vbHide

MsgBox Format(Timer - t, "0.0000")

End Sub

本文分享自微信公众号 - VB小源码(vb_xym),作者:巴西_prince

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2018-05-31

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • VBA 文件复制,并判断文件是否存在,存在则报错!

    Function 复制文件(ByVal 旧文件路径 As String, ByVal 旧文件名 As String, ByVal 新文件路径 As String...

    巴西_prince
  • VBA 文件移动和判断文件是否存在

    Function 文件移动(ByVal 旧文件路径 As String, ByVal 旧文件名 As String, ByVal 新文件路径 As String...

    巴西_prince
  • VB.NET 文件操作类和示例程序。textbox和listbox联动搜索

    ''' <param name="文件路径">必填:文件路径</param>

    巴西_prince
  • 关键路径法

    林万程
  • 第五届SDN大赛初赛部分试题解题思路:基于ONOS的路径反转实现

    作者简介:周正强,北京邮电大学未来网络实验室在读研究生,个人邮箱:857538065@qq.com

    SDNLAB
  • VREP-Paths(下)

    上面的工具栏按钮只有在路径被选中时才会激活。在路径编辑模式下,窗口中通常将部分路径控制点显示为列表用。对于场景树窗口中的对象,可以用鼠标选中列表中的项。

    六四零
  • 极客资源丨那些被“慕课网”偷偷藏起来的“真·免费教程”!

    一川水巷
  • 贪婪算法-单源最短路径

    温安适
  • Matlab系列之文件管理

    MATLAB加载任何的文件以及执行任何命令都是从当前工作路径下开始的,因此其提供了当前文件夹浏览器用于文件管理。

    狂人V
  • python相对路径文件无法读取,更改工作路径

    这是最坑的地方,一般很难想到这个。就是先取看看你当前的工作路径,否则你怎么写相路径都是没用的。当我想去访问另外一个层级的文件时,可以看到因为他将路径定义到了...

    萌萌哒的瓤瓤

扫码关注云+社区

领取腾讯云代金券