aktuelle Daten laden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;D:\excel\1\23-Sep-05.csv" _ , Destination:=Range("A8")) .Name = "23-Sep-05_12" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1) .Refresh BackgroundQuery:=False End With End Sub

Function NeuesteDatei() As String Dim fn As String, fd As String Dim fNeu As String Dim d As Date fn = Dir(D:\excel\1\*.csv") Do While fn <> "" fd = Replace(fn, ".csv", "") If IsDate(fd) Then If CDate(fd) > d Then d = CDate(fd) fNeu = fn End If End If fn = Dir() Loop NeuesteDatei = fNeu End Function

Hallo Lexika,
so:


Function NeuesteDatei() As String
Dim fn As String, fd As String
Dim fNeu As String
Dim d As Date
fn = Dir(ThisWorkbook.Path & "\*.csv")
Do While fn <> ""
fd = Replace(fn, ".csv", "")
If IsDate(fd) Then
If CDate(fd) > d Then
d = CDate(fd)
fNeu = fn
End If
End If
fn = Dir()
Loop
NeuesteDatei = fNeu
End Function
Private Sub CommandButton1_Click()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\excel\1\" & NeuesteDatei _
, Destination:=Range("A8"))
.Name = "23-Sep-05_12"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub

Gruß Matthias

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

aktuelle Daten laden

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread