Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do I capture the Modified date in a cell?
I have a macro that opens an Excel file (Quote Tool) and captures the data
from a bunch of named cells and pastes the data in another Excel file (Quote Log). I cannot figure out how to capture the Modified date though. Here are some that I do capture successfully- temp_FILE_NAME = ActiveWorkbook.Name Range("FILE_NAME").Value = temp_FILE_NAME temp_FILE_CREATOR = ActiveWorkbook.Creator Range("FILE_CREATOR").Value = temp_FILE_CREATOR temp_FILE_PATH = ActiveWorkbook.Path Range("FILE_PATH").Value = temp_FILE_PATH temp_file_FULLNAME = ActiveWorkbook.FullName Range("FILE_FULLNAME").Value = temp_file_FULLNAME |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do I capture the Modified date in a cell?
You need a UDF to get it
-- HTH RP (remove nothere from the email address if mailing direct) "rcg" wrote in message ... I have a macro that opens an Excel file (Quote Tool) and captures the data from a bunch of named cells and pastes the data in another Excel file (Quote Log). I cannot figure out how to capture the Modified date though. Here are some that I do capture successfully- temp_FILE_NAME = ActiveWorkbook.Name Range("FILE_NAME").Value = temp_FILE_NAME temp_FILE_CREATOR = ActiveWorkbook.Creator Range("FILE_CREATOR").Value = temp_FILE_CREATOR temp_FILE_PATH = ActiveWorkbook.Path Range("FILE_PATH").Value = temp_FILE_PATH temp_file_FULLNAME = ActiveWorkbook.FullName Range("FILE_FULLNAME").Value = temp_file_FULLNAME |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How do I capture the Modified date in a cell?
You need a simple function
Function DocProps(prop As String) On Error GoTo err_value DocProps = ActiveWorkbook.BuiltinDocument*Properties(prop) Exit Function err_value: DocProps = "error" End Function and use like lmd = DocProps("last save time") -- HTH RP (remove nothere from the email address if mailing direct) "rcg" wrote in message ... I have a macro that opens an Excel file (Quote Tool) and captures the data from a bunch of named cells and pastes the data in another Excel file (Quote Log). I cannot figure out how to capture the Modified date though. Here are some that I do capture successfully- temp_FILE_NAME = ActiveWorkbook.Name Range("FILE_NAME").Value = temp_FILE_NAME temp_FILE_CREATOR = ActiveWorkbook.Creator Range("FILE_CREATOR").Value = temp_FILE_CREATOR temp_FILE_PATH = ActiveWorkbook.Path Range("FILE_PATH").Value = temp_FILE_PATH temp_file_FULLNAME = ActiveWorkbook.FullName Range("FILE_FULLNAME").Value = temp_file_FULLNAME |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Last Modified date on cell or column | Excel Discussion (Misc queries) | |||
How capture a date variable within a text cell? | Excel Discussion (Misc queries) | |||
Display a Date when a cell is Modified | Excel Worksheet Functions | |||
Show date cell modified | Excel Worksheet Functions | |||
Sheet Modified date in a cell.. ? | Excel Worksheet Functions |