QueryTable
05.10.2005 10:49:29
lexika
kann mir vielleicht jemand sagen weshalb dieser code nicht funktioniert?
Public
Sub Sensor1_alle()
Range("F12:I86").Select
Selection.ClearContents
Selection.QueryTable.Delete
ChDrive "D:\"
ChDir "D:\excel\Neu\1\"
ShellWait "D:\excel\Neu\1\zusa.bat", 1
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\excel\Neu\1\gesamt.csv" _
, Destination:=Range("F12"))
.Name = "Sensor_1"
.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
Range("F12").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Datum(dd-mmm-yy)"
Range("F13:F65500").Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=1
Selection.AutoFilter
End Sub
habe die zeilen 2-4 nachträglich eingefügt um die tabelle erst zu löschen und dann neu zu laden. ohne diese zeilen funktioniert es.
Danke