File Save Properties

  • Thread starter Thread starter Daniel Jones
  • Start date Start date
D

Daniel Jones

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

Thanks.

D
 
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")
 
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")
Click to expand...

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
 
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")
Click to expand...

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
 
Back
Top