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" z.B. eine Datei "20070228_1.txt" existiert.
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.
Lässt sich das in oben gezeigten Code einbauen?
Hoffe, Ihr könnt mir mal wieder helfen!
Danke schon mal!
Gruß Till