Hallo Excel - Forum,
habe ein Problem - schätzungsweise ein kleines - was ich durch Recherche nicht lösen konnte. Vielleicht könnt Ihr mir hier helfen:
Ich habe eine offene Arbeitsmappe in die ich eine csv-Datei einlesen möchte. Das ist soweit kein Problem. Ich möchte aber gerne, dass vor dem Einlesen der Datei geprüft wird, ob diese das heutige Datum hat.
Wenn ja soll das Makro weiterarbeiten, wenn nicht eine msg-Box erscheinen, die hierauf hinweist.
Nach dem Motto:
Wenn Datei von heute
dann fortfahren
sonst Info und Abbruch
Zum Einlesen der csv-Datei benutze ich folgenden Code:
fFile = Application.GetOpenFilename("csv-Dateien (*.csv), *.csv")
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fFile, _
Destination:=Range("A1"))
.Name = fFile
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 2, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Wäre klasse wenn Ihr mir weiterhelfen könntet.
Vielen Dank im Voraus
Jürgen