Textdatei importieren

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich möchte eione Textdatei in Excel einlesen, bei der zu Anfang keine Spaltentrennung vorgenommen werden soll.

Nun habe ich mir gedacht, dass das ja eigentliuch nicht so schwer sein kann und man das via Makrorekorder hinbvekommen können.
Tja da hab ich wohl falsch gedacht. Es funktioniert zwar, aber nicht so wie ich mir es vorstelle.
Der Makrorekorder importiert mir die Textdatei in eine neue Excel-Arbeitsmappe, ich möchte sie aber in der Arbeitsmappe haben, von der aus ich auch das Makro ausführe…

Hat jemand eine Idee?
Viele Grüße
Pascal

#2

Hat jemand eine Idee?

Hi Pascal,

ja,
lasse bitte diesen Code mal laufen:

Sub Hinweis()
Dim Werte, W As Integer, Satz As String, Werte2, Titel As String
Werte = Array(34, 26, 85, 23, 28, 1, 1, 16, 6, 22, 29, 131, 27, 85, 28, 6, 1, 85, 17, 16, 27, 27, 85, 17, 16, 7, 85, 54, 26, 17, 16, 85, 74)
Werte2 = Array(60, 27, 19, 26, 7, 24, 20, 1, 28, 26, 27, 6, 24, 20, 27, 18, 16, 25)
For W = 0 To UBound(Werte2)
 Titel = Titel & Chr(Werte2(W) Xor 117)
Next W
For W = 0 To UBound(Werte)
 Satz = Satz & Chr(Werte(W) Xor 117)
Next W
MsgBox Satz, 48, Titel
End Sub

Gruß
Reinhard

#3

Hallo,

versuch mal QueryTables.Add ; um Dir das anzuschauen kannst Du es z.B. mal per Makrorekorder aufzeichnen (DATEN - EXTERNE DATEN - TEXTDATEI IMPORTIEREN); ich denke, dass ist, was Du suchst.

Gruß, Bernd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]