Dialogfeld unterdrücken
25.03.2008 19:25:37
DoLoop
With wksABC.Range("A1").QueryTable
.Connection = "TEXT;" & strDatei
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
End With
Vielen Dank schonmal!
N.