Get next file name : Workbook File « Excel « VBA / Excel / Access / Word

Get next file name


Public Sub CreateNextFileName()
  Dim Workbook1 As Workbook
  Dim I As Integer
  Dim FileName As String
  Set Workbook1 = Workbooks.Add(Template:=ThisWorkbook.Path & "\Temp.xls")
  I = 0
    I = I + 1
    FileName = ThisWorkbook.Path & "\Temp" & I & ".xls"
  Loop While FileExists(FileName)
  Workbook1.SaveAs FileName:=FileName
End Sub


Related examples in the same category

1.Is selected file open?
2.Open Workbook file (xls file)
3.Get path of current work book
4.Get work book from same directory
5.Save as the active workbook
6.Open a text file for workbook
7.Get active workbook name only(without path name)
8.Load excel file
9.Presents user with a GetOpenFileName dialog that allows multiple file selection.
10.tells you how many workbooks are open
11.Save changes automatically, specify this as a parameter of the Close method