保存数字为1到100的工作簿

Question

我正在寻找一种方法来保存我的文件，并在每个文件后添加一个计数，所以文件1，下一个文件的末尾将有2，然后是3，然后是4，依此类推

ActiveWorkbook.SaveAs "C:Martin1BankFilesRecon" & " " & Format(Now(), "DD-MMM-YYYY") & ".XLSX", FileFormat:=51

要添加什么到上面的VBA代码中才能实现。

Answer 1

您需要一种方法来确定哪一个是最后一个写入的文件(以及它是今天还是更早写入的(。

当宏停止时，使用全局变量是不可靠的。我想最简单的方法是查看你写文件的文件夹。

下面的函数将做到这一点：查找文件名中具有当前日期的所有文件，找出最高数字，然后返回下一个"；免费的"；filename。

Function GetNextFilename()
Const BasePath = "C:Martin1BankFiles"        
Dim BaseFilename As String
BaseFilename = "Recon " & Format(Now(), "DD-MMM-YYYY") & "_"
Dim filename As String, filenumber As Long, largestNumber As Long
filename = Dir(BasePath & BaseFilename & "*.xlsx")
Do While filename <> ""
filenumber = Val(Mid(filename, Len(BaseFilename) + 1))
If filenumber > largestNumber Then largestNumber = filenumber
filename = Dir
Loop
GetNextFilename= BasePath & BaseFilename & (largestNumber + 1) & ".xlsx"
End Function

您的Save命令只是

ActiveWorkbook.SaveAs GetNextFilename, FileFormat:=xlWorkbookDefault