AW: DocumentProperties fuer nicht aktive WorkBook
Reinhard
Hi Zamira,
eine Möglichkeit sehe ich, du musst eimalig doch alle Dateien öffnen und im VB-Editor in "DieseArbeitsmappe" folgendes reinkopieren:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheet("Tabelle1").Range("A1").Value = Now
End Sub
(Diesen Vorgang könnte man auch von einem Makro erledigen lassen, bei vielen dateien)
Danach kannst du immer auf das Save-datum zugreifen, ohne die Dateien in excel öffnen zu müssen (sie ist dann im Arbeitsspeicher 'geöffnet'),
mit dem Code (ist von Nepumuk):
Option Explicit
Sub auslesen()
Dim strPfad As String, strDatei As String, strTabelle As String, strAdresse As String
strPfad = "c:\temp\"
strDatei = "test.xls"
strTabelle = "Tabelle1"
strAdresse = "A1"
Cells(1, 1) = hole_Werte(strPfad, strDatei, strTabelle, strAdresse)
End Sub
Private Function hole_Werte(strPfad As String, strDatei As String, strTabelle As String, strAdresse As String)
hole_Werte = ExecuteExcel4Macro("'" & strPfad & "[" & strDatei & "]" & strTabelle & "'!" & Range(strAdresse).Range("A1").Address(, , xlR1C1))
End Function
Gruß
Reinhard