仅使用 VBA 打开、保存和关闭文件类型 Excel、Word、PowerPoint 和 Visio

Question

老用户，第一次提问。

在我目前的角色中，我有一项重复且费力的任务，即有效地审查 SharePoint 位置（2007 版）上的许多文档。审核完成后，文档会被保存，然后 SharePoint 会显示上次保存的时间，从治理的角度来看，这有效地验证了再过一个月左右的审核。

问题是，这些文档没有太大变化，所以大多数时候实际上是打开、保存然后关闭所有文档的情况。

我希望将其自动化——我基本上想要一些 VBA 代码来打开、保存和关闭所有文档。我遇到的问题是有 4 种文件类型； Excel、Word、PowerPoint 和 Visio 以及一些谷歌搜索，我只能弄清楚如何自动化 Excel 文件。

我对每个文档的位置进行硬编码没有任何问题，我的主要问题是让这种打开、保存和关闭自动化在所有文件类型中都能正常工作。

谁能帮忙？

Answer 1

您可以使用 Powershell 单线：

Get-ChildItem "C:\Your\Folder\Path" -Recurse -Include *.xlsx,*.pptx,*.vsdx,*.docx | foreach {$_.LastWriteTime = Get-Date}

这种和平的代码将改变具有 xlsx、pptx、vsdx 和 docx 扩展名的文件的“LastWriteTime”属性，实际保存和关闭命令正在做什么。