Hallo Leute,
momentan lese ich in Excel mit folgendem VBA Code, Daten aus bestimmten Ordnern ein, deren Pfad dadurch beeinflusst wird, was ich vorher in einer Combox auf meiner Userform ausgewählt hab.
Option Explicit
Private Const cPath As String = "C:\My Autoscope\Polling Data\" 'Konstante Pfadvorgabe
Sub Strasse(ByVal SubFolder As String)
Dim strFile As String
Dim objName1_1 As Range
Dim rngF1_1 As Range
Dim rngK1_1 As Range
Dim rngUnion1_1 As Range
Dim MyWidth As Single, MyHeight As Single
Dim NumWide As Long
Dim iChtIx As Long, iChtCt As Long
Dim Zeile2 As Integer, MyList(2836, 8), r As Integer, wksListe As Worksheet
If Not ActiveWorkbook Is ThisWorkbook Then ActiveWorkbook.Close False
strFile = cPath & SubFolder & Format(ThisWorkbook.Sheets("Tabelle1").Range("a1"), "yyyymmdd") & "_0" & ".txt"
If Dir(strFile) = "" Then
MsgBox "Keine Messdaten zu diesem Datum vorhanden", vbInformation, " "
Exit Sub
End If
On Error GoTo ErrExit
GetMoreSpeed
Workbooks.OpenText _
Filename:=strFile, _
DataType:=xlDelimited, _
Semicolon:=True, _
FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1)), DecimalSeparator:=".", _
ThousandsSeparator:=",", TrailingMinusNumbers:=True
Ebenso muss ich vorher das Datum per DateTimePicker auswählen, so dass dieses dann in eine Zelle geschrieben wird, damit ich dann entsprechend dem Datum auch die richtige Datei einlese. Also z.B. für den 28.02.07 die Datei "20070228_0.txt".
Leider kann es vorkommen, dass anstatt der Datei "20070228_0.txt", eine Datei "20070228_1.txt", oder "20070228_2.txt" , oder "20070228_3.txt" existiert. Teilweise existieren auch alle diese Dateien.
Ich würde also gerne eine Art "Wenn-Dann" Abfrage in den VBA Code einbauen, dass wenn die Datei "20070228_0.txt" nicht existiert, dann automatisch die Datei "20070228_1.txt" geöffnet wird, bzw. wenn diese nicht existiert die Datei "20070228_2.txt" und wenn diese nicht existiert die Datei "20070228_3.txt".
Also eigentlich unabhängig von den anderen existierenden Dateien die Datei mit der höchsten Endnummer (s.o.)!!
Lässt sich das in oben gezeigten Code einbauen?
Hier mal meine ersten Versuche, die aber nicht richtig funktioniert hatten, da direkt auf "Weiter:" gesprungen wurde:
strFile = cPath & SubFolder & Format(ThisWorkbook.Sheets("Tabelle1").Range("a1"), "yyyymmdd") & "_0" & ".txt"
If Not Dir(strFile) = "" Then
GoTo Weiter
Else
strFile = cPath & SubFolder & Format(ThisWorkbook.Sheets("Tabelle1").Range("a1"), "yyyymmdd") & "_1" & ".txt"
End If
Weiter:
MsgBox "Keine Messdaten zu diesem Datum vorhanden", vbInformation, " "
Außerdem sind da noch nicht die Alternativen mit den anderen möglichen Endzahlen "_2", "_3" mit enthalten.
Hoffe, Ihr könnt mir mal wieder helfen!
Danke schon mal!
Gruß Till