File Save Properties
 

Does anyone know how to access the properties for the last date/time
an .xls file was saved within VBA?

Thanks.

D

File Save Properties
 

Hi Daniel,

Dim dateLastSave As Date

dateLastSave = FileDateTime(ThisWorkbook.Name)

MsgBox dateLastSave


Note: ThisWorkbook.Name can be replaced with the name of the workbook in
double quotes and it can be any other workbook as well as the current one.
However, will need to include the path if it is not in the current default
path.

Example (In current default path):
dateLastSave = FileDateTime("My Other workbook.xls")

--
Regards,

OssieMac


"Daniel Jones" wrote:

Does anyone know how to access the properties for the last date/time
an .xls file was saved within VBA?

Thanks.

D
.

File Save Properties
 

On Nov 30, 4:37*am, OssieMac
wrote:
Hi Daniel,

Dim dateLastSave As Date

dateLastSave =FileDateTime(ThisWorkbook.Name)

MsgBox dateLastSave

Note: ThisWorkbook.Name can be replaced with the name of the workbook in
double quotes and it can be any other workbook as well as the current one..
However, will need to include the path if it is not in the current default
path.

Example (In current default path):
dateLastSave =FileDateTime("My Other workbook.xls")

--
Regards,

OssieMac

"Daniel Jones" wrote:
Does anyone know how to access the properties for the last date/time
an .xls file was saved within VBA?

Thanks.

D
.

Thanks for your help! Sorry, I'm a bit new to this. Which path is
the current default path?

I would like to use the code below to get the FileDateTime for the
active workbook. It doesn't seem like I need to change the default
directory, but how would you go about doing this if needed?

Sub TestFileSave()
Dim dateLastSave As Date
Dim strPath As String
strPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

dateLastSave = FileDateTime(strPath)
MsgBox dateLastSave
End Sub

Thanks!

D

File Save Properties
 

On Nov 30, 4:37*am, OssieMac
wrote:
Hi Daniel,

Dim dateLastSave As Date

dateLastSave = FileDateTime(ThisWorkbook.Name)

MsgBox dateLastSave

Note: ThisWorkbook.Name can be replaced with the name of the workbook in
double quotes and it can be any other workbook as well as the current one..
However, will need to include the path if it is not in the current default
path.

Example (In current default path):
dateLastSave = FileDateTime("My Other workbook.xls")

--
Regards,

OssieMac

"Daniel Jones" wrote:
Does anyone know how to access the properties for the last date/time
an .xlsfilewas saved within VBA?

Thanks.

D
.

Thanks for your help! Sorry, I'm a bit new to this. Which path is
the current default path?

I would like to use the code below to get the FileDateTime for the
active workbook. It doesn't seem like I need to change the default
directory, but how would you go about doing this if needed?

Sub TestFileSave()
Dim dateLastSave As Date
Dim strPath As String
strPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

dateLastSave = FileDateTime(strPath)
MsgBox dateLastSave
End Sub

Thanks!

D