aktuelle Daten laden

lexika · 2005-09-28T09:14:51+00:00

HI, kann mir vielleicht jemand sagen ob und wie es möglich ist immer die aktuellsten Daten zu importieren? Habe auf den einzelnen Blättern einen Button angelegt der wenn man ihn anklickt Daten importiert aber nur die die in dem Pfad angegeben sind. Der Pfad würde sich nicht ändern nur der Name der Datei ändert sich (z.B. von 23-Sep-05 auf 24-Sep-05 usw.). Danke


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

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

Forumthread: aktuelle Daten laden

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

aktuelle Daten laden

Forumthread: aktuelle Daten laden

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread