Zugriff auf NAS
06.02.2015 09:45:02
Paul_
Ich habe ein mittelgroßes Problem. Ich habe einen Ordner mit ca. 30.000 CSV Daten auf meinem NAS.
Die Daten haben die Form "yyyy.mm.dd hh-mm-ss" Bsp.: "2014.06.25 12-23-45" und liegen im ca. 10 min Intervall vor.
Bsp.:
2014.06.25 12-23-45.csv
2014.06.25 12-33-34.csv
2014.06.25 12-43-32.csv
Diese 10 min Daten will ich zu Tagesdaten zusammenfassen.
Ich mache das mit folgendem Code:
Sub NAS()
Dim strsource As String
Dim fso As Object, file As Variant
Dim strlasteditedrowdata As String
strsource = "\\NAS"
Set fso = CreateObject("Scripting.Filesystemobject")
For Each file In fso.GetFolder(strsource).Files
Worksheets(1).Cells.Clear
If LCase(Left(file.Name, 19)) >= LCase(Left(strlasteditedrowdata, 19)) Then
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" + strsource & file.Name, _
Destination:=Range("$A$2"))
.TextFileStartRow = 2
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileSemicolonDelimiter = True
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Set fso = Nothing
End If
Next
End Sub
MfG
Anzeige