Question

我很难找出下面的代码

我试图在一天的过程中将许多文件保存到一个具有相同名称的目录中，只是用一个连续的方式将其标记出来。

我已经搜索了stackoverflow，但是似乎无法理解我将“另存为”这一行放在循环中加1的地方吗？好吧，那没有用，其他尝试也没有。

请对此提供建议：）

Sub AutoSave()

     Dim filename As String, filepath As String, filecount As Integer, filedate 
     As String

     filedate = Format(Now(), "MM-DD-YYYY")

     filepath = "C:\Users\nabil\OneDrive\Documents"

     filecount = filecount + 1

     Set book = Workbooks.Open("Nabil 06-06-2019 #1 Lincoln.xlsx")

' code to copy and paste here

     If Len(Dir(filepath & filename)) <> 0 Then

     filecount = filecount + 1

     filename = "Nabil " & filedate & " " & "#" & filecount & " " & "Lincoln"

     ActiveWorkbook.SaveAs filename:= _ "C:\Users\nabil\OneDrive\Documents\Nabil 
     " & filedate & " " & "#" & filecount & " " & "Lincoln" & ".xlsx"

     End If

End Sub

感谢Mathieu的帮助。我现在已经像上面这样编辑过

但是现在当我将另存为放在循环或if-then语句中时，它并不想另存为。如果我将其放在循环之后，则会提示我保存现有文件名，而不是另存为文件名（增量为1（例如，＃2）

）

这是我正在使用的一小部分代码，需要我从宏工作簿中进行操作并打开一个空白模板并将数据粘贴到该模板上，然后全天保存为

请告知：）

在目录中另存为时如何将电子邮件增加1？

0 个答案: