Question

这是我目前的代码：

Dim strDestinationFile As String
Dim The_file As String
MyOldName = WHAT CAN I PUT HERE <--
MyNewName = strDestinationFile

Sheets("NAME OF SHEET").Select
Range("I2").Select

The_file = ActiveCell.Value

strDestinationFile = "FILE PATH NAME"
Sheets("NAME OF SHEET").Select
ActiveWorkbook.SaveAs Filename:=strDestinationFile
Kill MyOldName

如果我在＆＃34; MyOldName =＆＃34;中输入或指定正确的路径以及我想要删除的内容，这是否有效部分？基本上我有一个VBA与最新日期相同（即文件名：XXXX-10-11-17.xlsm），但我可能有相同开头名但不同日期的先前文件（即：XXXX-10- 10-17）保存后我想删除。

这可能吗？

感谢您的帮助

Answer 1

参考：MSDN Dir() Function

这是一个带模式匹配的基本Dir（）搜索。

Const RootDir As String = "C:\Reports\"
Dim MyFile, MyPath, MyName As String

MyFile = Dir(RootDir & "*??-??-??.xlsx")

Do While MyFile <> ""
    ' Insert Code
    MyFile = Dir()
Loop

虽然不是一个完整的答案，但它应该足以让你开始。

VBA保存当前日期文件，但删除具有相同名称但较旧日期的旧文件？

1 个答案: