VBA之文件筛选

在工作中,经常会碰到从一堆腐朽的source中按照一个列表去筛选出来现在还要用的source文件。

这个如果用vba来实现的话,会节省大量的时间,而且不会出错。

前提说明:

将想要复制的文件名列表放在第一sheet的第一列,然后执行程序

首先选择源目录和目标目录, 然后会从源目录中查找文件,将存在的文件自动复制的目标目录中,

不存在的文件,记录在第二列里。

Sub fileFilter()Dim folderOld As StringDim folderNew As StringDim fileNm As StringDim fileNmOld As StringDim fileNmNew As StringDim i As IntegerDim j As Integerj = 2MsgBox "Set before moving folder"With Application.FileDialog(msoFileDialogFolderPicker)If .Show = -1 ThenfolderOld = .SelectedItems(1)End IfEnd WithMsgBox "Set after moving folder"With Application.FileDialog(msoFileDialogFolderPicker)If .Show = -1 ThenfolderNew = .SelectedItems(1)End IfEnd WithFor i = 1 To 1000fileNm = Worksheets(1).Cells(i, 1)If fileNm <> "" ThenfileNmOld = folderOld & "\" & fileNmfileNmNew = folderNew & "\" & fileNmIf Dir(fileNmOld) <> "" ThenFileCopy fileNmOld, fileNmNewElseWorksheets(1).Cells(j, 2) = fileNmj = j + 1End IfEnd IfNextMsgBox "file filter over"End Sub

 

另外,vba读取文件方法备用

Sub readFile()Dim txtLineDim FileObjDim TextObjDim FilePathWith Application.FileDialog(msoFileDialogFilePicker)If .Show = -1 ThenFilePath = .SelectedItems(1)End IfEnd WithDim txt As StringOpen FilePath For Input As #1Do While Not EOF(1)Line Input #1, txtMsgBox txtLoopClose #1End Sub

 

转载于:https://www.cnblogs.com/changxinblog/p/5361762.html

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/430658.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

2 引入失败_苦等2年!总投资2800万!镇江首个民国风商场,来了!

超级重磅&#xff01;就在近日&#xff01;镇江备受关注的首个民国风商场九如商业广场终于完工&#xff0c;招商马上启动项目施工2年&#xff0c;总投资约2800万计划引入酒店、商业、超市等目前老宴春酒楼已确定入驻01总投资2800万&#xff01;九如商业广场终于完工&#xff0c…

好用的cnn网络_DPCNN,究竟是多么牛逼的网络呢?

ACL2017年中&#xff0c;腾讯AI-lab提出了DeepPyramidConvolutionalNeuralNetworksforTextCategorization(DPCNN)。论文中提出了一种基于word-level级别的网络-DPCNN&#xff0c;由于上一篇文章介绍的TextCNN不能通过卷积获得文本的长距离依赖关系&#xff0c;而论文中DPCNN通过…

干货-iOS、mac开源项目及库,以后我也会持续更新。

昨晚在网上看的干货&#xff0c;直接分享给大家了&#xff0c;觉得有用的&#xff0c;直接fork吧。 https://github.com/Brances/TimLiu-iOS转载于:https://www.cnblogs.com/brance/p/5366843.html

二叉树前序中序后续线索树_二叉树的先序,中序,后序遍历以及线索二叉树的遍历...

二叉树的先序,中序,后序遍历以及线索二叉树的遍历(2008-05-04 17:52:49)标签&#xff1a;杂谈C二叉树的先序,中序,后序遍历以及线索二叉树的遍历头文件//*******************************************************************************//二叉树中的数据类型为ElemType//***…

EasyDarwin开源手机直播方案:EasyPusher手机直播推送,EasyDarwin流媒体服务器,EasyPlayer手机播放器...

在不断进行EasyDarwin开源流媒体服务器的功能和性能完善的同时&#xff0c;我们也配套实现了目前在安防和移动互联网行业比较火热的移动端手机直播方案&#xff0c;主要就是我们的 EasyPusher直播推送项目 和 EasyPlayer播放器项目&#xff1b; 先大概对EasyPusher和EasyPlayer…

以下不属于时序逻辑电路的有_电工电子技术(不建议浪费时间学习的科目)

