繁体   English   中英

Excel:宏以检查文件夹中是否有新文件(基于单元格中的日期)

[英]Excel: Macro to check folder for new files (based on date in a cell)

我有一个宏,每天需要运行一次。 它需要检查一个文件夹(可以在VBA中指定该文件夹,因为它不应更改),然后查看是否有任何新文件。

当前,此Excel VBA程序提示用户选择文件。 然后,它对文件进行处理,并将日期和日期(从文件名字符串中移出)保存到第一页的单元格中。 字符串始终相同,唯一的变化是日期和班次编号:“我的信息MM-DD-YY#班次”

我想创建代码,以使用户不必每天都选择新文件,但是程序会通过将单元格与上次日期进行比较来检查它们,然后将日期移动到文件夹中文件名之内。

例:

用户昨天运行了一个文件,它保存了日期并将其转移到单元格A1和B1、10-04-17和2中。

该用户昨天忘记执行变速3。

他们今天单击了运行按钮,并且代码查看了目录(在VBA中指定),以查看是否存在日期等于单元格A1(10-04-17)中的日期且大于shift的文件。单元格B1(2)中的文件,以及是否有大于班次A1(10-04-17)中日期的文件且带有任何班次编号。 一旦检查,它将选择任何符合此条件的文件并在其上运行宏,保存最新日期并移至单元格A1和B1。

我已经将多文件运行功能写入现有程序。

任何帮助表示赞赏! 先感谢您!

对于任何发现并好奇的人,

我以一种回旋的方式解决了这个问题:

  1. 创建工作表(通过打开和关闭可见性将保持隐藏状态)
  2. 使用filedatetime查看我上次运行的文件(其名称保存在工作簿的首页(第1页)中)
  3. 从特定文件夹中提取所有文件并打印其文件日期时间
  4. 查看哪个文件日期时间大于我运行的上一个文件的时间
  5. 对于找到的每个变量,将其设置为变量(使用循环),宏在该变量上运行
  6. 查找最大的文件日期时间并将此文件名设置为主页
  7. 删除工作表中的所有数据并将其隐藏

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM