使用VBA脚本自动运行Excel,并根据date掩码自动插入文件

所以我有一个Excel文件,这基本上是一个表。 我有另一个Excel文件与VBA脚本,用作该Excel文件的转换器来search特定的条目,并在文本中输出它们。

我一直试图自动化,但我不能想出一个解决scheme。

这就是原来的Excel的样子: 在这里输入图像说明

这就是“转换器”的样子 在这里输入图像说明

它的工作原理是:我们打开它,点击button,popup窗口,我们select总是具有相同path的文件,并且文件的名称总是明天。 然后将“转换后的”文件放入之前保存的path中。

这是“转换”版本的样子: 在这里输入图像说明

所以正如我之前提到的,我期待自动执行这一步骤,因为这是需要每天执行的许多日常任务之一。

我想知道我的select是什么。

也许有可能使input文件自动select? 或者也许有一种方法可以从excel中提取VBA脚本,并使用Powershell将其自动化,在其中我可以将文件名设置为tommorowsdate。

任何帮助是极大的赞赏。 我们尝试联系制作转换脚本的承包商,但是我们无法再联系到他。

您可以制作一个vbscript(* .vbs),并通过打开它或任务计划来运行它;

在下面的脚本(您可以简单地复制/粘贴到记事本中并保存为“Converter.vbs”),您需要将path更改为“Converter”工作簿,更改执行该作业的macros的名称。

我也会改变你的macros, 代替名称和path的input,使用显式编码,path是硬编码的,并根据系统date获取名称。 这样就不需要用户与脚本交互。

Option Explicit 'On Error Resume Next ''Comment-out for debugging ExcelMacro Sub ExcelMacro() Dim xlApp Dim xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("\path\to\Converter.xlsm", 0, True) xlApp.Run "Convert" 'This line runs your macro (called Convert) xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub