Bestimmte File mit VBA öffnen

Hallo zusammen,
ich habe folgendes Problem:
Bisher müssen wir bestimmte Excelfiles per Hand in einem Intranetlaufwerk öffnen.
Diese haben das Format : Name.Datum.Uhrzeit.xls
Wobei das Datum mit 150217 (JahrMonatTag) angegeben ist
und die Uhrzeit mit z.b. 1300 für 13 Uhr
Nun dachte ich mir, dass ich per Makro die Dateien öffnen kann und dabei die Angabe wie Datum und Uhrzeit ignorieren möchte. D.h. er soll mir vom aktuellen Tag immer die Datei nehmen die gerade vorhanden ist (das ist in der Regel nur eine Datei)
Nun war ich schon so schlau und habe folgendens Makro aufgezeichnet und angepasst :
Workbooks.Open Filename:= _
"http://xxxxxxxx.de/yyy/zzz/unterordner/ABX/Eingang." & Format(Date, "yymmdd") & ".1300.xls"
Das mit dem Datum wurde von mir abgeändert,so, dass VBA bzw. Excel immer das tagesaktuelle Datum nimmt.
Da sich leider die Uhrzeit, wann die Datei eingestellt wird, ändern kann, stellt sich für mich die Frage, wie ich dies noch entsprechend ändern kann.
Mittels
Workbooks.Open Filename:= _
"http://xxxxxxxx.de/yyy/zzz/unterordner/ABX/Eingang." & Format(Date, "yymmdd") & ". & "*" &".xls"
also den Stern als Platzhalter, hat es nicht funktioniert. Aber das war nur ein Test dank mangelnder VBA Kenntnisse.
Ich danke schon mal im Voraus für jegliche Hilfe
Viele Grüße
Toumas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim lstrFile as String lstrFile = Dir("http://xxxxxxxx.de/yyy/zzz/unterordner/ABX/Eingang." & Format(Date, "yymmdd") & _ "*.xls") If lstrFile "" Then Workbooks.Open Filename:= "http://xxxxxxxx.de/yyy/zzz/unterordner/ABX/" & lstrFile End If

Hi Toumas,
es ist die Frage, ob der http-Vereichnis sich wie einen SMB-Verzeichnis scannen lässt.
Wenn ja, folgendes sollte soweit funktionieren (dito: ungetestet, aber Risiko frei):

Sub DateiNachMuster_oeffnen()
'Unter "Extras >> Verweis..." Micorsoft Scripting Runtime, um FileSystemObject, File, Folder, .. _
zu haben
Dim FSO As New FileSystemObject
Dim V As Folder
Dim F As File
Const cPfad = "http://xxxxxxxx.de/yyy/zzz/unterordner/ABX/"
Set V = FSO.GetFolder(cPfad)
For Each F In V.Files
If Split(F.Name, ".")(1) = Format(Now, "YYMMDD") Then
Debug.Print F.Name, F.Path
End If
Next
End Sub

wenn nicht, musst Du jede Kombination prüfen:

Sub DateiNachMuster_oeffnen2()
'Unter "Extras >> Verweis..." Micorsoft Scripting Runtime, um FileSystemObject, File, Folder, .. _
zu haben
Dim FSO As New FileSystemObject
Dim V As Folder
Dim F As File
Dim DateiFullPath As String
Dim h As Integer
Dim m As Integer
Const cPfad = "http://xxxxxxxx.de/yyy/zzz/unterordner/ABX/"
For h = 13 To 14
For m = 0 To 59
DateiFullPath = V & Join(Array("Eingang", Format(Now, "YYMMDD"), Format(h, "00"),  _
Format(m, "00"), "xls"), ".")
If FSO.FileExists(DateiFullPath) Then
Set F = FSO.GetFile(DateiFullPath)
Debug.Print F.Name, F.DateCreated, F.Type
End If
Next m
Next h
End Sub

Viel Erfolg
Yal

Sub DateiNachMuster_oeffnen() 'Unter "Extras >> Verweis..." Micorsoft Scripting Runtime, um FileSystemObject, File, Folder, .. _ _ zu haben Dim FSO As FileSystemObject Dim V As Folder Dim F As File Const cPfad = "http://xxxxxxxx.de/yyy/zzz/unterordner/ABX/" Set FSO = New FileSystemObject Set V = FSO.GetFolder(cPfad) For Each F In V.Files If Split(F.Name, ".")(1) = Format(Now, "YYMMDD") Then Debug.Print F.Name, F.Path End If Next End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte File mit VBA öffnen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread