I want to add a date at end of the file name. How do I do that?

Also I want to over write a file if it exist at this location but I don't
want a box to pop up.

Dim WBNew As Workbook

WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"

Look like this: Lift Logger Process 031908.xls

Thanks

Sub writebook()
Dim WBNew As Workbook
Application.EnableEvents = False
String_Date = Format(Date, "mmddyy")
WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process" & _
String_Date & ".xls"
Application.EnableEvents = True

End Sub

"Nils Titley" wrote:

> I want to add a date at end of the file name. How do I do that?
>
> Also I want to over write a file if it exist at this location but I don't
> want a box to pop up.
>
> Dim WBNew As Workbook
>
> WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"
>
> Look like this: Lift Logger Process 031908.xls
>
> Thanks
>

Dim NewName as string
NewName = "C:\temp\lift logger\lift logger process " _
& format(date, "mmddyy") & ".xls"

application.displayalerts = false
wbnew.saveas filename:=newname, fileformat:=newname
application.displayalerts = true

========
If you didn't know the name of the workbook, you could strip the .xls (and
mmddyy if you had it), too.

Nils Titley wrote:
>
> I want to add a date at end of the file name. How do I do that?
>
> Also I want to over write a file if it exist at this location but I don't
> want a box to pop up.
>
> Dim WBNew As Workbook
>
> WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"
>
> Look like this: Lift Logger Process 031908.xls
>
> Thanks

--

Dave Peterson

Dave,

wbnew.saveas filename:=newname, fileformat:=newname

It worked if I removed the " ,fileformat:=newname". What is that doing and
why won't it work with it?

Thanks

"Dave Peterson" wrote:

> Dim NewName as string
> NewName = "C:\temp\lift logger\lift logger process " _
> & format(date, "mmddyy") & ".xls"
>
> application.displayalerts = false
> wbnew.saveas filename:=newname, fileformat:=newname
> application.displayalerts = true
>
> ========
> If you didn't know the name of the workbook, you could strip the .xls (and
> mmddyy if you had it), too.
>
> Nils Titley wrote:
> >
> > I want to add a date at end of the file name. How do I do that?
> >
> > Also I want to over write a file if it exist at this location but I don't
> > want a box to pop up.
> >
> > Dim WBNew As Workbook
> >
> > WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"
> >
> > Look like this: Lift Logger Process 031908.xls
> >
> > Thanks
>
> --
>
> Dave Peterson
>

The "fileformat" parameter tells Excel in what format to save the file, such
as in Text, Comma Separated Values, Excel95 and so on. Most of the time you
can omit this and save the file as a normal Excel xls file.


--
Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)



"Nils Titley" <(E-Mail Removed)> wrote in message
news:36037B10-CE45-416C-94D6-(E-Mail Removed)...
> Dave,
>
> wbnew.saveas filename:=newname, fileformat:=newname
>
> It worked if I removed the " ,fileformat:=newname". What is that doing
> and
> why won't it work with it?
>
> Thanks
>
> "Dave Peterson" wrote:
>
>> Dim NewName as string
>> NewName = "C:\temp\lift logger\lift logger process " _
>> & format(date, "mmddyy") & ".xls"
>>
>> application.displayalerts = false
>> wbnew.saveas filename:=newname, fileformat:=newname
>> application.displayalerts = true
>>
>> ========
>> If you didn't know the name of the workbook, you could strip the .xls
>> (and
>> mmddyy if you had it), too.
>>
>> Nils Titley wrote:
>> >
>> > I want to add a date at end of the file name. How do I do that?
>> >
>> > Also I want to over write a file if it exist at this location but I
>> > don't
>> > want a box to pop up.
>> >
>> > Dim WBNew As Workbook
>> >
>> > WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"
>> >
>> > Look like this: Lift Logger Process 031908.xls
>> >
>> > Thanks
>>
>> --
>>
>> Dave Peterson
>>

Thanks Joel, Dave and Chip for your help.



"Chip Pearson" wrote:

> The "fileformat" parameter tells Excel in what format to save the file, such
> as in Text, Comma Separated Values, Excel95 and so on. Most of the time you
> can omit this and save the file as a normal Excel xls file.
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft Most Valuable Professional
> Excel Product Group
> Pearson Software Consulting, LLC
> www.cpearson.com
> (email on web site)
>
>
>
> "Nils Titley" <(E-Mail Removed)> wrote in message
> news:36037B10-CE45-416C-94D6-(E-Mail Removed)...
> > Dave,
> >
> > wbnew.saveas filename:=newname, fileformat:=newname
> >
> > It worked if I removed the " ,fileformat:=newname". What is that doing
> > and
> > why won't it work with it?
> >
> > Thanks
> >
> > "Dave Peterson" wrote:
> >
> >> Dim NewName as string
> >> NewName = "C:\temp\lift logger\lift logger process " _
> >> & format(date, "mmddyy") & ".xls"
> >>
> >> application.displayalerts = false
> >> wbnew.saveas filename:=newname, fileformat:=newname
> >> application.displayalerts = true
> >>
> >> ========
> >> If you didn't know the name of the workbook, you could strip the .xls
> >> (and
> >> mmddyy if you had it), too.
> >>
> >> Nils Titley wrote:
> >> >
> >> > I want to add a date at end of the file name. How do I do that?
> >> >
> >> > Also I want to over write a file if it exist at this location but I
> >> > don't
> >> > want a box to pop up.
> >> >
> >> > Dim WBNew As Workbook
> >> >
> >> > WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"
> >> >
> >> > Look like this: Lift Logger Process 031908.xls
> >> >
> >> > Thanks
> >>
> >> --
> >>
> >> Dave Peterson
> >>
>

It was a stupid typo.

I meant this:

wbnew.saveas filename:=newname, fileformat:=xlworkbooknormal

(I like being specific.)



Nils Titley wrote:
>
> Dave,
>
> wbnew.saveas filename:=newname, fileformat:=newname
>
> It worked if I removed the " ,fileformat:=newname". What is that doing and
> why won't it work with it?
>
> Thanks
>
> "Dave Peterson" wrote:
>
> > Dim NewName as string
> > NewName = "C:\temp\lift logger\lift logger process " _
> > & format(date, "mmddyy") & ".xls"
> >
> > application.displayalerts = false
> > wbnew.saveas filename:=newname, fileformat:=newname
> > application.displayalerts = true
> >
> > ========
> > If you didn't know the name of the workbook, you could strip the .xls (and
> > mmddyy if you had it), too.
> >
> > Nils Titley wrote:
> > >
> > > I want to add a date at end of the file name. How do I do that?
> > >
> > > Also I want to over write a file if it exist at this location but I don't
> > > want a box to pop up.
> > >
> > > Dim WBNew As Workbook
> > >
> > > WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"
> > >
> > > Look like this: Lift Logger Process 031908.xls
> > >
> > > Thanks
> >
> > --
> >
> > Dave Peterson
> >

--

Dave Peterson

Dave

The date is working well but now I want to add time to the file. I thought
I could do this but it doesn't like it. What do I have to do, please?

NewName = "C:\temp\lift logger report\Lift Logger Process Report " _
& Format(Date, "ddmmyy") & Time & ".xls"

Thanks

"Dave Peterson" wrote:

> It was a stupid typo.
>
> I meant this:
>
> wbnew.saveas filename:=newname, fileformat:=xlworkbooknormal
>
> (I like being specific.)
>
>
>
> Nils Titley wrote:
> >
> > Dave,
> >
> > wbnew.saveas filename:=newname, fileformat:=newname
> >
> > It worked if I removed the " ,fileformat:=newname". What is that doing and
> > why won't it work with it?
> >
> > Thanks
> >
> > "Dave Peterson" wrote:
> >
> > > Dim NewName as string
> > > NewName = "C:\temp\lift logger\lift logger process " _
> > > & format(date, "mmddyy") & ".xls"
> > >
> > > application.displayalerts = false
> > > wbnew.saveas filename:=newname, fileformat:=newname
> > > application.displayalerts = true
> > >
> > > ========
> > > If you didn't know the name of the workbook, you could strip the .xls (and
> > > mmddyy if you had it), too.
> > >
> > > Nils Titley wrote:
> > > >
> > > > I want to add a date at end of the file name. How do I do that?
> > > >
> > > > Also I want to over write a file if it exist at this location but I don't
> > > > want a box to pop up.
> > > >
> > > > Dim WBNew As Workbook
> > > >
> > > > WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"
> > > >
> > > > Look like this: Lift Logger Process 031908.xls
> > > >
> > > > Thanks
> > >
> > > --
> > >
> > > Dave Peterson
> > >
>
> --
>
> Dave Peterson
>

NewName = "C:\temp\lift logger report\Lift Logger Process Report " _
& Format(now, "yyyymmdd_hhmmss") & ".xls"

Notice that the code uses Now instead of Date.

I like the yyyymmdd_hhmmss format (descending order of units of time). But you
could change it to what you like.