(声明&#xff1a;本资料来自网络&#xff0c;侵权请告知删除。文末有全套高清版资料下载链接&#xff0c;敬请下载学习)2019年7月在天津召开的土力学及岩土工程年会上&#xff0c;有一场青年教师的土力学讲课竞赛&#xff0c;由我作一些点评&#xff0c;其中关于土颗粒与土骨架…

VS2010 + QT 5 +open inventor 环境配置

本科毕业设计做的是 随钻测量的井眼轨迹和测井曲线的三维显示 要求的环境是 QT Open Inventor 在寒假开学前&#xff0c;打算将环境配置好&#xff0c;开学后再正式编码实现&#xff0c;可是。。。。环境也没弄好 在简单的了解了QT和open inventor后&#xff0c;决定用vs…

12伏的蓄电池有几个单格组成_蓄电池的结构和识别

蓄电池是储备电能的一种直流装置。蓄电池充电时将电能转变为化学能&#xff0c;使用时内部化学能转变为电能向外输送给用电设备。蓄电池充放电过程是一种完全可逆的化学反应&#xff0c;因为蓄电池的充电和放电过程&#xff0c;可以重复循环多次&#xff0c;所以又称为二次电池…

第四周JAVA作业

本次作业实现实现了大文件快速拷贝 package copy; import java.io.FileInputStream; import java.io.FileOutputStream; import java.io.IOException; public class CopyFile { /** * param args */ public static void main(String[] args) { long startTime System.currentT…

2-jQuery - AJAX load() 方法【进阶篇】

第一篇的AJAX load() 方法过于简单&#xff0c;补充一下&#xff0c;完整的。 格式 $(selector).load(URL,data,callback); 源码 <!DOCTYPE html> <html><head><meta charset"utf-8" /><script type"text/javascript" src"…

前端js获取图片大小 扩展名_前端 JS 获取 Image 图像 宽高 尺寸

前端 JS 获取 Image 图像 宽高 尺寸简介项目中用到获取图片的原始尺寸&#xff0c;然后适配宽高&#xff1b;网上的大部分前端解决方案&#xff0c;都是new Image()后,在onload事件中获取image的尺寸。在图片数量较多的时候&#xff0c;这样的获取效率实在是低下。所有就有了这…

InnoDB还是MyISAM?

两种类型最主要的差别就是Innodb 支持事务处理与外键和行级锁.而MyISAM不支持.所以MyISAM往往就容易被人认为只适合在小项目中使用。 我作为使用MySQL的用户角度出发&#xff0c;Innodb和MyISAM都是比较喜欢的&#xff0c;但是从我目前运维的数据库平台要达到需求&#xff1a;9…

mysql linux 安装_mysql-5.7.28 在Linux下的安装教程图解

2.上传tar包到服务器到 /usr/local/src3.卸载系统自动的Mariadb rpm -qa | grep mariadb rpm -e --nodeps mariadb-libs-5.5.60-1.el7_5.x86_644.检查是否有mysql存在rpm -qa|grep -i mysql5.查询是否还有mysql的目录find / -name mysql6.解压&#xff1a;tar -zxvf7.修改名称&…

有关软件工程的问题的分析和讨论及课后的作业3

个人电脑界面的演变。 1973年四月第一次操作是在施乐PARC Alto计算机完成。 该系统是第一个将现代图形用户界面中的所有元素结合起来的系统。 1981年6月施乐介绍了星&#xff0c;商业阿尔托的继任者。 显著特点&#xff1a;双点击图标&#xff0c;重叠窗口&#xff0c;对话框和…

mysql语句中模糊查询_关于sql、mysql语句的模糊查询分类与详解,包括基本用法和mapper.xml文件里插入写法...

欢迎猿类加qq:2318645572,共同学习进步实际例子&#xff1a;ssm框架:service业务层->dao层->mappers.xml->junit/test测试1:service业务层(package)Resourceprivate BooksDao bookDao;public List> Service(String serachtitle, String serachtype) {Map paramnew …

GOF设计模式之1:单例设计模式

1.单例设计模式核心作用&#xff1a; 保证一个类只有一个实例&#xff0c;并且提供了访问该实例的全局访问点 2.常见应用场景&#xff1a; window的任务管理器项目中读取配置文件一般也是一个单例模式数据库连接池的设计也是采用单例模式&#xff0c;因为数据库连接是一种数据库…

php 管理 mysql 数据库 代码_PHP5对Mysql5的任意数据库表的管理代码示例(三)

续&#xff1a;点击编辑一个条目会跳转至edit.php//edit.phpEditing an entry from the databaseEdit an entry$database "sunsite";$tablename $_REQUEST[tablename];echo "Data from $tablename";MySQL_connect("localhost","root"…

封装EF code first用存储过程的分页方法

一年半没有做过MVC的项目了&#xff0c;还是很怀念&#xff08;因为现在项目还是原来的ASPX&#xff09;&#xff0c;个人还是喜欢mvc&#xff0c;最近又开始重拾MVC&#xff0c;感觉既熟悉又陌生。 记录一下封装好的分页代码 首先先说下 我使用EF codefirst的目的. 是因为可以…

apache httpd mysql_Centos7安装配置Apache(httpd)+php+mysql+phpMyAdmin

一、安装mysql执行命令&#xff1a;rpm -ivh mysql-community-release-el7-5.noarch.rpm执行 yum -y install mysql mysql-server mysql-devel&#xff0c;安装成功。再次使用该命令&#xff0c;然后得到以下信息打开mysql服务 &#xff1a;service mysqld start进入mysql客户端…

如何:创建公钥/私钥对

要使用强名称为程序集签名&#xff0c;必须具有公钥/私钥对。 这一对加密公钥和加密私钥用于在编译过程中创建强名称程序集。 您可以使用强名称工具 (Sn.exe) 来创建密钥对。 密钥对文件通常具有 .snk 扩展名。 注意 在 Visual Studio 中&#xff0c;C# 和 Visual Basic 项…