Saving an excel file using a date

[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

 

[Dave Peterson]

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

 

[Ed Davis]

Thank You again Dave I will try it.

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

 

[Ed Davis]

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

Thank You again Dave I will try it.

 

[Dave Peterson]

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.

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]

I don't know why I did not check the spelling. But that worked.

Thanks again Dave.