Tabelle einlesen
27.06.2007 15:16:43
Uwe
habe mit Macrorecorder folgendes aufgezeichnet....
Sub WPOPUSIN()
' WPOPUSIN Makro
' Makro am 25.06.2007 von Uwe Hladik aufgezeichnet
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\WALI\WPOPUSIN.DBA", _
Destination:=Range("A2"))
.Name = "WPOPUSIN"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 2
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileOtherDelimiter = " "
.TextFileColumnDataTypes = Array(1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(6, 3, 9, 7, 9, 8, 11, 11, 11, 4, 16, 27)
.Refresh BackgroundQuery:=False
End With
End Sub
.... wenn jetzt nochmals der Button gedrückt wird, schreibt er sie rechts daneben.
hatte mir jedoch gewünscht das die Tabelle immer wieder aktualisiert wird, oder überschrieben.
Kann man den Code da anpassen?
Vorab schon mal Dank!!
Gruß Uwe
Anzeige