Как увеличить размер писем на 1 при сохранении в каталоге? - PullRequest
Новая
       16

Как увеличить размер писем на 1 при сохранении в каталоге?

1 голос
/ 07 июня 2019

Мне было труднее всего разобраться с кодом ниже

Я пытаюсь сохранить много файлов в течение дня в одном каталоге с тем же именем, за исключением номера, который помечает его последовательно.

Я искал stackoverflow, но, похоже, не могу понять, куда поместить строку Сохранить как, в цикле, чтобы увеличить на единицу? Ну, это не сработало, как и многие другие попытки.

Пожалуйста, сообщите об этом:) 

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

Спасибо за помощь Матье. Я сейчас отредактировал это как выше

Но теперь он не хочет сохранять как, когда я помещаю сохранение как в цикл или оператор if-then. Если я помещу его после цикла, то он предложит мне сохранить поверх существующего имени файла, а не сохранить как имя файла с шагом 1 (.e.g, # 2)

Это фрагмент кода, который я использую, который требует, чтобы я работал из макрокоманды и открыл пустой шаблон и вставил в него данные, а затем сохранил как в течение дня

Пожалуйста, сообщите:)

...