Hallo,
meine Webabfrage über VBA bezieht sich auf einen einzigen, aber sehr langen Text-String (.txt) mit ca. 5000 email-Adressen, die durch Semikolon getrennt sind (Code s.u.). Der Import in Excel erfolgt in eine einzige Zelle, die danach nicht mehr zu bearbeiten ist (Hinweise: "Zelle zu klein" etc.)Wie kann ich den Import steuern, um den String in mehrere Teile zu zerlegen oder direkt auf mehrere Empfängerzellen aufzuteilen. In den Webabfrage-Optionen habe ich hierzu nicht gefunden, auch nicht im Archiv.
Danke.
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www./.../xxx.txt", Destination:=Range("A1"))
.Name = "xxx"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With