VBA Сохранить как текущее имя файла +01

Question

Я ищу, чтобы написать макрос, чтобы сохранить текущую версию имени файла +1 экземпляр версии. Для каждого нового дня версия будет сброшена на v01. Ex. Current = DailySheet_20150221v01; Сохранить как = DailySheet_20150221v02; Следующий день = DailySheet_20150222v01

Увеличивая номер версии, я надеюсь, что версия не должна содержать v0, как только достигнут v10 +.

Я был в состоянии тренировки, как сохранить файл с текущей датой:

Sub CopyDailySheet() 

Dim datestr As String 

datestr = Format(Now, "yyyymmdd") 

ActiveWorkbook.SaveAs "D:\Projects\Daily Sheet\DailySheet_" & datestr & ".xlsx" 

End Sub 

но нуждаюсь в дополнительной помощи в поиске версии дополнения. Могу ли я установить SaveAs на строку, а затем запустить ее с помощью параметра For/If - Then?

Answer 1

Положите это к паре моих друзей и ниже - их решение:

Sub Copy_DailySheet() 

Dim datestr As String, f As String, CurrentFileDate As String, _ 
    CurrentVersion As String, SaveAsDate As String, SaveAsVersion As String 


    f = ThisWorkbook.FullName 
    SaveAsDate = Format(Now, "yyyymmdd") 
    ary = Split(f, "_") 
    bry = Split(ary(UBound(ary)), "v") 
    cry = Split(bry(UBound(bry)), ".") 
    CurrentFileDate = bry(0) 
    CurrentVersion = cry(0) 
    SaveAsDate = Format(Now, "yyyymmdd") 

    If SaveAsDate = CurrentFileDate Then 
     SaveAsVersion = CurrentVersion + 1 
    Else 
     SaveAsVersion = 1 
    End If 

    If SaveAsVersion < 10 Then 
     ThisWorkbook.SaveAs "D:\Projects\Daily Sheet\DailySheet_" & SaveAsDate & "v0" & SaveAsVersion & ".xlsm" 
    Else 
     ThisWorkbook.SaveAs "D:\Projects\Daily Sheet\Daily Sheet_" & SaveAsDate & "v" & SaveAsVersion & ".xlsm" 
    End If 

End Sub 

Спасибо всем, кто внес вклад.

Answer 2

Если у вас есть имя текущего файла я хотел бы использовать что-то вроде:

Public Function GetNewFileName(s As String) As String 
    ary = Split(s, "v") 
    n = "0" & CStr(CLng(ary(1)) + 1) 
    GetNewFileName = ary(0) & "v" & ary(1) 
End Function 

Испытано с:

Sub MAIN() 
    strng = GetNewFileName("DailySheet_20150221v02") 
    MsgBox strng 
End Sub 

Answer 3

Попробуйте это:

Sub CopyDailySheet() 

'Variables declaration 
Dim path As String 
Dim sht_nm As String 
Dim datestr As String 
Dim rev As Integer 
Dim chk_fil As Boolean 
Dim ws As Object 

'Variables initialization 
path = "D:\Projects\Daily_Sheet" 
sht_nm = "DailySheet" 
datestr = Format(Now, "yyyymmdd") 
rev = 0 

'Create new Windows Shell object 
Set ws = CreateObject("Wscript.Shell") 

'Check the latest existing revision number 
Do 
rev = rev + 1 
chk_fil = ws.Exec("powershell test-path " & path & "\" & sht_nm & "_" & datestr & "v" & Format(rev, "00") & ".*").StdOut.ReadLine 
Loop While chk_fil = True 

'Save File with new revision number 
ActiveWorkbook.SaveAs path & "\" & sht_nm & "_" & datestr & "v" & Format(rev, "00") & ".xlsm" 

End Sub