archiving data

alunowie · Apr 15th, 2002, 04:52 AM

i want to archive data from a database onto a new workbook. How do i save the file as the latest date in the database?? it keeps saving as book 1. HELP!!!

alunowie · Apr 15th, 2002, 05:04 AM

8 people have looked at this in the last little bit of time but no suggestions HHEEEEEELLLLPPPP!!!!!!!!!!

alunowie · Apr 15th, 2002, 05:07 AM

Please help, i've got to do my project and hand it in today!!

alunowie · Apr 15th, 2002, 05:15 AM

For the love of god, HELP ME!!!

it would be most appriciated if you help a poor welshman...

Mudface · Apr 15th, 2002, 05:18 AM

Your question has been up for less than half an hour, people are less inclined to help if you keep bleating on.

If your dates are in column A, then try this code inserted into a module in the VBA editor: -

Public Sub SavebyHighestDate()

Dim rng As Range
Dim myDate As String
Dim myPath As String

myPath = "C:My Documents"
Set rng = Sheet1.Range("A:A")

myDate = Format(WorksheetFunction.Max(rng), "dd-mm-yy")
MsgBox Format(myDate, "dd-mm-yy")
ThisWorkbook.SaveAs myPath & myDate

End Sub

Change the path, sheet no and column range to suit.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 15th, 2002, 04:52 AM	#1
alunowie New Member Join Date: Apr 2002 Posts: 5	i want to archive data from a database onto a new workbook. How do i save the file as the latest date in the database?? it keeps saving as book 1. HELP!!!

Apr 15th, 2002, 05:04 AM	#2
alunowie New Member Join Date: Apr 2002 Posts: 5	8 people have looked at this in the last little bit of time but no suggestions HHEEEEEELLLLPPPP!!!!!!!!!!

Apr 15th, 2002, 05:07 AM	#3
alunowie New Member Join Date: Apr 2002 Posts: 5	Please help, i've got to do my project and hand it in today!!

Apr 15th, 2002, 05:15 AM	#4
alunowie New Member Join Date: Apr 2002 Posts: 5	For the love of god, HELP ME!!! it would be most appriciated if you help a poor welshman...

Apr 15th, 2002, 05:18 AM	#5
Mudface MrExcel MVP Join Date: Feb 2002 Location: Sunny, spring-like Hull Posts: 3,339	Your question has been up for less than half an hour, people are less inclined to help if you keep bleating on. If your dates are in column A, then try this code inserted into a module in the VBA editor: - Public Sub SavebyHighestDate() Dim rng As Range Dim myDate As String Dim myPath As String myPath = "C:My Documents" Set rng = Sheet1.Range("A:A") myDate = Format(WorksheetFunction.Max(rng), "dd-mm-yy") MsgBox Format(myDate, "dd-mm-yy") ThisWorkbook.SaveAs myPath & myDate End Sub Change the path, sheet no and column range to suit.