apiexcel.blogg.se

• VBA AUTO INCREMENT FILE NAME CHANGER CODE

ext exists, the following call: Debug.Print GetNextAvailableName('c: path to file.ext') would print: c: path to file - 1.ext. Function GetNextAvailableName(ByVal strPath As String) As String With CreateObject('Scripting.FileSystemObject') Dim strFolder As String, strBaseName As String, strExt As String, i As Long strFolder =.GetParentFolderName(strPath) strBaseName =.GetBaseName(strPath) strExt =.GetExtensionName(strPath) Do While.FileExists(strPath) i = i + 1 strPath =.BuildPath(strFolder, strBaseName & ' - ' & i & '.' & strExt) Loop End With GetNextAvailableName = strPath End Function Assuming the file c: path to file. It will suffix the filename with a ' - n', where n is a sequential number. Here's a function you can use to retrieve a unique file name for any given path.

At the cursor then change the macro name from.

VBA AUTO INCREMENT FILE NAME CHANGER CODE

I am trying to write a code to get a auto increment number for my. I currently go into what they have created and manually change it, the file name is different.