Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets(1).Range("A1").Value = Now 'Now()
End Sub
как в ячейках excell хранить дату и время изменения файла (те что в свойствах файла)?
как в ячейке (или в 2разных ячейках) excell хранить дату и время изменения файла (те что в свойствах файла)?
Нужно для решения проблемы - при работе с данными экселя в другом файле (сводн.табл.) - видеть дату последнего сохранения исходного файла. Чайник я в этом... не могу докопаться... вроде все перепробовал... Помогите!
Нужно для решения проблемы - при работе с данными экселя в другом файле (сводн.табл.) - видеть дату последнего сохранения исходного файла. Чайник я в этом... не могу докопаться... вроде все перепробовал... Помогите!
Дело в том, что указанное Вами свойство, хранит время последнего сохранения рабочей книги, а значит Вы можете использовать соответствующее событие рабочей книги :
Примечание : Разместить этот событие необходимо в модуле ThisWorkbook(ЭтаКнига) нужной рабочей книги.
Код:
Примечание : Разместить этот событие необходимо в модуле ThisWorkbook(ЭтаКнига) нужной рабочей книги.
Цитата:
Originally posted by ЖКа
как в ячейке (или в 2разных ячейках) excell хранить дату и время изменения файла (те что в свойствах файла)?
Нужно для решения проблемы - при работе с данными экселя в другом файле (сводн.табл.) - видеть дату последнего сохранения исходного файла. Чайник я в этом... не могу докопаться... вроде все перепробовал... Помогите!
как в ячейке (или в 2разных ячейках) excell хранить дату и время изменения файла (те что в свойствах файла)?
Нужно для решения проблемы - при работе с данными экселя в другом файле (сводн.табл.) - видеть дату последнего сохранения исходного файла. Чайник я в этом... не могу докопаться... вроде все перепробовал... Помогите!
Можете также воспользоваться для этого средствами VBS. Вот пример:
Код:
Function ShowFileModifiedInfo(ByVal fileSpec As String) As String
Dim myFSO As Object, myFile As Object
Set myFSO = CreateObject("Scripting.FileSystemObject")
If (myFSO.FileExists(fileSpec)) Then
Set myFile = myFSO.GetFile(fileSpec)
ShowFileModifiedInfo = myFile.DateLastModified
Else
ShowFileModifiedInfo = "Файл " & UCase(fileSpec) & " не найден."
End If
End Function
Sub Test()
Dim timeModif As String
Const testFile = "c:\temp\book.xls"
timeModif = ShowFileModifiedInfo(testFile)
MsgBox timeModif
End Sub
Dim myFSO As Object, myFile As Object
Set myFSO = CreateObject("Scripting.FileSystemObject")
If (myFSO.FileExists(fileSpec)) Then
Set myFile = myFSO.GetFile(fileSpec)
ShowFileModifiedInfo = myFile.DateLastModified
Else
ShowFileModifiedInfo = "Файл " & UCase(fileSpec) & " не найден."
End If
End Function
Sub Test()
Dim timeModif As String
Const testFile = "c:\temp\book.xls"
timeModif = ShowFileModifiedInfo(testFile)
MsgBox timeModif
End Sub
Такой способ избавляет от необходимости хранить нужные Вам значения в книге. Вы всегда сможете определить их "на лету".
Средствами VBA, также можно "на лету" определять дату и время последнего сохранения файла, например :
Код:
iFileDateTime = FileDateTime(ThisWorkbook.FullName)
iFileDateTime = FileDateTime(ActiveWorkbook.FullName)
iFileDateTime = FileDateTime("C:\Archive\Temp.xls")
iFileDateTime = FileDateTime(ActiveWorkbook.FullName)
iFileDateTime = FileDateTime("C:\Archive\Temp.xls")
Цитата:
Originally posted by pashulka
Средствами VBA, также можно "на лету" определять дату и время последнего сохранения файла, например :
Средствами VBA, также можно "на лету" определять дату и время последнего сохранения файла, например :
Код:
iFileDateTime = FileDateTime(ThisWorkbook.FullName)
iFileDateTime = FileDateTime(ActiveWorkbook.FullName)
iFileDateTime = FileDateTime("C:\Archive\Temp.xls")
iFileDateTime = FileDateTime(ActiveWorkbook.FullName)
iFileDateTime = FileDateTime("C:\Archive\Temp.xls")
А как это можно применить в ворде? Как "ThisWorkbook.FullName" заменить на текущий документ ворда?
Цитата:
Originally posted by pashulka
Средствами VBA, также можно "на лету" определять дату и время последнего сохранения файла, например :
Средствами VBA, также можно "на лету" определять дату и время последнего сохранения файла, например :
Код:
iFileDateTime = FileDateTime(ThisWorkbook.FullName)
iFileDateTime = FileDateTime(ActiveWorkbook.FullName)
iFileDateTime = FileDateTime("C:\Archive\Temp.xls")
iFileDateTime = FileDateTime(ActiveWorkbook.FullName)
iFileDateTime = FileDateTime("C:\Archive\Temp.xls")
А как это можно применить в ворде? Как "ThisWorkbook.FullName" заменить на текущий документ ворда?
Код:
iFileDateTime = FileDateTime(ThisDocument.FullName) 'ActiveDocument
Примечание : Только документ должен быть сохранён, иначе Вы получите ошибку.