Der Makrorekorder hat mir dazu die folgende Zeile aufgezeichnet
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2)
ich habe das jetzt versucht zu automatisieren mit:
Dim DatentypenArray(100)
Dim i As Integer
For i = 0 To Fragebogen.count
DatentypenArray(i) = xlTextFormat
Next
With ActiveSheet.QueryTables.Add
.TextFileColumnDataTypes = DatentypenArray()
End With
Das ergibt aber den Fehler 5:
"Ungültiger Prozessaufruf oder ungültiges Argument"
Ich stehe jetzt auf dem Schlau...
Matthias