Before Importing excel files

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Need help on the following items.

Prior to import of a excel speadsheet I need to know the following:-

1 When was excel spreadsheet created.
2 When when it last modified
 
Hi Trever,

To get the dates of the *file* you can use the FileSystemObject, e.g.

Sub ShowFileAccessInfo(filespec)
Dim fs As Object, f As Object, s As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(filespec) & vbCrLf
s = s & "Created: " & f.DateCreated & vbCrLf
s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
s = s & "Last Modified: " & f.DateLastModified
MsgBox s, 0, "File Access Info"
End Sub

but this may not be what you need (for instance, some ways of copying a
file affect its timestamps but not the data it contains. So you may need
to use DSOFile.dll, a library which lets you access properties of Office
documents without actually opening them. A web search will find
information on how to do this.
 
Back
Top