Nils Titley wrote:
>
> Dave
>
> The date is working well but now I want to add time to the file. I thought
> I could do this but it doesn't like it. What do I have to do, please?
>
> NewName = "C:\temp\lift logger report\Lift Logger Process Report " _
> & Format(Date, "ddmmyy") & Time & ".xls"
>
> Thanks
>
> "Dave Peterson" wrote:
>
> > It was a stupid typo.
> >
> > I meant this:
> >
> > wbnew.saveas filename:=newname, fileformat:=xlworkbooknormal
> >
> > (I like being specific.)
> >
> >
> >
> > Nils Titley wrote:
> > >
> > > Dave,
> > >
> > > wbnew.saveas filename:=newname, fileformat:=newname
> > >
> > > It worked if I removed the " ,fileformat:=newname". What is that doing and
> > > why won't it work with it?
> > >
> > > Thanks
> > >
> > > "Dave Peterson" wrote:
> > >
> > > > Dim NewName as string
> > > > NewName = "C:\temp\lift logger\lift logger process " _
> > > > & format(date, "mmddyy") & ".xls"
> > > >
> > > > application.displayalerts = false
> > > > wbnew.saveas filename:=newname, fileformat:=newname
> > > > application.displayalerts = true
> > > >
> > > > ========
> > > > If you didn't know the name of the workbook, you could strip the .xls (and
> > > > mmddyy if you had it), too.
> > > >
> > > > Nils Titley wrote:
> > > > >
> > > > > I want to add a date at end of the file name. How do I do that?
> > > > >
> > > > > Also I want to over write a file if it exist at this location but I don't
> > > > > want a box to pop up.
> > > > >
> > > > > Dim WBNew As Workbook
> > > > >
> > > > > WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"
> > > > >
> > > > > Look like this: Lift Logger Process 031908.xls
> > > > >
> > > > > Thanks
> > > >
> > > > --
> > > >
> > > > Dave Peterson
> > > >
> >
> > --
> >
> > Dave Peterson
> >

--

Dave Peterson

Dave

Thank works but the time looks weired. I had trouble recognizing it. Can't
I make it look more like time? Say 12:11:30 ? There must be a better way?

Thanks for your help.


"Dave Peterson" wrote:

> NewName = "C:\temp\lift logger report\Lift Logger Process Report " _
> & Format(now, "yyyymmdd_hhmmss") & ".xls"
>
> Notice that the code uses Now instead of Date.
>
> I like the yyyymmdd_hhmmss format (descending order of units of time). But you
> could change it to what you like.
>
>
>
> Nils Titley wrote:
> >
> > Dave
> >
> > The date is working well but now I want to add time to the file. I thought
> > I could do this but it doesn't like it. What do I have to do, please?
> >
> > NewName = "C:\temp\lift logger report\Lift Logger Process Report " _
> > & Format(Date, "ddmmyy") & Time & ".xls"
> >
> > Thanks
> >
> > "Dave Peterson" wrote:
> >
> > > It was a stupid typo.
> > >
> > > I meant this:
> > >
> > > wbnew.saveas filename:=newname, fileformat:=xlworkbooknormal
> > >
> > > (I like being specific.)
> > >
> > >
> > >
> > > Nils Titley wrote:
> > > >
> > > > Dave,
> > > >
> > > > wbnew.saveas filename:=newname, fileformat:=newname
> > > >
> > > > It worked if I removed the " ,fileformat:=newname". What is that doing and
> > > > why won't it work with it?
> > > >
> > > > Thanks
> > > >
> > > > "Dave Peterson" wrote:
> > > >
> > > > > Dim NewName as string
> > > > > NewName = "C:\temp\lift logger\lift logger process " _
> > > > > & format(date, "mmddyy") & ".xls"
> > > > >
> > > > > application.displayalerts = false
> > > > > wbnew.saveas filename:=newname, fileformat:=newname
> > > > > application.displayalerts = true
> > > > >
> > > > > ========
> > > > > If you didn't know the name of the workbook, you could strip the .xls (and
> > > > > mmddyy if you had it), too.
> > > > >
> > > > > Nils Titley wrote:
> > > > > >
> > > > > > I want to add a date at end of the file name. How do I do that?
> > > > > >
> > > > > > Also I want to over write a file if it exist at this location but I don't
> > > > > > want a box to pop up.
> > > > > >
> > > > > > Dim WBNew As Workbook
> > > > > >
> > > > > > WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"
> > > > > >
> > > > > > Look like this: Lift Logger Process 031908.xls
> > > > > >
> > > > > > Thanks
> > > > >
> > > > > --
> > > > >
> > > > > Dave Peterson
> > > > >
> > >
> > > --
> > >
> > > Dave Peterson
> > >
>
> --
>
> Dave Peterson
>