Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

aktuellstes file öffnen

Forumthread: aktuellstes file öffnen

aktuellstes file öffnen
23.05.2005 14:27:24
Eve
hi everybody
so ich habe eine BeforeClose Ereignis, wo ich eine bestimmte
datei öffne - jetzt möcht ich aber, das in dem folder "Test"
immer die actuelle file (im explorer neuste Date modified) öffnet.
Also nicht wie ich unten gelöst habe, eine spezielle datei.
die dateiname sind auch immer anders.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim z As String
z = MsgBox("Open actual file?", 4, "Open")
If z = 6 Then Workbooks.Open Filename:="H:\Personal\Test\Book2.xls"
End Sub

wie kann ich diese problem lösen?
bitte um hilfe.
thank you so much and regards
eve
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktuellstes file öffnen
23.05.2005 14:29:21
Herbert
Hi,
verwende Application.Filesearch mit Sortierung nach LastModified
mfg Herbert
AW: aktuellstes file öffnen
23.05.2005 14:43:00
Eve
hi herbert
danke viel mal für deine schnelle hilfe.
habe so versucht:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim z As String
z = MsgBox("Open actual file?", 4, "Open")
If z = 6 Then Workbooks.Application.FileSearch.LastModified = "H:\Personal\Test"
End Sub

irgendwas geht falsch, diese fehler bekomm ich:
Run-time error '13': Type mismatch
can you help me?
vielen dank und gruss
eve
Anzeige
AW: aktuellstes file öffnen
23.05.2005 16:33:19
u_
Hallo,
ungetestet, sollte aber gehen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim z As String
Dim FS As Object, drv As Object, Datei As Object
Dim dteMax As Date, strDatei As String, strPfad As String
z = MsgBox("Open actual file?", 4, "Open")
If z = 6 Then
dteMax = DateValue("1.1.1900")
strPfad = "H:\Personal\Test"
Set FS = CreateObject("scripting.filesystemobject")
Set drv = FS.getfolder(strPfad)
For Each Datei In drv.Files
If Datei.Name Like "*.xls" Then
If Datei.datelastmodified > dteMax Then
strDatei = Datei.Name
dteMax = Datei.datelastmodified
End If
End If
Next Datei
Workbooks.Open (strPfad & "\" & strDatei)
Set FS = Nothing
Set drive = Nothing
Set Datei = Nothing
End If
End Sub

Gruß
Geist ist geil!
Anzeige
AW: das hab ich gesucht
24.05.2005 08:54:59
Eve
hi u_
ey, danke vielmal - it works.
so what means geist ist geil?
regards eve
AW: das hab ich gesucht
24.05.2005 11:23:50
u_
Hallo,
ein Wortspiel (a Wordplay).
Saturn-Werbung:
Geiz ist geil (Stinginess is cool)
Geist ist geil (Intellect is cool)
Gruß
Geist ist geil!
AW: das hab ich gesucht
24.05.2005 15:42:21
Eve
hello u_
thanks for clear statement and I will keep in mind.
have a nice day.
regards eve
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige