Fehler beim Refresh
28.01.2004 07:30:08
Bernhard
ich habe die erste Zeile des Makros unten hier im Archiv gefunden. Ich habe in der Zeile .Connection = "TEXT;dat" das dat eingesetzt, als Quelldatei.
Leider funktioniert das noch nicht, denn in der letzten Zeile .Refresh.....
bleibt das Makro hängen. Wahrscheinlich weil ich oben "dat" nicht einfach so einsetzen kann. Kann mir da jemand helfen??
Da wo nun dat steht, stand vorher eine komplette Pfadangabe mit Dateiname.
Das möchte ich aber variabel haben, d.h. man soll den Pfad und die Datei auswählen können.
Danke für eure Hilfe!!!!
dat = Application.GetOpenFilename("Logfiles,*.log")
With Selection.QueryTable
.Connection = "TEXT;dat"
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
End With