BuiltinDocumentProperties
 

I'm what one would call a newby and was trying to get the
Creation Date of a .html file I open in Excel.
The code below works, but it gives me the creation date of
the Excel file where the code resides.
Changing to ActiveWorkbook gives an error.

Windows("SC1A.html").Activate
Cells(6, 7).Value = ThisWorkbook.BuiltinDocumentProperties
("Creation date").Value

Has anyone an idea how to solve this?

Joop van de Sande

BuiltinDocumentProperties
 

Joop,

Is that because the activeworkbook is not an Excel worksheet? ACtiveworkbook
works okay for an Excel workbook.

--

HTH

Bob Phillips

"Joop" wrote in message
...
I'm what one would call a newby and was trying to get the
Creation Date of a .html file I open in Excel.
The code below works, but it gives me the creation date of
the Excel file where the code resides.
Changing to ActiveWorkbook gives an error.

Windows("SC1A.html").Activate
Cells(6, 7).Value = ThisWorkbook.BuiltinDocumentProperties
("Creation date").Value

Has anyone an idea how to solve this?

Joop van de Sande

BuiltinDocumentProperties
 

I tried following code which does return the
BuiltinDocumentProperties names.
Changing the code to show the values gives that runtime
error again.
What is wrong with this code?

Dim p, col As Integer

Windows("SC1A.html").Activate
col = 1

For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(6, col).Value = p.Name
col = col + 1
Next

-----Original Message-----
Bob,

I guess that might be the problem.

I get run time error '-2147467259 (80004005)':
The method 'Value' for the object 'DocumentProperty'
failed.

-----Original Message-----
Joop,

Is that because the activeworkbook is not an Excel
worksheet? ACtiveworkbook
works okay for an Excel workbook.

--

HTH

Bob Phillips

"Joop" wrote in message
...
I'm what one would call a newby and was trying to get
the
Creation Date of a .html file I open in Excel.
The code below works, but it gives me the creation
date
of
the Excel file where the code resides.
Changing to ActiveWorkbook gives an error.

Windows("SC1A.html").Activate
Cells(6, 7).Value =
ThisWorkbook.BuiltinDocumentProperties
("Creation date").Value

Has anyone an idea how to solve this?

Joop van de Sande


.

.