Saving an excel file using a date

  • Thread starter Thread starter Ed Davis
  • Start date Start date
E

Ed Davis

using VB I would like to save a file using the date that is cel d2.
I want to save it in following format "reg_MMDDYY".xls

Does anyone know how this can be done?
I used to be able to do it in Lotus but have been bashing my mind for the
last couple of years trying this in Excel.

Thank You
 
Option Explicit
sub testme()
with activeworkbook
.saveas filename:="C:\somepath\reg_" _
& format(.worksheets("sheetnamehere").range("D2").value, "mmddyy") _
& ".xls", fileformat:=xlworkbooknormal
end with
End Sub
 
Thank You again Dave I will try it.


Dave Peterson said:
Option Explicit
sub testme()
with activeworkbook
.saveas filename:="C:\somepath\reg_" _
& format(.worksheets("sheetnamehere").range("D2").value, "mmddyy") _
& ".xls", fileformat:=xlworkbooknormal
end with
End Sub
Click to expand...
 
I tried this and get a debug error.


Option Explicit
Sub testme()
With ActiveWorkbook
.savesas Filename:="sales_" &
Format(.Worksheets("31(3)").Range("B17").Value, "mmyyyy") & ".xls",
FileFormat:=xlWorkbookNormal
End With
End Sub


Ed Davis said:
Thank You again Dave I will try it.
Click to expand...
 
The first thing I'd change is .savesas to .saveas -- You have too many s's in
that word!

If that fixes one problem, but not the whole thing, post back with the error and
the line that causes that error.



Ed said:
I tried this and get a debug error.

Option Explicit
Sub testme()
With ActiveWorkbook
.savesas Filename:="sales_" &
Format(.Worksheets("31(3)").Range("B17").Value, "mmyyyy") & ".xls",
FileFormat:=xlWorkbookNormal
End With
End Sub
Click to expand...
 
Back
Top